Changeset 7177 for trunk

Timestamp:

2004-04-02T15:01:28+12:00 (20 years ago)

Author:

kjdon

Message:

when I chaged the options names to metadata and sort, I forgot to change them where you actually parse the args :-(. ooops.

File:

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

trunk/gsdl/perllib/classify/DateList.pm

@@ -26 +26 @@
 # classifier plugin for sorting by date
 
-# always sorts by 'Date' metadata
-
 # date is assumed to be in the form yyyymmdd
 
 # at present dates are split by year - this should change
 # jrm21 - added option "bymonth", which splits by year and month.
-
-# 12/05/02 Added usage datastructure - John Thompson
 
 # 23/09/03 Added some more options -kjdon.
@@ -39 +35 @@
 # -nogroup, which makes each year (or year+month) an individual entry in 
 # the horizontal list and prevents compaction
-# -datemeta, use a different metadata for the date (instead of Date), still expects yyyymmdd format. this affects display cos greenstone displays Date metadata as dd month yyyy, whereas any other date metadata is displayed as yyyymmdd - this needs fixing
-# -sortmeta specifies an additional metadata to use in sorting, will take affect when two docs have the same date.
+# -metadata, use a different metadata for the date (instead of Date), still expects yyyymmdd format. this affects display cos greenstone displays Date metadata as dd month yyyy, whereas any other date metadata is displayed as yyyymmdd - this needs fixing
+# -sort specifies an additional metadata to use in sorting, will take affect when two docs have the same date.
 
 package DateList;
@@ -99 +95 @@
                          q^bymonth^, \$self->{'bymonth'},
              q^nogroup^, \$self->{'nogroup'},
-             q^datemeta/.*/^, \$datemeta,
-             q^sortmeta/.*/^, \$sortmeta,
+             q^metadata/.*/^, \$datemeta,
+             q^sort/.*/^, \$sortmeta,
                          "allow_extra_options")) {
     $self->print_txt_usage("");  # Use default resource bundle