Changeset 18522 for gsdl


Ignore:
Timestamp:
02/16/09 11:53:21 (12 years ago)
Author:
davidb
Message:

Support for deleting and updating classifier information

File:
1 edited

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