An unfinished commit pulled out of my git stash

Signed-off-by: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm
index b00cc69..6b0e85d 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm
@@ -1604,7 +1604,9 @@ sub regenerate_summaries {
                 }
             ]) or return $e->die_event;
 
-            my $evt = _prepare_summaries($e, $issuances, $sdist, $type, 1); #XXX $do_combined)
+            next unless @$issuances;
+
+            my $evt = _prepare_summaries($e, $issuances, $sdist, $type);
             if ($U->event_code($evt)) {
                 $e->rollback;
                 return $evt;