Changeset 392 for trunk

Timestamp:

1999-07-16T11:19:12+12:00 (25 years ago)

Author:

sjboddie

Message:

added format_date subroutine

File:

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

trunk/gsdl/perllib/sorttools.pm

@@ -16 +16 @@
     $$stringref =~ s/^\s+//;
 }
-
 
 # format an english name for sorting
@@ -36 +35 @@
 }
 
+# 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".
+sub format_date {
+    my ($day, $month, $year) = @_;
+
+    my %months = ('january' => '01', 'jan' => '01', 'february' => '02', 'feb' => '02',
+          'march' => '03', 'mar' => '03', 'april' => '04', 'apr' => '04',
+          'may' => '05', 'june' => '06', 'jun' => '06', 'july' => '07', 
+          'jul' => '07', 'august' => '08', 'aug' => '08', 'september' => '09', 
+          'sep' => '09', 'october' => '10', 'oct' => '10', 'november' => '11', 
+          'nov' => '11', 'december' => '12', 'dec' => '12');
+
+    $month =~ tr/A-Z/a-z/;
+    
+    if ($day < 1) { 
+    print STDERR "sorttools::format_date WARNING day $day out of range\n";
+    $day = "01";
+    } elsif ($day > 31) {
+    print STDERR "sorttools::format_date WARNING day $day out of range\n";
+    $day = "31";
+    }
+
+    $day = "0$day" if (length($day) == 1);
+
+    if (!defined $months{$month}) {
+    print STDERR "sorttools::format_date WARNING month $month out of range\n";
+    $month = "01";
+    } else {
+    $month = $months{$month};
+    }
+    
+    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;
+    } else {
+        print STDERR "sorttools::format_date WARNING year $year out of range - reset to 1900\n";
+        $year = "1900";
+    }
+    }
+
+    return "$year$month$day";
+}
+
+
 1;