From 92ddf17d3504c231147f2c60a4415db0d10b9ae0 Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 28 Aug 2006 18:39:52 +0000 Subject: [PATCH] destroying script context when complete git-svn-id: svn://svn.open-ils.org/ILS/trunk@5736 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Penalty.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Penalty.pm b/Open-ILS/src/perlmods/OpenILS/Application/Penalty.pm index c4ceda3137..662462123d 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Penalty.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Penalty.pm @@ -33,12 +33,14 @@ sub initialize { $path = $conf->config_value( @pfx, 'script_path'); $script = $conf->config_value( @pfx, 'patron_penalty' ); + $path = (ref($path)) ? $path : [$path]; + if(!($path and $script)) { $logger->error("penalty: server config missing script and/or script path"); return 0; } - $logger->info("penalty: Loading patron penalty script $script with path $path"); + $logger->info("penalty: Loading patron penalty script $script with paths @$path"); } @@ -83,7 +85,7 @@ sub patron_penalty { my $runner = OpenILS::Application::Circ::ScriptBuilder->build($args); # - Load up the script and run it - $runner->add_path($path); + $runner->add_path($_) for @$path; $runner->load($script); my $result = $runner->run or throw OpenSRF::EX::ERROR ("Patron Penalty Script Died: $@"); @@ -108,6 +110,7 @@ sub patron_penalty { $logger->error("penalty: Error updating the patron ". "penalties in the database: ".Dumper($evt)) if $evt; + $runner->cleanup; return undef; } -- 2.11.0