From 7000b7ac0ef3d2b701b8912a955d018a22b39697 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 27 Jul 2006 19:17:57 +0000
Subject: [PATCH] now takes patron id or object

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5132 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Utils/PermitHold.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/PermitHold.pm b/Open-ILS/src/perlmods/OpenILS/Utils/PermitHold.pm
index b44a5a4b74..7652bc23b7 100644
--- a/Open-ILS/src/perlmods/OpenILS/Utils/PermitHold.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/PermitHold.pm
@@ -22,9 +22,12 @@ sub permit_copy_hold {
 
 	my $runner = OpenILS::Application::Circ::ScriptBuilder->build(
 		{
+			patron_id	=> $$params{patron_id},
 			patron		=> $$params{patron},
 			copy			=> $$params{copy},
 			requestor	=> $$params{requestor},
+			title			=> $$params{title},
+			volume		=> $$params{volume},
 			titleDescriptor	=> $$params{title_descriptor},
 			_direct	=> {
 				requestLib	=> $$params{request_lib},
@@ -45,7 +48,8 @@ sub permit_copy_hold {
 	# Extract and uniquify the event list
 	# --------------------------------------------------------------
 	my $events = $result->{events};
-	$logger->debug("circ_permit_hold for user ".$params->{patron}->id." returned events: @$events");
+	my $pid = ($params->{patron}) ? $params->{patron}->id : $params->{patron_id};
+	$logger->debug("circ_permit_hold for user $pid returned events: [@$events]");
 
 	my @allevents;
 	push( @allevents, OpenILS::Event->new($_)) for @$events;
-- 
2.11.0