Changeset 11653
- Timestamp:
- 2006-04-19T13:23:41+12:00 (18 years ago)
- Location:
- trunk/gsdl/perllib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/DateList.pm
r11540 r11653 71 71 'desc' => "{DateList.nogroup}", 72 72 'type' => "flag", 73 'reqd' => "no" }, 74 { 'name' => "no_special_formatting", 75 'desc' => "{DateList.no_special_formatting}", 76 'type' => "flag", 73 77 'reqd' => "no" } 78 74 79 ]; 75 80 … … 108 113 $self->{'buttonname'} = $self->generate_title_from_metadata($self->{'metadata'}) unless ($self->{'buttonname'}); 109 114 115 $self->{'childtype'} = "DateList"; 116 if ($self->{'no_special_formatting'}) { 117 $self->{'childtype'} = "VList"; 118 } 119 110 120 return bless $self, $class; 111 121 } … … 194 204 195 205 if (scalar (@$classlistref) <= 39 && 196 !$self->{'nogroup'}) {$childtype = "DateList";}206 !$self->{'nogroup'}) {$childtype = $self->{'childtype'};} 197 207 198 208 my $classifyinfo = $self->get_entry ($self->{'buttonname'}, $childtype, "Invisible"); … … 253 263 $monthname="_textmonth" . $monthname . "_"; 254 264 } 255 my $monthclassify=$self->get_entry($monthname, "DateList");265 my $monthclassify=$self->get_entry($monthname, $self->{'childtype'}); 256 266 push (@{$yearclassify->{'contains'}}, $monthclassify); 257 267 … … 275 285 $monthname="_textmonth" . $monthname . "_"; 276 286 } 277 my $monthclassify=$self->get_entry($monthname, "DateList");287 my $monthclassify=$self->get_entry($monthname, $self->{'childtype'}); 278 288 push (@{$yearclassify->{'contains'}}, $monthclassify); 279 289 … … 311 321 if ($self->{'reverse_sort'} && $self->{'nogroup'} ) { 312 322 foreach my $subclass (reverse sort keys %$classhash) { 313 my $tempclassify = $self->get_entry($subclass, "DateList");323 my $tempclassify = $self->get_entry($subclass, $self->{'childtype'}); 314 324 foreach my $subsubOID (@{$classhash->{$subclass}}) { 315 325 push (@{$tempclassify->{'contains'}}, {'OID'=>$subsubOID}); … … 320 330 else{ 321 331 foreach my $subclass (sort keys %$classhash) { 322 my $tempclassify = $self->get_entry($subclass, "DateList");332 my $tempclassify = $self->get_entry($subclass, $self->{'childtype'}); 323 333 foreach my $subsubOID (@{$classhash->{$subclass}}) { 324 334 push (@{$tempclassify->{'contains'}}, {'OID'=>$subsubOID}); -
trunk/gsdl/perllib/strings.properties
r11633 r11653 438 438 DateList.nogroup:Make each year an individual entry in the horizontal list, instead of spanning years with few entries. (This can also be used with the -bymonth option to make each month a separate entry instead of merging). 439 439 440 DateList.no_special_formatting:Don't display Year and Month information in the document list. 441 440 442 DateList.sort:An extra metadata field to sort by in the case where two documents have the same date. 441 443
Note:
See TracChangeset
for help on using the changeset viewer.