Changeset 4413 for trunk/niupepa

Timestamp:

2003-05-30T11:39:27+12:00 (21 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/niupepa/perllib/classify/NPepaList.pm (modified) (2 diffs)

trunk/niupepa/perllib/classify/NPepaList.pm

@@ -78 +78 @@
 
 
+sub bydate {
+    # series names are expected to end with their date
+    my ($adate) = $a =~ /([\d-]+)$/;
+    my ($bdate) = $b =~ /([\d-]+)$/;
+    $adate =~ s/-\d+$//;
+    $bdate =~ s/-\d+$//;
+    return $adate <=> $bdate;
+}
+
 sub get_classify_info {
     my $self = shift (@_);
@@ -83 +92 @@
     my $classifyinfo = $self->get_entry ('Series', 'VList', 'Invisible');
 
-    foreach $series (sort keys %{$self->{'list'}}) {
+    foreach $series (sort bydate keys %{$self->{'list'}}) {
     my $cinfo = $self->get_entry ($series, 'VList');
     foreach $OID (sort {$self->{'list'}->{$series}->{$a}