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 a2f952f..04f79c0 100644 (file)
--- 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;
             }
         }