From 73f55165bef229668a135bee7e8c90a2c9c3f0a7 Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Sun, 7 Jun 2015 21:26:53 -0400 Subject: [PATCH] Bug 14362: PEGI15 Circulation/AgeRestrictionMarkers test fails It is best to test when UTC date is a date in the future compared to your timezone. I'm in Eastern, so right now, I expect this test to fail for another 2.5 hours. TEST PLAN --------- 1) prove t/Circulation/AgeRestrictionMarkers.t -- fails for PEGI 15 after 9pm. 2) Apply patch 3) prove t/Circulation/AgeRestrictionMarkers.t -- works. 4) koha qa test tools Signed-off-by: Nick Clemens Signed-off-by: Jonathan Druart Signed-off-by: Kyle M Hall --- C4/Circulation.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index ca51e7c0d5..8d585a2cd6 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -4048,7 +4048,8 @@ sub GetAgeRestriction { } #Get how many days the borrower has to reach the age restriction - my $daysToAgeRestriction = Date_to_Days(@alloweddate) - Date_to_Days(Today); + my @Today = split /-/, DateTime->today->ymd(); + my $daysToAgeRestriction = Date_to_Days(@alloweddate) - Date_to_Days(@Today); #Negative days means the borrower went past the age restriction age return ($restriction_year, $daysToAgeRestriction); } -- 2.39.5