Changeset 23116 for main/trunk/greenstone2/perllib/classify/AllList.pm
- Timestamp:
- 2010-10-12T13:55:07+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/AllList.pm
r22220 r23116 72 72 sub classify { 73 73 my $self = shift (@_); 74 my ($doc_obj , $edit_mode) = @_;74 my ($doc_obj) = @_; 75 75 76 76 my $doc_OID = $doc_obj->get_OID(); 77 77 78 if ($edit_mode eq "delete") { 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?? 84 } 85 else { 86 push (@{$self->{'list'}}, $doc_OID); 87 } 88 78 push (@{$self->{'list'}}, $doc_OID); 79 89 80 return; 90 81 }
Note:
See TracChangeset
for help on using the changeset viewer.