Changeset 9133

Timestamp:

2005-02-22T14:35:18+13:00 (19 years ago)

Author:

mdewsnip

Message:

Added the "-hlist_at_top" option from Hierarchy.

File:

• trunk/gsdl/perllib/classify/AutoHierarchy.pm (modified) (4 diffs)

trunk/gsdl/perllib/classify/AutoHierarchy.pm

@@ -69 +69 @@
     'desc' => "{AutoHierarchy.suppresslastlevel}",
     'type' => "flag",
-    'reqd' => "no" }
-      ];
+    'reqd' => "no" },
+      { 'name' => "hlist_at_top",
+    'desc' => "{Hierarchy.hlist_at_top}",
+    'type' => "flag",
+    'reqd' => "no" } ];
 
 my $options = { 'name'     => "AutoHierarchy",
@@ -105 +108 @@
              q^allvalues^, \$allvalues,
              q^suppresslastlevel^, \$suppresslastlevel,
+             q^hlist_at_top^, \$hlist_at_top,
              "allow_extra_options")) {
     
@@ -128 +132 @@
     $buttonname = $self->generate_title_from_metadata($metadata) unless ($buttonname);
     $self->{'title'} = $buttonname;
-
-    if ($firstvalueonly != 0) {
-    $firstvalueonly = 1;
-    }
     $self->{'firstvalueonly'} = $firstvalueonly;
-  
-    if ($allvalues != 0) {
-    $allvalues = 1;
-    }
     $self->{'allvalues'} = $allvalues;
-
-    if ($suppresslastlevel != 0) {
-    $suppresslastlevel = 1;
-    }
     $self->{'suppresslastlevel'} = $suppresslastlevel;
+    $self->{'hlist_at_top'} = $hlist_at_top;
 
     # sortname is handled a bit differently - kjdon
@@ -344 +337 @@
 
     if ($self->{'path_hash'}) {
-    $classification = $self->get_entry ($self->{'title'}, "VList", "Invisible");
+    if ($self->{'hlist_at_top'}) {
+        $classification = $self->get_entry ($self->{'title'}, "HList", "Invisible");
+    }
+    else {
+        $classification = $self->get_entry ($self->{'title'}, "VList", "Invisible");
+    }
     }