- Timestamp:
- 2010-10-12T13:55:07+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/AZCompactList.pm
r22038 r23116 184 184 { 185 185 my $self = shift (@_); 186 my ($doc_obj ,$edit_mode) = @_;186 my ($doc_obj) = @_; 187 187 188 188 my $doc_OID = $doc_obj->get_OID(); … … 215 215 my $full_doc_OID 216 216 = ($thissection ne "") ? "$doc_OID.$thissection" : $doc_OID; 217 218 if (($edit_mode eq "delete") || ($edit_mode eq "update")) {219 print $outhandle " Deleting $full_doc_OID for AZCompactList\n";220 delete $self->{'list'}->{$full_doc_OID};221 delete $self->{'listmetavalue'}->{$full_doc_OID};222 delete $self->{'list_mvpair'}->{$full_doc_OID};223 delete $self->{'reclassify'}->{$full_doc_OID};224 225 next if ($edit_mode eq "delete");226 }227 228 217 229 218 if (defined $self->{'list_mvpair'}->{$full_doc_OID})
Note:
See TracChangeset
for help on using the changeset viewer.