Changeset 18455 for gsdl/trunk/perllib/classify/List.pm
- Timestamp:
- 2009-02-03T09:46:33+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/List.pm
r17209 r18455 123 123 sub classify { 124 124 my $self = shift (@_); 125 my ($doc_obj ) = @_;125 my ($doc_obj, $edit_mode) = @_; 126 126 127 127 my $doc_OID = $doc_obj->get_OID(); 128 128 129 129 130 # are we sorting the list?? … … 133 134 } 134 135 136 if ($edit_mode eq "delete") { 137 if ($nosort) { 138 $self->oid_array_delete($doc_OID,'list'); 139 } 140 else { 141 $self->oid_hash_delete($doc_OID,'list'); 142 } 143 return; 144 } 145 135 146 my $metavalue; 136 147 my $metaname;
Note:
See TracChangeset
for help on using the changeset viewer.