From d2a878c5f7323bb244fd9ae22f1108bf7b078497 Mon Sep 17 00:00:00 2001 From: Chris Sharp Date: Tue, 31 Jan 2023 13:14:32 -0500 Subject: [PATCH] more warn log quieting --- Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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); -- 2.11.0