From: djfiander <djfiander@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 21 Jul 2009 01:15:56 +0000 (+0000)
Subject: Merge processing for $yp and $yc into single loop, since combined
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=62ead954cf90396044bb0c257634f74aa5319ce9;p=evergreen%2Ftadl.git

Merge processing for $yp and $yc into single loop, since combined
dates can appear in both types of patterns.


git-svn-id: svn://svn.open-ils.org/ILS/trunk@13646 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 c88ebd52f5..41fb5d61ee 100755
--- a/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
@@ -284,9 +284,11 @@ sub on_or_after {
 
     foreach my $i (0..(scalar(@{$dt2})-1)) {
 	if ($dt1->[$i] > $dt2->[$i]) {
+# 	    printf("after - pass\n");
 	    # $dt1 occurs AFTER $dt2
 	    return 1;
 	} elsif ($dt1->[$i] < $dt2->[$i]) {
+# 	    printf("before - fail\n");
 	    # $dt1 occurs BEFORE $dt2
 	    return 0;
 	}
@@ -294,6 +296,7 @@ sub on_or_after {
     }
 
     # We fell out of the loop with them being equal, so it's 'on'
+#     printf("on - pass\n");
     return 1;
 }
 
@@ -308,9 +311,9 @@ sub calendar_increment {
     my $new_on_or_after;
 
     # A calendar change is defined, need to check if it applies
-    if ((scalar(@{$new}) == 2 && $new->[1] > 20) || (scalar(@{$new}) == 1)) {
+    if (scalar(@{$new}) == 1) {
 	carp "Can't calculate date change for ", $self->as_string;
-	return;
+	return 0;
     }
 
     foreach my $change (@{$cal_change}) {
@@ -376,8 +379,7 @@ sub next_date {
 	# There is a $y publication pattern defined in the record:
 	# use it to calculate the next issue date.
 
-	# XXX TODO: need to handle combined issues.
-	foreach my $pubpat (@{$pattern->{y}->{p}}) {
+	foreach my $pubpat (@{$pattern->{y}->{p}}, @{$pattern->{y}->{c}}) {
 	    my $chroncode = substr($pubpat, 0, 1);
 	    my $genfunc = MFHD::Date::generator($chroncode);
 	    my @pats = split(/,/, substr($pubpat, 1));
@@ -388,46 +390,42 @@ sub next_date {
 	    }
 
 	    foreach my $pat (@pats) {
+		my $combined = $pat =~ m|/|;
+		my ($start, $end);
+		my @candidate;
+
 # 		printf("# next_date: generating with pattern '%s'\n", $pat);
-		my @candidate = $genfunc->($pat, @cur);
+
+		if ($combined) {
+		    ($start, $end) = split('/', $pat, 2);
+		} else {
+		    ($start, $end) = (undef, undef);
+		}
+
+		@candidate = $genfunc->($start || $pat, @cur);
 
 		while ($self->is_omitted(@candidate)) {
 # 		    printf("# pubpat omitting date '%s'\n",
 # 			   join('/', @candidate));
-		    @candidate = $genfunc->($pat, @candidate);
+		    @candidate = $genfunc->($start || $pat, @candidate);
 		}
 
 # 		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.
+		    # or @candidate is before @new =>
+		    # @candidate is the next issue.
 		    @new = @candidate;
-# 		    printf("# selecting candidate date '%s'\n", join('/', @new));
-		}
-	    }
-	}
-
-	# Now check for combined issues, like "May/June"
-	foreach my $combpat (@{$pattern->{y}->{c}}) {
-	    my $chroncode = substr($combpat, 0, 1);
-	    my $genfunc = MFHD::Date::generator($chroncode);
-	    my @pats = split(/,/, substr($combpat, 1));
-
-	    foreach my $combined (@pats) {
-		my ($start, $end) = split('/', $combined, 2);
-		my @candidate = $genfunc->($start, @cur);
+		    if (defined $end) {
+			@newend = $genfunc->($end, @cur);
+		    } else {
+			$newend[0] = undef;
+		    }
 
-		# We don't need to check for omitted issues because
-		# combined issues are always published. OR ARE THEY????
-		if (!defined($new[0])
-		    || !on_or_after(\@candidate, \@new)) {
-		    # Haven't found a next issue at all yet, or
-		    # this one is before the best guess so far
-		    @new = @candidate;
-		    @newend = $genfunc->($end, @cur);
+# 		    printf("# selecting candidate date '%s'\n", join('/', @new));
 		}
 	    }
 	}