Changeset 2378 for trunk

Timestamp:

06/02/20 23:34:10 (4 years ago)

Author:

nanardon

Message:

make user activation from employment working (enable unxported account)

File:

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

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

@@ -39 +39 @@
     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;
-            }
-    }
+    $self->{_base}->temp_switch_unexported( sub {
+        # 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;
+                }
+        }
+    }, 1 );
 
     my %users = map { $_ => undef } $self->{_base}->search_objects('user', 'exported=true');