Changeset 10621

Timestamp:

2005-09-22T17:04:58+12:00 (19 years ago)

Author:

kjdon

Message:

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

File:

• trunk/gsdl/perllib/classify/Hierarchy.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/Hierarchy.pm

@@ -53 +53 @@
     'desc' => "{Hierarchy.suppresslastlevel}",
     'type' => "flag",
-    'reqd' => "no" } ];
+    'reqd' => "no" },
+      { 'name' => "suppressfirstlevel",
+    'desc' => "{Hierarchy.suppressfirstlevel}",
+    'type' => "flag",
+    'reqd' => "no" }
+      ];
 
 my $options = { 'name'     => "Hierarchy",
@@ -95 +100 @@
     if ($self->{'suppresslastlevel'}) {
         pop(@chunks); # remove the last element from the end
+    }
+    if ($self->{'suppressfirstlevel'}) {
+        shift(@chunks);
     }
     foreach my $folderName (@chunks)