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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index a04d69c..6a17237 100644 (file)
--- 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};
        }