From 0565d79180eff31da62bc97eadb0a682865bcfd4 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Fri, 27 May 2022 17:38:38 -0400 Subject: [PATCH] make use of the passed block message Signed-off-by: Jason Etheridge --- Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2.pm index 82e8ac46e3..76bbe77a33 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2.pm @@ -425,13 +425,14 @@ sub patron_response_common_data { sub handle_block { my ($session, $message) = @_; + my @fixed_fields = @{$message->{fixed_fields} || []}; my $sip_account = $session->sip_account; - my $card_retained = 0; - my $blocked_card_msg = ''; my $barcode = $SC->get_field_value($message, 'AA'); my $password = $SC->get_field_value($message, 'AD'); + my $blocked_card_msg = $SC->get_field_value($message, 'AL'); + my $card_retained = $fixed_fields[0]; my $details = OpenILS::Application::SIP2::Patron->get_patron_details( $session, @@ -489,9 +490,9 @@ sub handle_block { $penalty->staff( $e->checkauth()->id() ); $penalty->standing_penalty(20); # ALERT_NOTE - my $note = " CARD BLOCKED BY SELF-CHECK MACHINE. $blocked_card_msg\n"; # XXX Config option + my $note = " CARD BLOCKED BY SELF-CHECK MACHINE. $blocked_card_msg\n"; # XXX Config option, and/or I18N my $msg = { - title => 'SIP', + title => 'SIP BLOCK', message => $note }; my $penalty_result = $U->simplereq( -- 2.11.0