Changeset 2631

Timestamp:

2001-07-09T19:11:26+12:00 (23 years ago)

Author:

jrm21

Message:

Don't assume funny dates are 20th C - eg 101 -> 19101 - add to 1900 instead.

File:

• trunk/gsdl/perllib/sorttools.pm (modified) (1 diff)

trunk/gsdl/perllib/sorttools.pm

@@ -108 +108 @@
     if ($year !~ /^\d\d\d\d$/) {
     if ($year !~ /^\d\d$/) {
-        print STDERR "sorttools::format_date WARNING year $year assumed to be 19$year\n";
-        $year = "19" . $year;
+        my $newyear = 1900 + $year;
+        print STDERR "sorttools::format_date WARNING year $year assumed to be $newyear\n";
+        $year=$newyear;
     } else {
         print STDERR "sorttools::format_date WARNING year $year out of range - reset to 1900\n";