Changeset 18455 for gsdl/trunk/perllib/classify/AllList.pm
- Timestamp:
- 2009-02-03T09:46:33+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/AllList.pm
r17209 r18455 72 72 sub classify { 73 73 my $self = shift (@_); 74 my ($doc_obj ) = @_;74 my ($doc_obj, $edit_mode) = @_; 75 75 76 76 my $doc_OID = $doc_obj->get_OID(); 77 77 78 push (@{$self->{'list'}}, $doc_OID); 78 if ($edit_mode eq "delete") { 79 $self->oid_array_delete($doc_OID,'list'); 80 } 81 else { 82 push (@{$self->{'list'}}, $doc_OID); 83 } 79 84 80 85 return;
Note:
See TracChangeset
for help on using the changeset viewer.