Changeset 17209 for gsdl/trunk/perllib/classify/DateList.pm
- Timestamp:
- 2008-09-08T12:35:53+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/DateList.pm
r12891 r17209 40 40 package DateList; 41 41 42 use Bas Clas;42 use BaseClassifier; 43 43 use sorttools; 44 44 … … 47 47 48 48 sub BEGIN { 49 @DateList::ISA = ('Bas Clas');49 @DateList::ISA = ('BaseClassifier'); 50 50 } 51 51 … … 91 91 push(@$classifierslist, $class); 92 92 93 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}94 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};95 96 my $self = new Bas Clas($classifierslist, $inputargs, $hashArgOptLists);93 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 94 push(@{$hashArgOptLists->{"OptList"}},$options); 95 96 my $self = new BaseClassifier($classifierslist, $inputargs, $hashArgOptLists); 97 97 98 98 if ($self->{'info_only'}) {
Note:
See TracChangeset
for help on using the changeset viewer.