Ignore:
Timestamp:
2003-06-23T14:27:08+12:00 (21 years ago)
Author:
mdewsnip
Message:

Tidied up 'options' and 'arguments' structures (representing the options of the plugin) in preparation for removing the print_usage() routines.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/classify/DateList.pm

    r3540 r4759  
    4444}
    4545
    46 my $arguments = 
    47 [ {     'name' => "bymonth",
     46my $arguments =
     47    [ { 'name' => "bymonth",
    4848    'desc' => "Classify by year and month.",
    4949    'type' => "flag",
    50     'reqd' => "no" }
    51 ];
    52 
    53 my $options =
    54 {   'name'     => "DateList",
    55     'desc'     => "Classifier plugin for sorting by date. Always sorts by 'Date' metadata. Date is assumed to be in the form yyyymmdd.",
    56     'inherits' => "Yes",
    57     'args'     => $arguments };
     50    'reqd' => "no" } ];
     51
     52my $options = { 'name'     => "DateList",
     53        'desc'     => "Classifier plugin for sorting by date. Always sorts by 'Date' metadata. Date is assumed to be in the form yyyymmdd.",
     54        'inherits' => "Yes",
     55        'args'     => $arguments };
    5856
    5957sub print_usage {
Note: See TracChangeset for help on using the changeset viewer.