Changeset 2288 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Timestamp:

10/03/19 01:22:25 (5 years ago)

Author:

nanardon

Message:

Add EmploymentSummary?() feature

File:

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

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

@@ -12 +12 @@
 use DateTime;
 use DateTime::TimeZone;
+use DateTime::Format::Pg;
 use base qw(LATMOS::Accounts::Bases::Sql::objects);
 use LATMOS::Accounts::I18N;
@@ -2092 +2093 @@
 }
 
+=head2 EmploymentSummary
+
+Return an array of employment information group by successive contratType
+
+=cut
+
+sub EmploymentSummary {
+    my ( $self ) = @_;
+
+    my $sth = $self->db->prepare_cached(q{
+        select employment.name from employment
+        where "user" = ? order by employment.firstday asc
+    });
+    $sth->execute($self->id);
+    my @values;
+    my $prevContrat = ':';
+    my $prevEnd = undef;
+    while (my $res = $sth->fetchrow_hashref) {
+        my $Emp = $self->base->get_object('employment', $res->{name});
+
+        my $new = 0;
+
+        my $curContrat  = $Emp->get_attributes('contratType') || '';
+        my $DTfirstday  = DateTime::Format::Pg->parse_datetime( $Emp->get_attributes('firstday') );
+
+        if ($curContrat ne $prevContrat) {
+            $new = 1;
+        }
+        if ($prevEnd) {
+            if ($DTfirstday->epoch - $prevEnd->epoch > 86400 * 2) {
+                $new = 1;
+            }
+        }
+        if (!@values) {
+            $new = 1;
+        }
+
+        if ( my $lastday = $Emp->get_attributes('lastday') ) {
+            $prevEnd = DateTime::Format::Pg->parse_datetime( $lastday );
+        }
+
+        if ( $new ) {
+            $prevContrat = $curContrat;
+            push(
+                @values,
+                {
+                    firstday => $DTfirstday->ymd('-'),
+                    lastday  => $prevEnd ? $prevEnd->ymd('-') : undef,
+                    contratType => $curContrat,
+                }
+            );
+        } else {
+            $values[-1]->{lastday} = $prevEnd ? $prevEnd->ymd('-') : undef;
+        }
+    }
+
+    @values
+}
+
 =head2 storeBannedPassword($epassword)