From 9bc9340778b9f4ab0e75b87f3c9a7c66ca73cea0 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Mon, 28 Mar 2022 09:50:08 -0400 Subject: [PATCH] LP1901930 fix renewal counts and add AE msg type Signed-off-by: Jason Etheridge --- Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2.pm | 5 +++++ Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2/Checkout.pm | 1 + 2 files changed, 6 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2.pm index 4a7f51def0..150dedb3be 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2.pm @@ -366,6 +366,7 @@ sub patron_response_common_data { fields => [ {AO => $session->config->{institution}}, {AA => $barcode}, + {AE => ''}, {BL => $SC->sipbool(0)}, # valid patron {CQ => $SC->sipbool(0)} # valid patron password ] @@ -395,6 +396,10 @@ sub patron_response_common_data { ], fields => [ {AA => $barcode}, + {AE => sprintf('%s %s %s', + ($patron->first_given_name || ''), + ($patron->second_given_name || ''), + ($patron->family_name || ''))}, {AO => $session->config->{institution}}, {BH => $session->config->{settings}->{currency}}, {BL => $SC->sipbool(1)}, # valid patron diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2/Checkout.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2/Checkout.pm index ab3b73f9b1..77a6300ef3 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2/Checkout.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2/Checkout.pm @@ -97,6 +97,7 @@ sub perform_checkout { my $textcode = $event->{textcode}; if ($textcode eq 'SUCCESS' && $event->{payload}) { + $circ_details->{ok} = 1; if (my $circ = $event->{payload}->{circ}) { $circ_details->{circ} = $circ; -- 2.11.0