From b78db493c67d88c38e37e043963f704e68eccd17 Mon Sep 17 00:00:00 2001 From: Mike Rylander Date: Thu, 13 Jul 2017 13:32:20 -0400 Subject: [PATCH] serials: Correctly collect preexisting affix ids Signed-off-by: Mike Rylander --- Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm | 4 ++++ 1 file changed, 4 insertions(+) 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; } } -- 2.11.0