Changeset 19495


Ignore:
Timestamp:
05/18/09 10:59:18 (12 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:
1 edited

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
Note: See TracChangeset for help on using the changeset viewer.