[Koha-cvs] koha/circ branchreserves.pl

[LAURIN arnaud]

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

Modified files:
	circ           : branchreserves.pl 

Log message:
	bugfixing for displaying the maxpicking delays for reservations, now the method of date works is using 
	Add_Delta_Days and not delta year and month
	now the system working

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

Patches:
Index: branchreserves.pl
===================================================================
RCS file: /sources/koha/koha/circ/branchreserves.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- branchreserves.pl	9 Mar 2007 14:34:31 -0000	1.4
+++ branchreserves.pl	3 Apr 2007 15:04:30 -0000	1.5
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: branchreserves.pl,v 1.4 2007/03/09 14:34:31 tipaul Exp $
+# $Id: branchreserves.pl,v 1.5 2007/04/03 15:04:30 alaurin Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -30,7 +30,7 @@
 
 use Date::Calc qw(
   Today
-  Add_Delta_YM
+  Add_Delta_Days
   Date_to_Days
 );
 use C4::Reserves2;
@@ -123,8 +123,8 @@
     my ( $waiting_year, $waiting_month, $waiting_day ) = split /-/,
       $num->{'waitingdate'};
     ( $waiting_year, $waiting_month, $waiting_day ) =
-      Add_Delta_YM( $waiting_year, $waiting_month, $waiting_day,
-        C4::Context->preference('ReservesMaxPickUpDelay'), 0 );
+      Add_Delta_Days( $waiting_year, $waiting_month, $waiting_day,
+        C4::Context->preference('ReservesMaxPickUpDelay'));
     my $calcDate = Date_to_Days( $waiting_year, $waiting_month, $waiting_day );
     my $today    = Date_to_Days(&Today);
     my $warning  = ( $today > $calcDate );