From 5f7fd50c19ccfcb698a48b5c20f6bffe5ab7fea9 Mon Sep 17 00:00:00 2001 From: Thomas Berezansky Date: Thu, 15 Mar 2012 17:04:51 -0400 Subject: [PATCH] Backdate into grace period - include last second The last second of the grace period is ignored on backdated checkins, but should still count as "in" the grace period. This fixes that. Signed-off-by: Thomas Berezansky Signed-off-by: Mike Rylander --- .../src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 9daa10cc5d..613447fd59 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm @@ -47,7 +47,7 @@ sub void_overdues { my $date = DateTime::Format::ISO8601->parse_datetime($backdate); my $due_date = DateTime::Format::ISO8601->parse_datetime(cleanse_ISO8601($circ->due_date))->epoch; my $grace_period = extend_grace_period( $class, $circ->circ_lib, $circ->due_date, OpenSRF::Utils->interval_to_seconds($circ->grace_period), $e); - if($date->epoch < $due_date + $grace_period) { + if($date->epoch <= $due_date + $grace_period) { $logger->info("backdate $backdate is within grace period, voiding all"); } else { $backdate = $U->epoch2ISO8601($date->epoch + $interval); -- 2.43.2