Changeset 2512

Timestamp:

02/08/22 22:40:32 (3 years ago)

Author:

nanardon

Message:

Add zimbraCOSId attribute

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Files:

• Partage/User.pm (modified) (1 diff)
• Sql/User.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Partage/User.pm

@@ -119 +119 @@
         },
         zimbraCOSId => { },
+        zimbraAccountStatus => {
+            can_values => [ qw( active closed locked lockout pending maintenance ) ],
+        },
+        carLicense => { },
     }
 }

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

@@ -149 +149 @@
                 iname => 'gidnumber',
                 mandatory => 1,
-                can_values => sub {
-                    map { $_->id, $_->get_attributes('gidNumber') }
-                    map { $base->get_object('group', $_) }
-                    $base->list_objects('group')
-                },
                 can_values => sub {
                     my $sth = $base->db->prepare_cached(
@@ -1643 +1638 @@
                 label => l('Validité formation SST'),
             },
+            zimbraCOSId => { },
+            zimbraAccountStatus => {
+                label => l('Zimbra acoount class'),
+                ro => 1,
+                get => sub {
+                    my ($attr) = @_;
+                    my $self = $attr->object;
+
+                    if ( $self->_get_attributes('locked') ) {
+                        return 'locked';
+                    } elsif ( $self->_get_attributes('active') ) {
+                        return 'active';
+                    } else {
+                        return 'closed';
+                    }
+                },
+            }
     };