[open-ils-commits] r13539 - trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD (djfiander)
svn at svn.open-ils.org
svn at svn.open-ils.org
Wed Jul 8 17:40:05 EDT 2009
Author: djfiander
Date: 2009-07-08 17:40:00 -0400 (Wed, 08 Jul 2009)
New Revision: 13539
Modified:
trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
Log:
Comment out some debugging statements I checked in by accident.
Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm 2009-07-08 17:52:00 UTC (rev 13538)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm 2009-07-08 21:40:00 UTC (rev 13539)
@@ -322,9 +322,9 @@
($month, $day) = unpack("a2a2", $change);
}
- printf("# calendar_increment('%s', '%s'): change on '%s/%s'\n",
- join('/', @{$cur}), join('/', @{$new}),
- $month, defined($day) ? $day : 'UNDEF');
+# printf("# calendar_increment('%s', '%s'): change on '%s/%s'\n",
+# join('/', @{$cur}), join('/', @{$new}),
+# $month, defined($day) ? $day : 'UNDEF');
if ($cur->[0] == $new->[0]) {
# Same year, so a 'simple' month/day comparison will be fine
@@ -388,7 +388,7 @@
}
foreach my $pat (@pats) {
- printf("# next_date: generating with pattern '%s'\n", $pat);
+# printf("# next_date: generating with pattern '%s'\n", $pat);
my @candidate = $genfunc->($pat, @cur);
while ($self->is_omitted(@candidate)) {
@@ -397,15 +397,15 @@
@candidate = $genfunc->($pat, @candidate);
}
- printf("# testing new candidate '%s' against '%s'\n",
- join('/', @candidate), join('/', @new));
+# printf("# testing new candidate '%s' against '%s'\n",
+# join('/', @candidate), join('/', @new));
if (!defined($new[0])
|| !on_or_after(\@candidate, \@new)) {
# first time through the loop
# or @candidate is before @new => @candidate is the next
# issue.
@new = @candidate;
- printf("# selecting candidate date '%s'\n", join('/', @new));
+# printf("# selecting candidate date '%s'\n", join('/', @new));
}
}
}
More information about the open-ils-commits
mailing list