Changeset 4413


Ignore:
Timestamp:
2003-05-30T11:39:27+12:00 (19 years ago)
Author:
sjboddie
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/niupepa/perllib/classify/NPepaList.pm

    r1023 r4413  
    7878
    7979
     80sub 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
    8089sub get_classify_info {
    8190    my $self = shift (@_);
     
    8392    my $classifyinfo = $self->get_entry ('Series', 'VList', 'Invisible');
    8493
    85     foreach $series (sort keys %{$self->{'list'}}) {
     94    foreach $series (sort bydate keys %{$self->{'list'}}) {
    8695    my $cinfo = $self->get_entry ($series, 'VList');
    8796    foreach $OID (sort {$self->{'list'}->{$series}->{$a}
Note: See TracChangeset for help on using the changeset viewer.