[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/circ branchreserves.pl
From: |
LAURIN arnaud |
Subject: |
[Koha-cvs] koha/circ branchreserves.pl |
Date: |
Tue, 03 Apr 2007 15:04:32 +0000 |
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 );
- [Koha-cvs] koha/circ branchreserves.pl,
LAURIN arnaud <=