Changeset 8885

Timestamp:

2005-01-11T15:31:54+13:00 (19 years ago)

Author:

mdewsnip

Message:

Ooops... fixed up a mismatch between the name of an option and how it was actually parsed.

File:

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

trunk/gsdl/perllib/classify/DateList.pm

@@ -100 +100 @@
              q^metadata/.*/^, \$datemeta,
              q^sort/.*/^, \$sortmeta,
-             q^newest_first^, \$self->{'newest_first'},
+             q^reverse_sort^, \$self->{'reverse_sort'},
                          "allow_extra_options")) {
     $self->print_txt_usage("");  # Use default resource bundle
@@ -151 +151 @@
     my $self = shift (@_);
 
-    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'}};
+    my @classlist = sort {$self->{'list'}->{$a} cmp $self->{'list'}->{$b};} keys %{$self->{'list'}};
+    if ($self->{'reverse_sort'}) {
+    @classlist = reverse @classlist;
     }