From 7c4a73285737b7f0d4612ba4787fcadbddcc1cad Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 12 Oct 2006 21:11:45 +0000 Subject: [PATCH] throwing penalty exceptions so they will not go unnoticed git-svn-id: svn://svn.open-ils.org/ILS/trunk@6459 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm index a04d69c333..6a17237071 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm @@ -485,7 +485,8 @@ sub mk_script_runner { } } - $self->is_precat(1) if $self->copy and $self->copy->call_number == OILS_PRECAT_CALL_NUMBER; + $self->is_precat(1) if $self->copy + and $self->copy->call_number == OILS_PRECAT_CALL_NUMBER; # We can't renew if there is no copy return $self->bail_on_events(@evts) if @@ -625,6 +626,7 @@ sub gather_penalty_request { return [] unless $self->penalty_request; my $data = $self->penalty_request->recv; if( ref $data ) { + throw $data if UNIVERSAL::isa($data,'Error'); $data = $data->content; return $data->{fatal_penalties}; } -- 2.11.0