[Koha-cvs] koha/circ currenttransfers.pl waitingreservestr...

[LAURIN arnaud]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     LAURIN arnaud <alaurin> 07/04/03 15:41:36

Modified files:
        circ           : currenttransfers.pl waitingreservestransfers.pl 

Log message:
        bugfixing of warnings in current transfers and waitingreservestranfers 
        same bugfixing as branchreserves

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/currenttransfers.pl?cvsroot=koha&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/koha/circ/waitingreservestransfers.pl?cvsroot=koha&r1=1.6&r2=1.7

Patches:
Index: currenttransfers.pl
===================================================================
RCS file: /sources/koha/koha/circ/currenttransfers.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- currenttransfers.pl 9 Mar 2007 14:34:32 -0000       1.4
+++ currenttransfers.pl 3 Apr 2007 15:41:36 -0000       1.5
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: currenttransfers.pl,v 1.4 2007/03/09 14:34:32 tipaul Exp $
+# $Id: currenttransfers.pl,v 1.5 2007/04/03 15:41:36 alaurin Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -30,7 +30,7 @@
 use C4::Interface::CGI::Output;
 use Date::Calc qw(
   Today
-  Add_Delta_YM
+  Add_Delta_Days
   Date_to_Days
 );
 
@@ -82,8 +82,8 @@
               $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 );

Index: waitingreservestransfers.pl
===================================================================
RCS file: /sources/koha/koha/circ/waitingreservestransfers.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- waitingreservestransfers.pl 9 Mar 2007 14:34:32 -0000       1.6
+++ waitingreservestransfers.pl 3 Apr 2007 15:41:36 -0000       1.7
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: waitingreservestransfers.pl,v 1.6 2007/03/09 14:34:32 tipaul Exp $
+# $Id: waitingreservestransfers.pl,v 1.7 2007/04/03 15:41:36 alaurin Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -29,7 +29,7 @@
 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 @@
                 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);