|
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 |
- |
|
|