Changeset 1716

Timestamp:

2000-11-29T15:27:32+13:00 (23 years ago)

Author:

jrm21

Message:

minor change to allow the -title option to display correctly on HTML page.

File:

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

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -471 +471 @@
     if (!defined($self->{'recopt'}))
     {
-    my $title = $metaname;
+    my $title = $self->{'title'}; # should always be defined by now....
+    $title = $metaname unless defined $title; 
     $classifyinfo 
-        = $self->get_entry ($metaname, $childtype, $metaname, "Invisible");
+        = $self->get_entry ($title, $childtype, $metaname, "Invisible");
     }
     else