added some logging, unfleshing ou_type for now

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
index a60d2a5..836e409 100644 (file)
--- 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(