Changeset 1912 for trunk

Timestamp:

01/04/17 19:57:18 (7 years ago)

Author:

nanardon

Message:

Populate manager attribute from employment

Location:

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

Files:

• Employment.pm (modified) (1 diff)
• Group.pm (modified) (7 diffs)
• User.pm (modified) (1 diff)

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

@@ -372 +372 @@
         my $cval = $self->get_attributes($attr) || '';
 
+        for ($attr) {
+            if ($attr eq 'managerContact') {
+                if (!$cval) {
+                    my $dpmt  = $self->get_attributes('department') or last;
+                    my $odmpt = $self->base->get_object('group', $dpmt) or last;
+                    $cval = $odmpt->get_attributes('managedBy');
+                }
+            }
+        }
+
         if ($uval ne $cval) {
             my $oattr = $self->base->attribute('user', $attr);

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

@@ -40 +40 @@
                 uniq => 1,
                 iname => 'gidnumber',
-                mandatory => 1, 
+                mandatory => 1,
                 label => l('GID'),
             },
@@ -52 +52 @@
                 delayed => 1,
                 ro => sub {
-                    $_[0] && 
+                    $_[0] &&
                     (($_[0]->_get_c_field('sutype') ||'') =~ /^(jobtype|contrattype)$/
                      || $_[0]->_get_c_field('autoMemberFilter')
                      || $_[0]->_get_c_field('autoFromSutype'))
-                    ? 1 : 0 
+                    ? 1 : 0
                 },
                 get => sub {
-                    my ($self) = @_; 
+                    my ($self) = @_;
                     my $sth = $self->base->db->prepare_cached(
                         q{
@@ -85 +85 @@
                 monitored => 1,
                 reference => 'user',
-                multiple => 1, 
+                multiple => 1,
                 delayed => 1,
                 iname => 'memberUID',
                 can_values => sub { $base->list_objects('user') },
                 ro => sub {
-                    $_[0] && 
+                    $_[0] &&
                     (($_[0]->_get_c_field('sutype') ||'') =~ /^(jobtype|contrattype)$/
                      || $_[0]->_get_c_field('autoMemberFilter')
                      || $_[0]->_get_c_field('autoFromSutype'))
-                    ? 1 : 0 
+                    ? 1 : 0
                 },
                 get => sub {
@@ -113 +113 @@
                 can_values => sub {
                     my %uniq = map { $_ => 1 } grep { $_ }
-                    ($_[1] ? $_[1]->get_attributes('manager') : ()),
-                    $base->search_objects('user', 'active=*');
+                    (($_[1] ? $_[1]->get_attributes('managedBy') : ()),
+                    $base->search_objects('user', 'active=*'));
                     sort keys %uniq;
                 },
                 label => l('Manager'),
+                post => sub {
+                    my ($self, $value) = @_;
+                    $self->object->_update_employment_manager;
+                },
             },
             managedAlsoBy  => {
@@ -126 +130 @@
                 can_values => sub {
                     my %uniq = map { $_ => 1 } grep { $_ }
-                    ($_[1] ? $_[1]->get_attributes('manager') : ()),
+                    ($_[1] ? $_[1]->get_attributes('managedBy') : ()),
                     $base->search_objects('user', 'active=*');
                     sort keys %uniq;
@@ -250 +254 @@
     }
 
-    
     if (my $filter = $self->get_field('autoMemberFilter')) {
         foreach ($self->base->search_objects(
@@ -265 +268 @@
 }
 
+sub _update_employment_manager {
+    my ($self) = @_;
+
+    my $listEmp = $self->base->db->prepare(q{
+        select name from employment join employment_attributes
+            on employment.ikey = employment_attributes.okey
+        where firstday < now() and (lastday > now() or lastday is NULL)
+            and employment_attributes.attr = 'department' and employment_attributes.value = ?
+        });
+    $listEmp->execute($self->id);
+    while (my $res = $listEmp->fetchrow_hashref()) {
+        my $employment = $self->base->get_object('employment', $res->{name}) or next;
+        $employment->get_attributes('managerContact') and next;
+        my $dpmt  = $employment->_get_attributes('department') or next;
+        my $odmpt = $employment->base->get_object('group', $dpmt) or next;
+        my $manager = $odmpt->get_attributes('managedBy') or next;
+        my $user = $employment->get_attributes('user');
+        my $ouser = $employment->base->get_object('user', $user) or next;
+        $self->base->log(LA_DEBUG, "Updating manager for $user due to dpmt update");
+        $ouser->ReportChange(
+            'Update', 'Attr manager updated to match Dpmt manager %s (%s)',
+            $manager,
+            $dpmt,
+        );
+        $ouser->set_fields('managerContact', $manager);
+    }
+
+    return 1;
+}
+
 1;
 

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

@@ -1085 +1085 @@
                 can_values => sub {
                     my %uniq = map { $_ => 1 } grep { $_ }
-                    ($_[1] ? $_[1]->get_attributes('managerContact') : ()),
-                    $base->search_objects('user', 'active=1');
+                    (($_[1] ? $_[1]->get_attributes('managerContact') : ()),
+                    $base->search_objects('user', 'active=1'));
                     sort keys %uniq;
                 },