LP#1975879: avoid propagating owning library changes for dummy call numbers

Signed-off-by: Jeff Davis <jdavis@sitka.bclibraries.ca>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
index c48261b..1a635b1 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
@@ -1228,18 +1228,21 @@ sub fleshed_volume_update {
 
             my $copy_ids = [map {$_->id} @$copies];
 
-            # Avoid in-empty-list
-            my @copy_filter = @$copy_ids ? (id => {'not in' => $copy_ids}) : ();
-
-            my $addl_copies = $editor->search_asset_copy(
-                {   call_number => $vol->id,
-                    @copy_filter,
-                    circ_lib => {'<>' => $vol->owning_lib},
-                    deleted => 'f'
-                }, {substream => 1} # could be many
-            );
-
-            $copies = [@$copies, @$addl_copies];
+            # grab copies to propagate to, unless this is a dummy call number
+            if ($vol->id >= 0) {
+                # Avoid in-empty-list
+                my @copy_filter = @$copy_ids ? (id => {'not in' => $copy_ids}) : ();
+
+                my $addl_copies = $editor->search_asset_copy(
+                    {   call_number => $vol->id,
+                        @copy_filter,
+                        circ_lib => {'<>' => $vol->owning_lib},
+                        deleted => 'f'
+                    }, {substream => 1} # could be many
+                );
+
+                $copies = [@$copies, @$addl_copies];
+            }
 
             for (@$copies) {
                 if ($_->circ_lib != $vol->owning_lib) {