fetching request_lib org to pass in to script builder like it's expecting (instead...

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
index 7d3bb29..f67a50c 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
@@ -1249,13 +1249,15 @@ sub find_nearest_permitted_hold {
                next unless $hold;
                my ($reqr) = $U->fetch_user($hold->requestor);
 
+               my ($rlib) = $U->fetch_org_unit($hold->request_lib);
+
                return ($hold) if OpenILS::Utils::PermitHold::permit_copy_hold(
                        {
                                patron_id                       => $hold->usr,
                                requestor                       => $reqr->id,
                                copy                                    => $copy,
                                pickup_lib                      => $hold->pickup_lib,
-                               request_lib                     => $hold->request_lib 
+                               request_lib                     => $rlib,
                        } 
                );
        }