Changeset 18455 for gsdl/trunk/perllib/classify/DateList.pm
- Timestamp:
- 2009-02-03T09:46:33+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/DateList.pm
r17209 r18455 129 129 sub classify { 130 130 my $self = shift (@_); 131 my ($doc_obj ) = @_;131 my ($doc_obj, $edit_mode) = @_; 132 132 133 133 my $doc_OID = $doc_obj->get_OID(); … … 147 147 } 148 148 149 if ($edit_mode eq "delete") { 150 $self->oid_hash_delete($doc_OID,'list'); 151 return; 152 } 153 149 154 my $sort_other = ""; 150 155 if (defined $self->{'sort'} && $self->{'sort'} ne "") {
Note:
See TracChangeset
for help on using the changeset viewer.