Changeset 23116 for main/trunk/greenstone2/perllib/classify/SimpleList.pm
- Timestamp:
- 2010-10-12T13:55:07+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/SimpleList.pm
r20654 r23116 128 128 sub classify { 129 129 my $self = shift (@_); 130 my ($doc_obj , $edit_mode) = @_;130 my ($doc_obj) = @_; 131 131 132 132 my $doc_OID = $doc_obj->get_OID(); … … 139 139 } 140 140 141 if ($edit_mode eq "delete") {142 if ($nosort) {143 $self->oid_array_delete($doc_OID,'list');144 }145 else {146 $self->oid_hash_delete($doc_OID,'list');147 }148 return;149 }150 151 141 my $metavalue; 152 142 my $metaname;
Note:
See TracChangeset
for help on using the changeset viewer.