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 6a7044c..c72072c 100644 (file)
--- 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);