Changeset 6635 for trunk/gsdl/perllib/classify/DateList.pm
- Timestamp:
- 2004-01-28T14:41:31+13:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/DateList.pm
r6408 r6635 159 159 my %classifyinfo = ('childtype'=>$childtype, 160 160 'Title'=>$title, 161 'contains'=>[]); 161 'contains'=>[], 162 'mdtype'=>$self->{'datemeta'}); 162 163 $classifyinfo{'thistype'} = $thistype 163 164 if defined $thistype && $thistype =~ /\w/; … … 179 180 !$self->{'nogroup'}) {$childtype = "DateList";} 180 181 my $classifyinfo = $self->get_entry ("Date", $childtype, "Invisible"); 181 182 182 # don't need to do any splitting if there are less than 39 (max + min -1) 183 183 # classifications, unless nogroup is specified … … 242 242 push (@{$classifyinfo->{'contains'}}, $yearclassify); 243 243 } 244 # not sure if this is needed... AZCompactList has it :p245 $classifyinfo->{'mdtype'}=$self->{'datemeta'};246 244 return $classifyinfo; 247 245 } # nogroup
Note:
See TracChangeset
for help on using the changeset viewer.