- Timestamp:
- 2009-05-18T10:59:18+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/AZCompactList.pm
r18566 r19495 183 183 184 184 my $doc_OID = $doc_obj->get_OID(); 185 my $outhandle = $self->{'outhandle'}; 185 186 186 187 my @sectionlist = (); 187 188 my $topsection = $doc_obj->get_top_section(); 188 189 my $metaname = $self->{'metadata'}; 189 my $outhandle = $self->{'outhandle'};190 190 191 191 $metaname =~ s/(\/|\|).*//; # grab first name in n1/n2/n3 or n1|n2|n3 list … … 212 212 = ($thissection ne "") ? "$doc_OID.$thissection" : $doc_OID; 213 213 214 if ( $edit_mode eq "delete") {214 if (($edit_mode eq "delete") || ($edit_mode eq "update")) { 215 215 print $outhandle " Deleting $full_doc_OID\n"; 216 216 delete $self->{'list'}->{$full_doc_OID}; … … 219 219 delete $self->{'reclassify'}->{$full_doc_OID}; 220 220 221 next ;221 next if ($edit_mode eq "delete"); 222 222 } 223 223
Note:
See TracChangeset
for help on using the changeset viewer.