From c98abd362fd2951c8cadf7f00fffeb53a629028e Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 17 Jul 2006 15:06:45 +0000 Subject: [PATCH] added some logging, unfleshing ou_type for now git-svn-id: svn://svn.open-ils.org/ILS/trunk@5039 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../perlmods/OpenILS/Application/Circ/ScriptBuilder.pm | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm index a60d2a567b..836e4093a8 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm @@ -46,8 +46,15 @@ sub build { push(@evts, $evt) if $evt; $evt = fetch_user_data($editor, $args); push(@evts, $evt) if $evt; - $logger->debug("script_builder: some events occurred: @evts") if @evts; - $args->{_events} = \@evts; + + if(@evts) { + my @e; + push( @e, $_->{textcode} ) for @evts; + $logger->info("script_builder: some events occurred: @e"); + $logger->debug("script_builder: some events occurred: " . Dumper(\@evts)); + $args->{_events} = \@evts; + } + return build_runner($editor, $args); } @@ -60,6 +67,7 @@ sub build_runner { $runner->insert( "$evt.groupTree", $GROUP_TREE, 1); + $runner->insert( "$evt.patron", $ctx->{patron}, 1); $runner->insert( "$evt.copy", $ctx->{copy}, 1); $runner->insert( "$evt.volume", $ctx->{volume}, 1); @@ -168,6 +176,9 @@ sub fetch_user_data { $e->retrieve_actor_org_unit($patron->home_ou) ) unless ref $patron->home_ou; + $patron->home_ou->ou_type( + $patron->home_ou->ou_type->id) + if ref $patron->home_ou->ou_type; if(!%GROUP_SET) { $GROUP_TREE = $e->search_permission_grp_tree( -- 2.11.0