Lines 1-6
Link Here
|
1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
2 |
|
2 |
|
3 |
|
|
|
4 |
# Copyright 2000-2002 Katipo Communications |
3 |
# Copyright 2000-2002 Katipo Communications |
5 |
# |
4 |
# |
6 |
# This file is part of Koha. |
5 |
# This file is part of Koha. |
Lines 26-32
Link Here
|
26 |
use strict; |
25 |
use strict; |
27 |
#use warnings; FIXME - Bug 2505 |
26 |
#use warnings; FIXME - Bug 2505 |
28 |
|
27 |
|
29 |
use constant TWO_DAYS => 2; |
28 |
use constant PULL_INTERVAL => 2; |
30 |
|
29 |
|
31 |
use C4::Context; |
30 |
use C4::Context; |
32 |
use C4::Output; |
31 |
use C4::Output; |
Lines 79-85
if ( $startdate ) {
Link Here
|
79 |
unless ( $startdate ){ |
78 |
unless ( $startdate ){ |
80 |
# changed from delivered range of 10 years-yesterday to 2 days ago-today |
79 |
# changed from delivered range of 10 years-yesterday to 2 days ago-today |
81 |
# Find two days ago for the default shelf pull start date, unless HoldsToPullStartDate sys pref is set. |
80 |
# Find two days ago for the default shelf pull start date, unless HoldsToPullStartDate sys pref is set. |
82 |
$startdate = $today - DateTime::Duration->new( days => C4::Context->preference('HoldsToPullStartDate') || 2 ); |
81 |
$startdate = $today - DateTime::Duration->new( days => C4::Context->preference('HoldsToPullStartDate') || PULL_INTERVAL ); |
83 |
} |
82 |
} |
84 |
|
83 |
|
85 |
if ( $enddate ) { |
84 |
if ( $enddate ) { |
Lines 87-93
if ( $enddate ) {
Link Here
|
87 |
} |
86 |
} |
88 |
unless ( $enddate ) { |
87 |
unless ( $enddate ) { |
89 |
#similarly: calculate end date with ConfirmFutureHolds (days) |
88 |
#similarly: calculate end date with ConfirmFutureHolds (days) |
90 |
$enddate = $today - DateTime::Duration->new( days => C4::Context->preference('ConfirmFutureHolds') || 0 ); |
89 |
$enddate = $today + DateTime::Duration->new( days => C4::Context->preference('ConfirmFutureHolds') || 0 ); |
91 |
} |
90 |
} |
92 |
|
91 |
|
93 |
my @reservedata; |
92 |
my @reservedata; |
Lines 206-213
$template->param(
Link Here
|
206 |
run_report => $run_report, |
205 |
run_report => $run_report, |
207 |
reserveloop => \@reservedata, |
206 |
reserveloop => \@reservedata, |
208 |
"BiblioDefaultView".C4::Context->preference("BiblioDefaultView") => 1, |
207 |
"BiblioDefaultView".C4::Context->preference("BiblioDefaultView") => 1, |
209 |
HoldsToPullStartDate=> C4::Context->preference('HoldsToPullStartDate')||TWO_DAYS, |
208 |
HoldsToPullStartDate => C4::Context->preference('HoldsToPullStartDate') || PULL_INTERVAL, |
210 |
HoldsToPullEndDate => C4::Context->preference('ConfirmFutureHolds')||0, |
209 |
HoldsToPullEndDate => C4::Context->preference('ConfirmFutureHolds') || 0, |
211 |
); |
210 |
); |
212 |
|
211 |
|
213 |
output_html_with_http_headers $input, $cookie, $template->output; |
212 |
output_html_with_http_headers $input, $cookie, $template->output; |
214 |
- |
|
|