gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bugfixing of warnings in current transfers and waitingreservestranfers 

same bugfixing as branchreserves
This commit is contained in:
alaurin 2007-04-03 15:41:36 +00:00
parent 6f84890152
commit d23c6c9955
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
circ/currenttransfers.pl
View File

@ -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 );

6
circ/waitingreservestransfers.pl
View File

@ -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);