Changeset 2288 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Object.pm

Timestamp:

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

Author:

nanardon

Message:

Add EmploymentSummary?() feature

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Object.pm (modified) (1 diff)

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') {