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

Timestamp:

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

Author:

nanardon

Message:

Add EmploymentSummary?() feature

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Bases/Sql/User.pm (modified) (2 diffs)
• Cli/Object.pm (modified) (1 diff)

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)
 

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Object.pm

@@ -639 +639 @@
         });
 
+        $self->add_func('summary', {
+            code => sub {
+                my $env = shift;
+
+                foreach my $obj (@{$env->{_objects}}) {
+                    print $obj->id . "\n";
+                    foreach my $emp ($obj->EmploymentSummary) {
+                        printf("    %s - %s %s\n",
+                            $emp->{firstday},
+                            $emp->{lastday} || '        ',
+                            $emp->{contratType}
+                        );
+                    }
+                }
+                return 1;
+            },
+            completion => sub {
+                return (qw(-f --force -r --random -p --syl -l -o));
+            },
+        });
+
+        
+
     } elsif ($self->otype eq 'group') {