check circ_lib on pre-cat copies

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6483 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
index a85a541..588c694 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -998,7 +998,7 @@ sub update_fleshed_copies {
                }
 
                return $editor->event unless 
-                       $editor->allowed('UPDATE_COPY', $vol->owning_lib);
+                       $editor->allowed('UPDATE_COPY', $vol->id == -1 ? $copy->circ_lib : $vol->owning_lib);
 
                $copy->editor($editor->requestor->id);
                $copy->edit_date('now');