From 6f8489015299e1f249e520a68ea2f1214f59d2b7 Mon Sep 17 00:00:00 2001 From: alaurin Date: Tue, 3 Apr 2007 15:04:30 +0000 Subject: [PATCH] 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 --- circ/branchreserves.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/circ/branchreserves.pl b/circ/branchreserves.pl index f78bc4070a..0ff984879b 100755 --- a/circ/branchreserves.pl +++ b/circ/branchreserves.pl @@ -30,7 +30,7 @@ use C4::Circulation::Circ2; use Date::Calc qw( Today - Add_Delta_YM + Add_Delta_Days Date_to_Days ); use C4::Reserves2; @@ -123,8 +123,8 @@ foreach my $num (@getreserves) { 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 ); -- 2.39.5