Changeset 1839 for trunk/gsdl/perllib/classify/DateList.pm
- Timestamp:
- 2001-01-16T11:50:05+13:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/DateList.pm
r1483 r1839 41 41 } 42 42 43 sub print_usage { 44 print STDERR " 45 usage: classify DateList 46 47 Classifier plugin for sorting by date. 48 No options - always sorts by 'Date' metadata 49 Date is assumed to be in the form yyyymmdd 50 At present dates are split by year - this should change 51 52 Any errors are Dana's problem. 53 "; 54 } 55 43 56 sub new { 44 my ($class, @options) = @_;45 my $self = new BasClas 57 my $class = shift (@_); 58 my $self = new BasClas($class, @_); 46 59 47 60 $self->{'list'} = {};
Note:
See TracChangeset
for help on using the changeset viewer.