Changeset 10621

Show
Ignore:
Timestamp:
22.09.2005 17:04:58 (14 years ago)
Author:
kjdon
Message:

added a suppressfirstlevel - use with e.g. gsdlsourcefilename to remove the import directory

Files:
1 modified

Legend:

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

    r10253 r10621  
    5353    'desc' => "{Hierarchy.suppresslastlevel}", 
    5454    'type' => "flag", 
    55     'reqd' => "no" } ]; 
     55    'reqd' => "no" }, 
     56      { 'name' => "suppressfirstlevel", 
     57    'desc' => "{Hierarchy.suppressfirstlevel}", 
     58    'type' => "flag", 
     59    'reqd' => "no" } 
     60      ]; 
    5661 
    5762my $options = { 'name'     => "Hierarchy", 
     
    95100    if ($self->{'suppresslastlevel'}) { 
    96101        pop(@chunks); # remove the last element from the end 
     102    } 
     103    if ($self->{'suppressfirstlevel'}) { 
     104        shift(@chunks); 
    97105    } 
    98106    foreach my $folderName (@chunks)