Changeset 18455 for gsdl/trunk/perllib/classify/AZList.pm
- Timestamp:
- 2009-02-03T09:46:33+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/AZList.pm
r17209 r18455 119 119 sub classify { 120 120 my $self = shift (@_); 121 my ($doc_obj ) = @_;121 my ($doc_obj,$edit_mode) = @_; 122 122 123 123 my $doc_OID = $doc_obj->get_OID(); 124 124 my $outhandle = $self->{'outhandle'}; 125 126 if ($edit_mode eq "delete") { 127 $self->oid_hash_delete($doc_OID,'list'); 128 return; 129 } 125 130 126 131 my $metavalue;
Note:
See TracChangeset
for help on using the changeset viewer.