From 817fb07cf8db30243d35ec21647e52dbd4e0b775 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Thu, 6 Jun 2019 12:42:46 -0400
Subject: [PATCH] Bug 23057: Update do_checkin

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

Signed-off-by: Matha Fuerst <mfuerst@hmcpl.org>
---
 C4/Circulation.pm                 |  1 +
 C4/SIP/ILS/Transaction/Checkin.pm | 25 ++++++++++++++-----------
 2 files changed, 15 insertions(+), 11 deletions(-)

diff --git a/C4/Circulation.pm b/C4/Circulation.pm
index 9dd1a23774..45da90dd2d 100644
--- a/C4/Circulation.pm
+++ b/C4/Circulation.pm
@@ -1945,6 +1945,7 @@ sub AddReturn {
     }
 
     if ( $item->itemlost and C4::Context->preference("BlockReturnOfLostItems") ) {
+        $messages->{'ReturnOfLostItemBlocked'};
         $doreturn = 0;
     }
 
diff --git a/C4/SIP/ILS/Transaction/Checkin.pm b/C4/SIP/ILS/Transaction/Checkin.pm
index 67d0b1d792..eed26c1544 100644
--- a/C4/SIP/ILS/Transaction/Checkin.pm
+++ b/C4/SIP/ILS/Transaction/Checkin.pm
@@ -70,13 +70,12 @@ sub do_checkin {
 
     $debug and warn "do_checkin() calling AddReturn($barcode, $branch)";
     my ($return, $messages, $issue, $borrower) = AddReturn($barcode, $branch, undef, dt_from_string($return_date));
-    if ($checked_in_ok){
-        $debug and warn 'not raising alert when AddReturn() does not return a value for $return due to $checked_in_ok being set to true';
-    }
-    else {
-        $self->alert(!$return);
+
+    if ( $checked_in_ok ) {
+        delete $messages->{NotIssued};
+        delete $messages->{LocalUse};
+        $return = 1 unless keys %$messages;
     }
-    # ignoring messages: NotIssued, WasLost, WasTransfered
 
     # biblionumber, biblioitemnumber, itemnumber
     # borrowernumber, reservedate, branchcode
@@ -90,6 +89,9 @@ sub do_checkin {
     if ($messages->{withdrawn}) {
         $self->alert_type('99');
     }
+    if ($messages->{ReturnOfLostItemBlocked}) {
+        $self->alert_type('99');
+    }
     if ($messages->{Wrongbranch}) {
         $self->{item}->destination_loc($messages->{Wrongbranch}->{Rightbranch});
         $self->alert_type('04');            # send to other branch
@@ -126,12 +128,13 @@ sub do_checkin {
         $self->{item}->hold_patron_id( $messages->{ResFound}->{borrowernumber} );
         $self->{item}->destination_loc( $messages->{ResFound}->{branchcode} );
     }
+    # ignoring messages: NotIssued, WasLost, WasTransfered
 
-    my $alert = defined $self->alert_type;
-    if ( $cv_triggers_alert ) {
-        $self->alert($alert); # Overwrites existing alert value, should set to 0 if there is no alert type
-    } else {
-        $self->alert($alert) if $alert; # Doesn't affect alert value unless an alert type is set
+    if ($cv_triggers_alert) {
+        $self->alert( defined $self->alert_type ); # Overwrites existing alert value, should set to 0 if there is no alert type
+    }
+    else {
+        $self->alert( !$return || defined $self->alert_type );
     }
 
     $self->ok($return);
-- 
2.20.1 (Apple Git-117)