From ca2f080695123191c092779911727256bf77cb55 Mon Sep 17 00:00:00 2001
From: Dan Wells <dbw2@calvin.edu>
Date: Mon, 16 May 2011 15:23:10 -0400
Subject: [PATCH] Borrow on_or_after() from MFHD/Caption.pm in MFHD/Date.pm
Signed-off-by: Dan Wells <dbw2@calvin.edu>
---
Open-ILS/src/perlmods/lib/OpenILS/Utils/MFHD/Date.pm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/MFHD/Date.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/MFHD/Date.pm
index a41a6ac153..e44234778d 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/MFHD/Date.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/MFHD/Date.pm
@@ -5,6 +5,7 @@ use Carp;
use Data::Dumper;
use DateTime;
+use OpenILS::Utils::MFHD::Caption;
use base 'Exporter';
@@ -107,7 +108,7 @@ sub subsequent_day {
# MMDD: published on the given day of the given month
my ($mon, $day) = unpack("a2a2", $pat);
- if (on_or_after($mon, $day, $cur[1], $cur[2])) {
+ if (MFHD::Caption::on_or_after([$cur[1], $cur[2]], [$mon, $day])) {
# Current date is on or after pattern; next one is next year
$cur[0] += 1;
}
--
2.11.0