Changeset 2080

Timestamp:

2001-02-27T17:16:51+13:00 (23 years ago)

Author:

jrm21

Message:

When creating nodes, now need to pass -buttonname instead of -title.

File:

• trunk/gsdl/perllib/classify/AZCompactList.pm (modified) (3 diffs)

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -136 +136 @@
     $self->{'reclassifylist'} = {};
     $self->{'metaname'} = $metaname;
-    $self->{'title'} = $title;
+    $self->{'title'} = "$title";     # title for the titlebar.
     $self->{'mingroup'} = $mingroup;
     $self->{'minnesting'} = $minnesting;
@@ -315 +315 @@
         my @args;
         push @args, ("-metadata", "$metaname");
-        push @args, ("-title", "$metavalue");
+# buttonname is also used for the node's title
+        push @args, ("-buttonname", "$metavalue");
         push @args, ("-sort", "Date");
 
@@ -333 +334 @@
         my @args;
         push @args, ("-metadata", "$metaname");
-        push @args, ("-title", "$metavalue");
+# buttonname is also used for the node's title
+        push @args, ("-buttonname", "$metavalue");
         push @args, ("-doclevel", "$doclevel");
         push @args, "-recopt";