From b9277238c41cad527d40c2ff45b91b852f59427c Mon Sep 17 00:00:00 2001 From: Jason Stephenson Date: Thu, 4 Aug 2011 12:31:49 -0400 Subject: [PATCH] Add OILS_SIP_MSG_BILL_ERR for when an error occurs getting bills. Signed-off-by: Jason Stephenson Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/SIP/Msg.pm | 1 + Open-ILS/src/perlmods/lib/OpenILS/SIP/Transaction/FeePayment.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Msg.pm b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Msg.pm index 72b0c032ac..cb661ce28f 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Msg.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Msg.pm @@ -27,6 +27,7 @@ econst OILS_SIP_MSG_CIRC_EXISTS => 'This item is already checked out'; econst OILS_SIP_MSG_CIRC_PERMIT_FAILED => 'Patron is not allowed to check out the selected item'; econst OILS_SIP_MSG_NO_BILL => 'Bill not found'; econst OILS_SIP_MSG_OVERPAYMENT => 'Overpayment not allowed'; +econst OILS_SIP_MSG_BILL_ERR => 'An error occurred while retrieving bills'; %EXPORT_TAGS = ( const => [ @EXPORT_OK ] ); diff --git a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Transaction/FeePayment.pm b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Transaction/FeePayment.pm index 29cf7adf50..44580f432c 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Transaction/FeePayment.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Transaction/FeePayment.pm @@ -166,7 +166,7 @@ sub do_fee_payment { } else { $self->ok(0); if ($results && $U->event_code($results)) { - $self->screen_msg(($results->{descr} || $results->{textcode})); + $self->screen_msg(OILS_SIP_MSG_BILL_ERR); } else { $self->screen_msg(OILS_SIP_MSG_NO_BILL); } -- 2.43.2