Changeset 18455 for gsdl/trunk/perllib/classify/RecentDocumentsList.pm
- Timestamp:
- 2009-02-03T09:46:33+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/RecentDocumentsList.pm
r17209 r18455 124 124 sub classify { 125 125 my $self = shift (@_); 126 my ($doc_obj ) = @_;126 my ($doc_obj,$edit_mode) = @_; 127 127 128 128 my $doc_OID = $doc_obj->get_OID(); … … 130 130 if (!defined $lastmodified || $lastmodified eq "") { 131 131 print $self->{'outhandle'}, "RecentDocumentsList: $doc_OID has no lastmodified metadata, not classifying\n"; 132 return; 133 } 134 135 if ($edit_mode eq "delete") { 136 $self->oid_hash_delete($doc_OID,'list'); 132 137 return; 133 138 }
Note:
See TracChangeset
for help on using the changeset viewer.