Lines 288-301
sub GetWaitingHolds {
Link Here
|
288 |
$sth->execute(); |
288 |
$sth->execute(); |
289 |
my @results; |
289 |
my @results; |
290 |
while ( my $issue = $sth->fetchrow_hashref() ) { |
290 |
while ( my $issue = $sth->fetchrow_hashref() ) { |
291 |
my @waitingdate = split( /-/, $issue->{'waitingdate'} ); |
291 |
my $calendar = C4::Calendar->new( branchcode => $issue->{'site'} ); |
292 |
my @date_due = Add_Delta_Days( $waitingdate[0], $waitingdate[1], $waitingdate[2], $pickupdelay ); |
292 |
|
293 |
$issue->{'date_due'} = sprintf( "%04d-%02d-%02d", $date_due[0], $date_due[1], $date_due[2] ); |
293 |
my ( $waiting_year, $waiting_month, $waiting_day ) = split( /-/, $issue->{'waitingdate'} ); |
|
|
294 |
my ( $pickup_year, $pickup_month, $pickup_day ) = Add_Delta_Days( $waiting_year, $waiting_month, $waiting_day, $pickupdelay ); |
295 |
|
296 |
while ( $calendar->isHoliday( $pickup_day, $pickup_month, $pickup_year ) ) { |
297 |
( $pickup_year, $pickup_month, $pickup_day ) = Add_Delta_Days( $pickup_year, $pickup_month, $pickup_day, 1 ); |
298 |
} |
299 |
|
300 |
$issue->{'date_due'} = sprintf( "%04d-%02d-%02d", $pickup_year, $pickup_month, $pickup_day ); |
294 |
$issue->{'level'} = 1; # only one level for Hold Waiting notifications |
301 |
$issue->{'level'} = 1; # only one level for Hold Waiting notifications |
295 |
|
302 |
|
296 |
my $days_to_subtract = 0; |
303 |
my $days_to_subtract = 0; |
297 |
my $calendar = C4::Calendar->new( branchcode => $issue->{'site'} ); |
304 |
while ( $calendar->isHoliday( reverse( Add_Delta_Days( $waiting_year, $waiting_month, $waiting_day, $days_to_subtract ) ) ) ) { |
298 |
while ( $calendar->isHoliday( reverse( Add_Delta_Days( $waitingdate[0], $waitingdate[1], $waitingdate[2], $days_to_subtract ) ) ) ) { |
|
|
299 |
$days_to_subtract++; |
305 |
$days_to_subtract++; |
300 |
} |
306 |
} |
301 |
$issue->{'days_since_waiting'} = $issue->{'days_since_waiting'} - $days_to_subtract; |
307 |
$issue->{'days_since_waiting'} = $issue->{'days_since_waiting'} - $days_to_subtract; |
302 |
- |
|
|