Bug 17689: Add the Koha::Checkout->is_overdue method

[srvgit] / Koha / Checkout.pm

diff --git a/Koha/Checkout.pm b/Koha/Checkout.pm
index 358f41c..a1a67d6 100644 (file)
--- a/Koha/Checkout.pm
+++ b/Koha/Checkout.pm
@@ -1,6 +1,7 @@
 package Koha::Checkout;
 
 # Copyright ByWater Solutions 2015
+# Copyright 2016 Koha Development Team
 #
 # This file is part of Koha.
 #
@@ -22,6 +23,8 @@ use Modern::Perl;
 use Carp;
 
 use Koha::Database;
+use DateTime;
+use Koha::DateUtils;
 
 use base qw(Koha::Object);
 
@@ -35,6 +38,27 @@ Koha::Checkout - Koha Checkout object class
 
 =cut
 
+=head3 is_overdue
+
+my  $is_overdue = $checkout->is_overdue( [ $reference_dt ] );
+
+Return 1 if the checkout is overdue.
+
+A reference date can be passed, in this case it will be used, otherwise today
+will be the reference date.
+
+=cut
+
+sub is_overdue {
+    my ( $self, $dt ) = @_;
+    $dt ||= DateTime->now( time_zone => C4::Context->tz );
+    my $is_overdue =
+      DateTime->compare( dt_from_string( $self->date_due, 'sql' ), $dt ) == -1
+      ? 1
+      : 0;
+    return $is_overdue;
+}
+
 =head3 type
 
 =cut
@@ -47,6 +71,8 @@ sub _type {
 
 Kyle M Hall <kyle@bywatersolutions.com>
 
+Jonathan Druart <jonathan.druart@bugs.koha-community.org>
+
 =cut
 
 1;