From 8875f2be3c350c0ea3617634eaf93b22099c99d4 Mon Sep 17 00:00:00 2001 From: Jason Stephenson Date: Thu, 14 Jul 2011 13:59:47 -0400 Subject: [PATCH] Add event textcode as alternative to descr in FeePayment.pm. Some events have no descr, it seems. Signed-off-by: Jason Stephenson Signed-off-by: Bill Erickson --- .../src/perlmods/lib/OpenILS/SIP/Transaction/FeePayment.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 3a8509fe45..29cf7adf50 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Transaction/FeePayment.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Transaction/FeePayment.pm @@ -80,7 +80,7 @@ sub do_fee_payment { syslog('LOG_INFO', 'OILS: pay_bills returned ' . OpenSRF::Utils::JSON->perl2JSON($resp)); if ($U->event_code($resp)) { $self->ok(0); - $self->screen_msg($resp->{descr}); + $self->screen_msg(($resp->{descr} || $resp->{textcode})); } else { $self->ok(1); } @@ -149,7 +149,7 @@ sub do_fee_payment { syslog('LOG_INFO', 'OILS: pay_bills returned ' . OpenSRF::Utils::JSON->perl2JSON($resp)); if ($U->event_code($resp)) { $self->ok(0); - $self->screen_msg($resp->{descr}); + $self->screen_msg(($resp->{descr} || $resp->{textcode})); } else { $self->ok(1); } @@ -166,7 +166,7 @@ sub do_fee_payment { } else { $self->ok(0); if ($results && $U->event_code($results)) { - $self->screen_msg($results->{descr}); + $self->screen_msg(($results->{descr} || $results->{textcode})); } else { $self->screen_msg(OILS_SIP_MSG_NO_BILL); } -- 2.43.2