From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 12 Oct 2006 21:11:45 +0000 (+0000)
Subject: throwing penalty exceptions so they will not go unnoticed
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=7c4a73285737b7f0d4612ba4787fcadbddcc1cad;p=evergreen%2Fpines.git

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 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};
 	}