Add OILS_SIP_MSG_BILL_ERR for when an error occurs getting bills.

Signed-off-by: Jason Stephenson <jstephenson@mvlc.org>
Signed-off-by: Bill Erickson <berick@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Msg.pm b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Msg.pm
index 72b0c03..cb661ce 100644 (file)
--- 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 29cf7ad..44580f4 100644 (file)
--- 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);
             }