Changeset 23116 for main/trunk/greenstone2/perllib/classify/DateList.pm
- Timestamp:
- 2010-10-12T13:55:07+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/DateList.pm
r20828 r23116 133 133 sub classify { 134 134 my $self = shift (@_); 135 my ($doc_obj , $edit_mode) = @_;135 my ($doc_obj) = @_; 136 136 137 137 my $doc_OID = $doc_obj->get_OID(); … … 151 151 } 152 152 153 if (($edit_mode eq "delete") || ($edit_mode eq "update")) {154 $self->oid_hash_delete($doc_OID,'list');155 return if ($edit_mode eq "delete");156 }157 158 153 my $sort_other = ""; 159 154 if (defined $self->{'sort'} && $self->{'sort'} ne "") {
Note:
See TracChangeset
for help on using the changeset viewer.