bugfixing of warnings in current transfers and waitingreservestranfers

same bugfixing as branchreserves

diff --git a/circ/currenttransfers.pl b/circ/currenttransfers.pl
index 41139db..78303cd 100755 (executable)
--- 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 30beaf7..5bae6dd 100755 (executable)
--- 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);