Changeset 2837

Timestamp:

2001-11-22T11:38:42+13:00 (22 years ago)

Author:

sjboddie

Message:

added hlist_at_top option to Hierarchy classifier

File:

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

trunk/gsdl/perllib/classify/Hierarchy.pm

@@ -38 +38 @@
 #                     Title field for this classification. if not present it
 #                     defaults to Metaname
+# -hlist_at_top      - use a horizontal list for the top level (i.e. display it
+#                     like an AZList classification)
 
 package Hierarchy;
@@ -64 +66 @@
 
    -sort X        Metadata field to sort by (defaults to none)
+
+   -hlist_at_top  Display the first level of the classification
+                  horizontally.
 ";
 }
@@ -73 +78 @@
     
     my $sortname = "Title";
-    my ($hfile, $metadata, $title);
+    my ($hfile, $metadata, $title, $hlist_at_top);
 
     if (!parsargv::parse(\@_, 
@@ -80 +85 @@
              q^hfile/.*/^, \$hfile,
              q^metadata/.*/^, \$metadata,
+             q^hlist_at_top^, \$hlist_at_top,
              "allow_extra_options")) {
     
@@ -122 +128 @@
     $self->{'sortname'} = $sortname;
     $self->{'title'} = $title;
+    $self->{'hlist_at_top'} = $hlist_at_top;
     
     return bless $self, $class;
@@ -185 +192 @@
     my $list = $self->{'locatorlist'};
 
-    my $classifyinfo = $self->get_entry ($self->{'title'}, "VList", "Invisible");
+    my ($classifyinfo);
+    if ($self->{'hlist_at_top'}) {
+    $classifyinfo = $self->get_entry ($self->{'title'}, "HList", "Invisible");
+    } else {
+    $classifyinfo = $self->get_entry ($self->{'title'}, "VList", "Invisible");
+    }
+
     foreach $OID (keys (%$list)) {