Changeset 1854 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Timestamp:

11/20/16 23:41:54 (8 years ago)

Author:

nanardon

Message:

Add contratTypeHistory attribute

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (4 diffs)

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

@@ -1318 +1318 @@
                 reference => 'employment',
             },
+            contratTypeHistory => {
+                reference => 'group',
+                can_values => sub {
+                    $base->search_objects('group', 'sutype=contrattype')
+                },
+                multiple => 1,
+            },
             hosted => {
                 formtype => 'CHECKBOX',
@@ -1358 +1365 @@
     };
 
-    foreach (qw(contratType managerContact company endcircuit department hosted)) {
+    foreach (qw(contratType managerContact company endcircuit department hosted
+                contratTypeHistory)) {
         $attrs->{$_}{ro} = $employmentro;
     }
@@ -1521 +1529 @@
         $self->set_fields(%changes);
     }
+
+    $self->_computeEmploymentHistory();
 
     return 1;
@@ -1647 +1657 @@
 }
 
+sub _computeEmploymentHistory {
+    my ($self) = @_;
+
+    my %changes;
+
+    foreach my $attribute (qw(contratType)) {
+        my $sth = $self->db->prepare_cached(q{
+            select employment_attributes.value from employment
+            join employment_attributes
+            on employment.ikey = employment_attributes.okey
+            where "user" = ? and employment_attributes.attr = ?
+            and employment.firstday < now()
+            group by employment_attributes.value
+            });
+        $sth->execute($self->id, $attribute);
+        my @values;
+        while (my $res = $sth->fetchrow_hashref) {
+            push(@values, $res->{value});
+        }
+        $changes{$attribute . "History"} = \@values;
+    }
+
+    $self->set_fields(%changes);
+}
+
 =head2 storeBannedPassword($epassword)