From: erickson Date: Thu, 13 Jul 2006 22:04:26 +0000 (+0000) Subject: commenting out a warning X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=47a0856cb4d2c2ca9b341c74feb250dfe3e02d60;p=evergreen%2Fpines.git commenting out a warning git-svn-id: svn://svn.open-ils.org/ILS/trunk@4995 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm index 75623fa7e5..f4a91035d9 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm @@ -102,6 +102,8 @@ sub create_circ_ctx { OpenILS::Application::Circ::ScriptBuilder->build($ctx); my @evts = @{$ctx->{_events}} if $ctx->{_events}; + #warn "SCRIPT BUILDER EVENTS: @evts\n"; + if(!$params{noncat}) { if( @evts and grep { $_->{textcode} eq 'ASSET_COPY_NOT_FOUND' } @evts) { $ctx->{precat} = 1; @@ -875,6 +877,7 @@ sub _run_checkout_scripts { # $runner->insert('result.maxFine'); $runner->load($scripts{circ_duration}); + my $result = $runner->run or throw OpenSRF::EX::ERROR ("Circ Duration Script Died: $@"); my $duration = $result->{durationRule}; my $dur_level = $result->{durationLevel};