From 8873434a15bb842335d38f830a3d4b56c8f43616 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 18 Aug 2006 15:48:11 +0000
Subject: [PATCH] I hate date parsing ...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5587 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Evergreen/src/extras/import/parse_patron_xml.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Evergreen/src/extras/import/parse_patron_xml.pl b/Evergreen/src/extras/import/parse_patron_xml.pl
index 04a9aa98f6..f29936c9bb 100755
--- a/Evergreen/src/extras/import/parse_patron_xml.pl
+++ b/Evergreen/src/extras/import/parse_patron_xml.pl
@@ -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) {
-- 
2.43.2