From d23c6c9955e1f0da653933bcda3c9f78bfda94e5 Mon Sep 17 00:00:00 2001
From: alaurin <alaurin>
Date: Tue, 3 Apr 2007 15:41:36 +0000
Subject: [PATCH] bugfixing of warnings in current transfers and
 waitingreservestranfers same bugfixing as branchreserves

---
 circ/currenttransfers.pl         | 6 +++---
 circ/waitingreservestransfers.pl | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/circ/currenttransfers.pl b/circ/currenttransfers.pl
index 41139db069..78303cd4b5 100755
--- a/circ/currenttransfers.pl
+++ b/circ/currenttransfers.pl
@@ -30,7 +30,7 @@ use C4::Circulation::Circ2;
 use C4::Interface::CGI::Output;
 use Date::Calc qw(
   Today
-  Add_Delta_YM
+  Add_Delta_Days
   Date_to_Days
 );
 
@@ -82,8 +82,8 @@ foreach my $br ( keys %$branches ) {
               $num->{'datesent'};
             $sent_day = ( split " ", $sent_day )[0];
             ( $sent_year, $sent_month, $sent_day ) =
-              Add_Delta_YM( $sent_year, $sent_month, $sent_day,
-                C4::Context->preference('TransfersMaxDaysWarning'), 0 );
+              Add_Delta_Days( $sent_year, $sent_month, $sent_day,
+                C4::Context->preference('TransfersMaxDaysWarning'));
             my $calcDate = Date_to_Days( $sent_year, $sent_month, $sent_day );
             my $today    = Date_to_Days(&Today);
             my $warning  = ( $today > $calcDate );
diff --git a/circ/waitingreservestransfers.pl b/circ/waitingreservestransfers.pl
index 30beaf74d0..5bae6dde0d 100755
--- a/circ/waitingreservestransfers.pl
+++ b/circ/waitingreservestransfers.pl
@@ -29,7 +29,7 @@ use C4::Date;
 use C4::Circulation::Circ2;
 use Date::Calc qw(
   Today
-  Add_Delta_YM
+  Add_Delta_Days
   Date_to_Days
 );
 use C4::Koha;
@@ -99,8 +99,8 @@ foreach my $br ( keys %$branches ) {
                 my ( $reserve_year, $reserve_month, $reserve_day ) = split /-/,
                   $num->{'reservedate'};
                 ( $reserve_year, $reserve_month, $reserve_day ) =
-                  Add_Delta_YM( $reserve_year, $reserve_month, $reserve_day,
-                    C4::Context->preference('ReservesMaxPickUpDelay'), 0 );
+                  Add_Delta_Days( $reserve_year, $reserve_month, $reserve_day,
+                    C4::Context->preference('ReservesMaxPickUpDelay'));
                 my $calcDate =
                   Date_to_Days( $reserve_year, $reserve_month, $reserve_day );
                 my $today   = Date_to_Days(&Today);
-- 
2.20.1