Changeset 22220
- Timestamp:
- 2010-06-02T13:41:53+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/AllList.pm
r18455 r22220 73 73 my $self = shift (@_); 74 74 my ($doc_obj, $edit_mode) = @_; 75 75 76 76 my $doc_OID = $doc_obj->get_OID(); 77 77 78 78 if ($edit_mode eq "delete") { 79 79 $self->oid_array_delete($doc_OID,'list'); 80 81 } 82 elsif ($edit_mode eq "update") { 83 # do nothing. Doc is already in the list. Is the order important?? 80 84 } 81 85 else {
Note:
See TracChangeset
for help on using the changeset viewer.