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 b2b9ac1..81aee66 100644 (file)
--- 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;