Show
Ignore:
Timestamp:
11.02.2009 17:42:17 (11 years ago)
Author:
davidb
Message:

Had to move location of where deletion of archive files was done

Files:
1 modified

Legend:

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

    r18455 r18508  
    233233    return if (!$classify_section); 
    234234 
    235     if ($edit_mode eq "delete") { 
     235 
     236    if (($edit_mode eq "delete") || ($edit_mode eq "update")) { 
    236237    $self->oid_array_delete($section_OID,'OIDs'); 
    237     return; 
     238    if ($edit_mode eq "delete") { 
     239        return; 
     240    } 
    238241    } 
    239242