Changeset 19495

Show
Ignore:
Timestamp:
18.05.2009 10:59:18 (10 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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/classify/AZCompactList.pm

    r18566 r19495  
    183183 
    184184    my $doc_OID = $doc_obj->get_OID(); 
     185    my $outhandle = $self->{'outhandle'}; 
    185186 
    186187    my @sectionlist = (); 
    187188    my $topsection = $doc_obj->get_top_section(); 
    188189    my $metaname = $self->{'metadata'}; 
    189     my $outhandle = $self->{'outhandle'}; 
    190190 
    191191    $metaname =~ s/(\/|\|).*//; # grab first name in n1/n2/n3 or n1|n2|n3 list 
     
    212212        = ($thissection ne "") ? "$doc_OID.$thissection" : $doc_OID; 
    213213 
    214     if ($edit_mode eq "delete") { 
     214    if (($edit_mode eq "delete") || ($edit_mode eq "update")) { 
    215215        print $outhandle "  Deleting $full_doc_OID\n"; 
    216216        delete $self->{'list'}->{$full_doc_OID}; 
     
    219219        delete $self->{'reclassify'}->{$full_doc_OID}; 
    220220 
    221         next; 
     221        next if ($edit_mode eq "delete"); 
    222222    } 
    223223