From: Mike Rylander <mrylander@gmail.com>
Date: Thu, 13 Jul 2017 17:32:20 +0000 (-0400)
Subject: serials: Correctly collect preexisting affix ids
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=b78db493c67d88c38e37e043963f704e68eccd17;p=working%2FEvergreen.git

serials: Correctly collect preexisting affix ids

Signed-off-by: Mike Rylander <mrylander@gmail.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm
index a2f952f07c..04f79c0de3 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm
@@ -1648,6 +1648,8 @@ sub _find_or_create_call_number {
                 $acnp->owning_lib($lib);
                 $e->create_asset_call_number_prefix($acnp) or return $e->die_event;
                 $prefix = $e->data->id;
+            } else {
+                $prefix = $acnp->id;
             }
         }
 
@@ -1663,6 +1665,8 @@ sub _find_or_create_call_number {
                 $acns->owning_lib($lib);
                 $e->create_asset_call_number_suffix($acns) or return $e->die_event;
                 $suffix = $e->data->id;
+            } else {
+                $suffix = $acns->id;
             }
         }