Changeset 1745 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts
- Timestamp:
- 03/30/16 16:02:42 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Unexportexpired.pm
r1740 r1745 53 53 $self->{_base}->search_objects($otype, 'exported=t', 'expire=*', "expire<$nowtext")) { 54 54 my $obj = $self->{_base}->get_object($otype, $name); 55 la_log(LA_NOTICE, "Unexport %s/%s object due to expire (%s)", $otype, $name, $obj->get_attributes('expire') ||''); 55 56 $obj->_set_c_fields(unexported => 1); 56 la_log(LA_NOTICE, "Unexport %s/%s object due to expire (%s)", $otype, $name, $obj->get_attributes('expire'));57 57 $self->{_base}->commit; 58 58 }
Note: See TracChangeset
for help on using the changeset viewer.