Deal with a publication that only has a single level of

enumeration (ie, only volume numbers).

git-svn-id: svn://svn.open-ils.org/ILS/trunk@13808 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 5a2b8b9..646992a 100755 (executable)
--- a/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
@@ -541,7 +541,15 @@ sub next_enum {
     # 1) we hit the correct number of items in $b (ie, 5th iss of quarterly)
     # 2) it's the right time of the year.
     #
-    $carry = 0;
+
+    # If there's a subfield b, then we will go through the loop at
+    # least once. If there's no subfield b, then there's only a single
+    # level of enumeration, so we just add one to it and we're done.
+    if (exists $next->{b}) {
+       $carry = 0;
+    } else {
+       $carry = 1;
+    }
     foreach my $key (reverse('b'..'f')) {
        my $level;
        my $pubpat;
@@ -609,6 +617,8 @@ sub next_enum {
                last;
            }
 
+#          printf("# next_enum: no publication pattern, using frequency\n");
+
            my $cap = $self->capfield($key);
            if ($cap->{RESTART} && $cap->{COUNT}
                && ($next->{$key} eq $cap->{COUNT})) {