[open-ils-commits] r13645 - trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD (djfiander)

[svn at svn.open-ils.org]

Author: djfiander
Date: 2009-07-20 21:14:50 -0400 (Mon, 20 Jul 2009)
New Revision: 13645

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Date.pm
Log:
Add a bit more debugging code


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Date.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Date.pm	2009-07-21 01:11:22 UTC (rev 13644)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Date.pm	2009-07-21 01:14:50 UTC (rev 13645)
@@ -380,6 +380,8 @@
     my $pat = shift;
     my @cur = @_;
 
+#     printf("# subsequent_season: pat='%s', cur='%s'\n", $pat, join('/', at cur));
+
     if (($pat < 21) || ($pat > 24)) {
 	carp "Unexpected season '$pat'";
 	return undef;