- Timestamp:
- 2010-10-12T13:55:07+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/RecentDocumentsList.pm
r20454 r23116 126 126 sub classify { 127 127 my $self = shift (@_); 128 my ($doc_obj ,$edit_mode) = @_;128 my ($doc_obj) = @_; 129 129 130 130 my $doc_OID = $doc_obj->get_OID(); … … 132 132 if (!defined $lastmodified || $lastmodified eq "") { 133 133 print $self->{'outhandle'}, "RecentDocumentsList: $doc_OID has no lastmodified metadata, not classifying\n"; 134 return;135 }136 137 if ($edit_mode eq "delete") {138 $self->oid_hash_delete($doc_OID,'list');139 134 return; 140 135 }
Note:
See TracChangeset
for help on using the changeset viewer.