rel_3_0 moved to HEAD

[koha_fer] / reports / issues_by_borrower_category.plugin

diff --git a/reports/issues_by_borrower_category.plugin b/reports/issues_by_borrower_category.plugin
index c767bb8..888a21d 100644 (file)
--- a/reports/issues_by_borrower_category.plugin
+++ b/reports/issues_by_borrower_category.plugin
@@ -27,6 +27,7 @@ use HTML::Template;
 use C4::Search;
 use C4::Output;
 use C4::Koha;
+use C4::Branch; # GetBranches
 
 =head1 NAME
 
@@ -63,7 +64,7 @@ the hashes are then translated to hash / arrays to be returned to manager.pl & s
 sub set_parameters {
        my ($template) = @_;
        my $dbh = C4::Context->dbh;
-       my $branches=getbranches();
+       my $branches=GetBranches();
        my @branches;
        my @select_branch;
        my %select_branches;
@@ -100,13 +101,15 @@ sub calculate {
                $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;
@@ -226,4 +229,4 @@ sub calculate {
        return \@mainloop;
 }
 
-1;
\ No newline at end of file
+1;