From 99822274a2d34723423fc72f4cf0c02460ecf76d Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 14 Sep 2006 12:38:52 +0000 Subject: [PATCH] holding on to editor object created by script code so we can just use it for our xact git-svn-id: svn://svn.open-ils.org/ILS/trunk@6091 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Penalty.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Penalty.pm b/Open-ILS/src/perlmods/OpenILS/Application/Penalty.pm index 4df24dc31c..3b2545290d 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Penalty.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Penalty.pm @@ -84,8 +84,9 @@ sub patron_penalty { $args->{fetch_patron_circ_info} = 1; $args->{fetch_patron_money_info} = 1; $args->{ignore_user_status} = 1; - my $runner = OpenILS::Application::Circ::ScriptBuilder->build($args); + my $runner = OpenILS::Application::Circ::ScriptBuilder->build($args); + # - Load up the script and run it $runner->add_path($_) for @$path; @@ -106,7 +107,9 @@ sub patron_penalty { $evt = update_patron_penalties( patron => $args->{patron}, - penalties => $all ) if $$args{update}; + penalties => $all, + editor => $args->{editor}, + ) if $$args{update}; # - The caller won't know it failed, so log it $logger->error("penalty: Error updating the patron ". @@ -126,11 +129,10 @@ sub update_patron_penalties { my %args = @_; my $patron = $args{patron}; my $penalties = $args{penalties}; + my $editor = $args{editor} || new_editor(xact=>1); my $pid = $patron->id; - $logger->debug("updating penalties for patron $pid => @$penalties"); - my $editor = new_editor(xact =>1); # - fetch the current penalties -- 2.43.2