Changeset 1801 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts
- Timestamp:
- 06/28/16 16:17:08 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Unexportexpired.pm
r1746 r1801 32 32 sub init { 33 33 my ($self) = @_; 34 my $LA = LATMOS::Accounts->new($self->{config} );34 my $LA = LATMOS::Accounts->new($self->{config}, noacl => 1); 35 35 my $labase = $self->{base} ? $LA->base($self->{base}) : $LA->base; 36 36 $labase && $labase->load or die "Cannot load base"; … … 53 53 $self->{_base}->search_objects($otype, 'exported=t', "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 la_log(LA_NOTICE, "Unexport %s/%s object due to expire (%s)", $otype, $name, $obj->_get_attributes('expire') ||''); 56 56 $obj->_set_c_fields(unexported => 1); 57 57 $self->{_base}->commit;
Note: See TracChangeset
for help on using the changeset viewer.