Changeset 3302

Timestamp:

2002-07-31T03:41:10+12:00 (22 years ago)

Author:

davidb

Message:

Classifier modified so it does not include A-Z letters at top of
page if entire set of documents fits on to one page.

File:

• trunk/gsdl/perllib/classify/AZCompactList.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -602 +602 @@
     foreach $subclass (@tmparr) 
     {
-    my $tempclassify = $self->get_entry($subclass, "VList", $metaname);
+    my $tempclassify 
+        = (scalar(@tmparr)==1) 
+        ? ($self->get_entry(" ", "VList", $metaname))
+        : ($self->get_entry($subclass, "VList", $metaname));
+
+
     foreach $subsubOID (@{$classhash->{$subclass}}) 
     {