Changeset 8647

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.

Location:

trunk/gsdl/perllib

Files:

• classify/DateList.pm (modified) (3 diffs)
• strings.rb (modified) (2 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);

trunk/gsdl/perllib/strings.rb

@@ -405 +405 @@
 DateList.metadata:The metadata that contains the dates to classify by. The format is expected to be yyyymmdd.
 
+DateList.newest_first:Sort the documents in reverse chronological order (newest first).
+
 DateList.nogroup:Make each year an individual entry in the horizontal list, instead of spanning years with few entries. (This can also be used with the -bymonth option to make each month a separate entry instead of merging).
 
@@ -636 +638 @@
 
 ISISPlug.entry_separator:The string used to separate multiple values for single metadata fields in CDS/ISIS database records.
+
+ISISPlug.explode_databases:Explode databases processed by this plugin into individual records with editable metadata. This is an irreversible process and the original database files will be deleted.
 
 ISISPlug.document_field:The metadata element specifying the file name of documents to obtain and include in the collection.