Changeset 23116 for main/trunk/greenstone2/perllib/classify/AZList.pm
- Timestamp:
- 2010-10-12T13:55:07+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/AZList.pm
r20428 r23116 121 121 sub classify { 122 122 my $self = shift (@_); 123 my ($doc_obj ,$edit_mode) = @_;123 my ($doc_obj) = @_; 124 124 125 125 my $doc_OID = $doc_obj->get_OID(); 126 126 my $outhandle = $self->{'outhandle'}; 127 128 if (($edit_mode eq "delete") || ($edit_mode eq "update")) {129 $self->oid_hash_delete($doc_OID,'list');130 return if ($edit_mode eq "delete");131 }132 127 133 128 my $metavalue;
Note:
See TracChangeset
for help on using the changeset viewer.