Changeset 2323

Timestamp:

12/16/19 14:20:13 (4 years ago)

Author:

nanardon

Message:

Set export to account with incomming status

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Employment.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Employment.pm

@@ -38 +38 @@
 sub run {
     my ($self) = @_;
+
+
+    # Export user is employement is incoming
+    foreach my $user ($self->{_base}->search_objects('user',
+            'exported=0',
+            'arrival>now()'
+        )) {
+            my $ouser = $self->{_base}->get_object('user', $user);
+            if ($ouser->_set_c_fields( 'exported', 1 )) {
+                $self->{_base}->commit;
+            } else {
+                $self->{_base}->rollback;
+            }
+    }
 
     my %users = map { $_ => undef } $self->{_base}->search_objects('user', 'exported=true');