Changeset 4413 for trunk/niupepa
- Timestamp:
- 2003-05-30T11:39:27+12:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/niupepa/perllib/classify/NPepaList.pm
r1023 r4413 78 78 79 79 80 sub bydate { 81 # series names are expected to end with their date 82 my ($adate) = $a =~ /([\d-]+)$/; 83 my ($bdate) = $b =~ /([\d-]+)$/; 84 $adate =~ s/-\d+$//; 85 $bdate =~ s/-\d+$//; 86 return $adate <=> $bdate; 87 } 88 80 89 sub get_classify_info { 81 90 my $self = shift (@_); … … 83 92 my $classifyinfo = $self->get_entry ('Series', 'VList', 'Invisible'); 84 93 85 foreach $series (sort keys %{$self->{'list'}}) {94 foreach $series (sort bydate keys %{$self->{'list'}}) { 86 95 my $cinfo = $self->get_entry ($series, 'VList'); 87 96 foreach $OID (sort {$self->{'list'}->{$series}->{$a}
Note:
See TracChangeset
for help on using the changeset viewer.