LP1901930 fix renewal counts and add AE msg type

Signed-off-by: Jason Etheridge <jason@EquinoxOLI.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/SIP2.pm
index 4a7f51d..150dedb 100644 (file)
--- 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 ab3b73f..77a6300 100644 (file)
--- 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;