Changeset 19495

Timestamp:

2009-05-18T10:59:18+12:00 (15 years ago)

Author:

davidb

Message:

Minor bug fix (needed to test for 'update' mode as well as 'delete' mode) to support incremental building of this classifier

File:

• gsdl/trunk/perllib/classify/AZCompactList.pm (modified) (3 diffs)

gsdl/trunk/perllib/classify/AZCompactList.pm

@@ -183 +183 @@
 
     my $doc_OID = $doc_obj->get_OID();
+    my $outhandle = $self->{'outhandle'};
 
     my @sectionlist = ();
     my $topsection = $doc_obj->get_top_section();
     my $metaname = $self->{'metadata'};
-    my $outhandle = $self->{'outhandle'};
 
     $metaname =~ s/(\/|\|).*//; # grab first name in n1/n2/n3 or n1|n2|n3 list
@@ -212 +212 @@
         = ($thissection ne "") ? "$doc_OID.$thissection" : $doc_OID;
 
-    if ($edit_mode eq "delete") {
+    if (($edit_mode eq "delete") || ($edit_mode eq "update")) {
         print $outhandle "  Deleting $full_doc_OID\n";
         delete $self->{'list'}->{$full_doc_OID};
@@ -219 +219 @@
         delete $self->{'reclassify'}->{$full_doc_OID};
 
-        next;
+        next if ($edit_mode eq "delete");
     }