- Timestamp:
- 12/16/19 14:20:13 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Employment.pm
r2032 r2323 38 38 sub run { 39 39 my ($self) = @_; 40 41 42 # Export user is employement is incoming 43 foreach my $user ($self->{_base}->search_objects('user', 44 'exported=0', 45 'arrival>now()' 46 )) { 47 my $ouser = $self->{_base}->get_object('user', $user); 48 if ($ouser->_set_c_fields( 'exported', 1 )) { 49 $self->{_base}->commit; 50 } else { 51 $self->{_base}->rollback; 52 } 53 } 40 54 41 55 my %users = map { $_ => undef } $self->{_base}->search_objects('user', 'exported=true');
Note: See TracChangeset
for help on using the changeset viewer.