|
Lines 33-41
use C4::Biblio qw/GetMarcBiblio GetRecordValue GetFrameworkCode/;
Link Here
|
| 33 |
use C4::Acquisition qw/GetOrdersByBiblionumber/; |
33 |
use C4::Acquisition qw/GetOrdersByBiblionumber/; |
| 34 |
|
34 |
|
| 35 |
my $input = new CGI; |
35 |
my $input = new CGI; |
| 36 |
my $startdate = $input->param('from'); |
36 |
my $startdate = $input->param('from'); |
| 37 |
my $enddate = $input->param('to'); |
37 |
my $enddate = $input->param('to'); |
| 38 |
my $ratio = $input->param('ratio'); |
38 |
my $ratio = $input->param('ratio'); |
|
|
39 |
my $include_ordered = $input->param('include_ordered'); |
| 39 |
|
40 |
|
| 40 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
41 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
| 41 |
{ |
42 |
{ |
|
Lines 90-95
if ($enddate) {
Link Here
|
| 90 |
push @query_params, format_date_in_iso($enddate); |
91 |
push @query_params, format_date_in_iso($enddate); |
| 91 |
} |
92 |
} |
| 92 |
|
93 |
|
|
|
94 |
my $nfl_comparison = $include_ordered ? '<=' : '='; |
| 93 |
my $strsth = |
95 |
my $strsth = |
| 94 |
"SELECT reservedate, |
96 |
"SELECT reservedate, |
| 95 |
reserves.borrowernumber as borrowernumber, |
97 |
reserves.borrowernumber as borrowernumber, |
|
Lines 118-124
my $strsth =
Link Here
|
| 118 |
LEFT JOIN items ON items.biblionumber=reserves.biblionumber |
120 |
LEFT JOIN items ON items.biblionumber=reserves.biblionumber |
| 119 |
LEFT JOIN biblio ON reserves.biblionumber=biblio.biblionumber |
121 |
LEFT JOIN biblio ON reserves.biblionumber=biblio.biblionumber |
| 120 |
WHERE |
122 |
WHERE |
| 121 |
notforloan = 0 AND damaged = 0 AND itemlost = 0 AND withdrawn = 0 |
123 |
notforloan $nfl_comparison 0 AND damaged = 0 AND itemlost = 0 AND withdrawn = 0 |
| 122 |
$sqldatewhere |
124 |
$sqldatewhere |
| 123 |
"; |
125 |
"; |
| 124 |
|
126 |
|
|
Lines 180-185
$template->param(
Link Here
|
| 180 |
from => $startdate, |
182 |
from => $startdate, |
| 181 |
to => $enddate, |
183 |
to => $enddate, |
| 182 |
ratio => $ratio, |
184 |
ratio => $ratio, |
|
|
185 |
include_ordered => $include_ordered, |
| 183 |
reserveloop => \@reservedata, |
186 |
reserveloop => \@reservedata, |
| 184 |
); |
187 |
); |
| 185 |
|
188 |
|