From: djfiander <djfiander@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 12 Jun 2009 01:16:55 +0000 (+0000)
Subject: Untested code for generating next dates for all patterns
X-Git-Tag: sprint4-merge-nov22~9817
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=c633e8536ffec59850f44f8e3d70d7c7c8822f4b;p=working%2FEvergreen.git

Untested code for generating next dates for all patterns
specified in the standard. Now to write the code that calls the
generators to find the correct "next" issue from the current one.


git-svn-id: svn://svn.open-ils.org/ILS/trunk@13374 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm b/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
index d6084d537e..ffae61174d 100755
--- a/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
@@ -510,6 +510,25 @@ sub match_season {
     return ($pat eq $date[1]);
 }
 
+sub subsequent_season {
+    my $pat = shift;
+    my $cur = shift;
+
+    return undef if (($pat < 21) || ($pat > 24));
+
+    if ($cur->[1] >= $pat) {
+	# current season is on or past pattern season in this year,
+	# advance to next year
+	$cur->[0] += 1;
+    }
+    # Either we've advanced to the next year or the current season
+    # is before the pattern season in the current year. Either way,
+    # all that remains is to set the season properly
+    $cur->[1] = $pat;
+
+    return $cur;
+}
+
 sub match_year {
     my $pat = shift;
     my @date = @_;
@@ -518,6 +537,14 @@ sub match_year {
     return 0;
 }
 
+sub subsequent_year {
+    my $pat = shift;
+    my $cur = shift;
+
+    # XXX WRITE ME
+    return undef;
+}
+
 sub match_issue {
     my $pat = shift;
     my @date = @_;
@@ -528,6 +555,14 @@ sub match_issue {
     return 0;
 }
 
+sub subsequent_issue {
+    my $pat = shift;
+    my $cur = shift;
+
+    # Issue generation is handled separately
+    return undef;
+}
+
 my %dispatch = (
 		'd' => \&match_day,
 		'e' => \&match_issue, # not really a "chron" code
@@ -734,6 +769,15 @@ sub calendar_increment {
     }
 }
 
+my %generators = (
+		  'd' => \&subsequent_day,
+		  'e' => \&subsequent_issue, # not a chron code
+		  'w' => \&subsequent_week,
+		  'm' => \&subsequent_month,
+		  's' => \&subsequent_season,
+		  'y' => \&subsequent_year,
+);
+
 sub next_date {
     my $self = shift;
     my $next = shift;