Changeset 6281

Timestamp:

2003-12-16T16:44:24+13:00 (20 years ago)

Author:

mdewsnip

Message:

Added a "-sort" argument to allow the child nodes to be sorted by metadata value.

File:

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

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -66 +66 @@
     'deft' => "{AZCompactList.metadata.deft}",
     'reqd' => "no" },
+      { 'name' => "sort",
+    'desc' => "{AZCompactList.sort}",
+    'type' => "string",
+    'deft' => "Title",
+    'reqd' => "no" },
       { 'name' => "removeprefix",
     'desc' => "{AZCompactList.removeprefix}",
@@ -149 +154 @@
 
     my ($metaname, $title, $removeprefix, $removesuffix);
+    my $sortname = "Title";
     my $mingroup = 2;
     my $minnesting = 20;
@@ -158 +164 @@
     my $recopt   = undef;
 
-     if (!parsargv::parse(\@_, 
+    if (!parsargv::parse(\@_, 
              q^metadata/.*/^, \$metaname,
              q^buttonname/.*/^, \$title,
+             q^sort/.*/^, \$sortname,
              q^removeprefix/.*/^, \$removeprefix,
              q^removesuffix/.*/^, \$removesuffix,
@@ -193 +200 @@
     $self->{'metaname'} = $metaname;
     $self->{'title'} = "$title";     # title for the titlebar.
+    $self->{'sortname'} = $sortname;
     if (defined($removeprefix) && $removeprefix) {
     $removeprefix =~ s/^\^//; # don't need a leading ^
@@ -411 +419 @@
         # buttonname is also used for the node's title
         push @args, ("-buttonname", "$metavalue");
-        push @args, ("-sort", "Date");
+        push @args, ("-sort", $self->{'sortname'});
 
         if ($doclevel =~ m/^top(level)?/i)