Changeset 18522 for gsdl

Show
Ignore:
Timestamp:
16.02.2009 11:53:21 (11 years ago)
Author:
davidb
Message:

Support for deleting and updating classifier information

Files:
1 modified

Legend:

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

    r18455 r18522  
    9090    my $doc_OID = $doc_obj->get_OID(); 
    9191 
    92     if ($edit_mode eq "delete") { 
     92    if (($edit_mode eq "delete") || ($edit_mode eq "update")) { 
    9393    if ($nosort) { 
    9494        $self->oid_array_delete($doc_OID,'docs'); 
     
    9797        $self->oid_hash_delete($doc_OID,'docs'); 
    9898    } 
    99     return; 
     99    return if ($edit_mode eq "delete"); 
    100100    } 
    101101