now takes patron id or object

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/PermitHold.pm b/Open-ILS/src/perlmods/OpenILS/Utils/PermitHold.pm
index b44a5a4..7652bc2 100644 (file)
--- 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;