From f40b83b780d9bfda75f34462977f3244840d20d8 Mon Sep 17 00:00:00 2001 From: Dan Wells 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 --- 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.43.2