From: Dan Wells <dbw2@calvin.edu>
Date: Mon, 16 May 2011 19:23:10 +0000 (-0400)
Subject: Borrow on_or_after() from MFHD/Caption.pm in MFHD/Date.pm
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=ca2f080695123191c092779911727256bf77cb55;p=evergreen%2Fjoelewis.git

Borrow on_or_after() from MFHD/Caption.pm in MFHD/Date.pm

Signed-off-by: Dan Wells <dbw2@calvin.edu>
---

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;
         }