From: djfiander <djfiander@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 21 Jul 2009 01:14:50 +0000 (+0000)
Subject: Add a bit more debugging code
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=54000eefa9e4fc9b43b1bced0be8691da21a9d15;p=evergreen%2Fmasslnc.git

Add a bit more debugging code


git-svn-id: svn://svn.open-ils.org/ILS/trunk@13645 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Date.pm b/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Date.pm
index b2b9ac16b2..81aee665b3 100644
--- a/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Date.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Date.pm
@@ -380,6 +380,8 @@ sub subsequent_season {
     my $pat = shift;
     my @cur = @_;
 
+#     printf("# subsequent_season: pat='%s', cur='%s'\n", $pat, join('/',@cur));
+
     if (($pat < 21) || ($pat > 24)) {
 	carp "Unexpected season '$pat'";
 	return undef;