Changeset 8647 for trunk/gsdl/perllib/classify/DateList.pm

Timestamp:

2004-11-24T11:57:29+13:00 (19 years ago)

Author:

mdewsnip

Message:

Added a "-newest_first" option to DateList for reverse chronological sorting.

File:

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

trunk/gsdl/perllib/classify/DateList.pm

@@ -65 +65 @@
     'type' => "flag",
     'reqd' => "no" },
-
+      { 'name' => "newest_first",
+    'desc' => "{DateList.newest_first}",
+    'type' => "flag",
+    'reqd' => "no" }
       ];
 
@@ -97 +100 @@
              q^metadata/.*/^, \$datemeta,
              q^sort/.*/^, \$sortmeta,
+             q^newest_first^, \$self->{'newest_first'},
                          "allow_extra_options")) {
     $self->print_txt_usage("");  # Use default resource bundle
@@ -147 +151 @@
     my $self = shift (@_);
 
-    my @classlist = sort {$self->{'list'}->{$a} cmp $self->{'list'}->{$b};} keys %{$self->{'list'}};
+    my @classlist;
+    if ($self->{'newest_first'}) {
+    @classlist = sort {$self->{'list'}->{$b} cmp $self->{'list'}->{$a};} keys %{$self->{'list'}};
+    }
+    else {
+    @classlist = sort {$self->{'list'}->{$a} cmp $self->{'list'}->{$b};} keys %{$self->{'list'}};
+    }
 
     return $self->splitlist (\@classlist);