use C4::Auth;
use CGI;
use C4::Context;
-use HTML::Template;
+use HTML::Template::Pro;
use C4::Search;
use C4::Output;
use C4::Koha;
+use C4::Branch; # GetBranches
=head1 NAME
sub set_parameters {
my ($template) = @_;
my $dbh = C4::Context->dbh;
- my $branches=getbranches();
+ my $branches=GetBranches();
my @branches;
my @select_branch;
my %select_branches;
$itemtypes{$itemtype}->{total} = 0;
}
# now, parse each category. Before filling the result array, fill it with 0 to have every itemtype column.
- my $sth = $dbh->prepare("SELECT itemtype, count( * )
+ my $strsth="SELECT itemtype, count( * )
FROM issues, borrowers, biblioitems, items
WHERE issues.borrowernumber = borrowers.borrowernumber
AND items.itemnumber = issues.itemnumber
AND biblioitems.biblionumber = items.biblionumber
- AND borrowers.categorycode = ?
- GROUP BY biblioitems.itemtype");
+ AND borrowers.categorycode = ?";
+ $strsth.= " AND borrowers.branchcode = ".$dbh->quote($branch) if ($branch);
+ $strsth .= " GROUP BY biblioitems.itemtype";
+ my $sth = $dbh->prepare($strsth);
my $sthcategories = $dbh->prepare("select categorycode,description from categories");
$sthcategories->execute;
my %borrowertype;
return \@mainloop;
}
-1;
\ No newline at end of file
+1;