Changeset 467 for trunk

Timestamp:

1999-08-24T09:21:38+12:00 (25 years ago)

Author:

sjboddie

Message:

small change to format_date

File:

• trunk/gsdl/perllib/sorttools.pm (modified) (2 diffs)

trunk/gsdl/perllib/sorttools.pm

@@ -36 +36 @@
 
 # takes arguments of day, month, year and converts to
-# date of form yyyymmdd. month may be full (e.g. "January")
-# or abbreviated (e.g. "Jan"). Years like "86" will be
-# assumed to be "1986".
+# date of form yyyymmdd. month may be full (e.g. "January"),
+# abbreviated (e.g. "Jan"), or a number (1-12). Years like "86" 
+# will be assumed to be "1986".
 sub format_date {
     my ($day, $month, $year) = @_;
@@ -61 +61 @@
     $day = "0$day" if (length($day) == 1);
 
-    if (!defined $months{$month}) {
+    if ($month =~ /^\d\d?$/) {
+    if ($month < 1) {
+        print STDERR "sorttools::format_date WARNING month $month out of range\n";
+        $month = "01";
+    } elsif ($month > 12) {
+        print STDERR "sorttools::format_date WARNING month $month out of range\n";
+        $month = "12";
+    }
+    if ($month =~ /^\d$/) {
+        $month = "0" . $month;
+    }
+    } elsif (!defined $months{$month}) {
     print STDERR "sorttools::format_date WARNING month $month out of range\n";
     $month = "01";