From: Chris Sharp <csharp@georgialibraries.org>
Date: Tue, 31 Jan 2023 18:14:32 +0000 (-0500)
Subject: more warn log quieting
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=d2a878c5f7323bb244fd9ae22f1108bf7b078497;p=evergreen%2Fpines.git

more warn log quieting
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm
index 6a7044c769..c72072c87f 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm
@@ -327,7 +327,7 @@ sub can_close_circ {
     # checked in or renewed.
     if ($circ->checkin_time) {
         $can_close = 1;
-    } elsif ($reason eq OILS_STOP_FINES_LOST) {
+    } elsif ($reason && $reason eq OILS_STOP_FINES_LOST) {
         # Check the copy circ_lib to see if they close
         # transactions when lost are paid.
         my $copy = $e->retrieve_asset_copy($circ->target_copy);
@@ -341,7 +341,7 @@ sub can_close_circ {
             );
         }
 
-    } elsif ($reason eq OILS_STOP_FINES_LONGOVERDUE) {
+    } elsif ($reason && $reason eq OILS_STOP_FINES_LONGOVERDUE) {
         # Check the copy circ_lib to see if they close
         # transactions when long-overdue are paid.
         my $copy = $e->retrieve_asset_copy($circ->target_copy);