Changeset 4873 for trunk/gsdl/perllib/classify/List.pm
- Timestamp:
- 2003-07-03T15:59:04+12:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/List.pm
r4786 r4873 51 51 my $arguments = 52 52 [ { 'name' => "metadata", 53 'desc' => " Metadata field used for classification. List will be sorted by this element.",53 'desc' => "{List.metadata}", 54 54 'type' => "metadata", 55 'reqd' => "yes" } 55 'reqd' => "yes" }, 56 56 { 'name' => "buttonname", 57 'desc' => " Button name for this classification.",57 'desc' => "{List.buttonname}", 58 58 'type' => "string", 59 59 'deft' => "Metadata element specified with -metadata", 60 60 'reqd' => "no" }, 61 61 { 'name' => "sort", 62 'desc' => " Metadata field to sort by. If not set, sorts in build (random) order.",62 'desc' => "{List.sort}", 63 63 'type' => "string", 64 64 'deft' => "Metadata field specified with -metadata", … … 104 104 105 105 print STDERR "\nIncorrect options passed to $class, check your collect.cfg file\n"; 106 $self->print_txt_usage( );106 $self->print_txt_usage(""); # Use default resource bundle 107 107 die "\n"; 108 108 }
Note:
See TracChangeset
for help on using the changeset viewer.