I hate date parsing ...
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 18 Aug 2006 15:48:11 +0000 (15:48 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 18 Aug 2006 15:48:11 +0000 (15:48 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5587 dcc99617-32d9-48b4-a31d-7c20da2025e4

Evergreen/src/extras/import/parse_patron_xml.pl

index 04a9aa9..f29936c 100755 (executable)
@@ -302,14 +302,14 @@ sub parse_date {
                        }
                } elsif ( $1 < 99 && $2 < 99 && $3 < 99 && $1 > 0 && $2 > 0 && $3 > 0) {
                        if ($3 < 7) { # probably 2000 or greater, mm.dd.yy
-                               my $y = $3 + 2000;
+                               $y = $3 + 2000;
                                if ($1 > 12 && $1 < 32 && $2 < 13) { # well, actually it looks like dd.mm.yyyy
                                        ($m,$d) = ($2,$1);
                                } elsif ($2 > 12 && $2 < 32 && $1 < 13) {
                                        ($m,$d) = ($1,$2);
                                }
                        } else { # probably before 2000, mm.dd.yy
-                               my $y = $3 + 1900;
+                               $y = $3 + 1900;
                                if ($1 > 12 && $1 < 32 && $2 < 13) { # well, actually it looks like dd.mm.yyyy
                                        ($m,$d) = ($2,$1);
                                } elsif ($2 > 12 && $2 < 32 && $1 < 13) {