#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
use C4::Auth;
use CGI;
use C4::Context;
+use HTML::Template::Pro;
use C4::Search;
use C4::Output;
use C4::Koha;
+use C4::Members;
+
+use C4::Branch; # GetBranches
=head1 NAME
$select_branches{$branch} = $branches->{$branch}->{'branchname'};
}
my $CGIbranch=CGI::scrolling_list( -name => 'value',
- -id => 'value',
+ -id => 'branch',
-values => \@select_branch,
-labels => \%select_branches,
-size => 1,
-multiple => 0 );
$template->param(CGIbranch => $CGIbranch);
+
+ my ($codes,$labels)=GetborCatFromCatType(undef,undef);
+ my @borcatloop;
+ foreach my $thisborcat (sort keys %$labels) {
+ push @borcatloop, {value => $thisborcat,
+ description => $labels->{$thisborcat},
+ };
+ }
+ $template->param(loopcategories => \@borcatloop);
return $template;
}
sub calculate {
}
# now, parse each category. Before filling the result array, fill it with 0 to have every itemtype column.
my $strsth="SELECT itemtype, count( * )
- FROM issues, borrowers, biblio, items
+ FROM issues, borrowers, biblioitems, items
WHERE issues.borrowernumber = borrowers.borrowernumber
AND items.itemnumber = issues.itemnumber
- AND biblio.biblionumber = items.biblionumber
+ AND biblioitems.biblionumber = items.biblionumber
AND borrowers.categorycode = ?";
$strsth.= " AND borrowers.branchcode = ".$dbh->quote($branch) if ($branch);
- $strsth .= " GROUP BY biblio.itemtype";
+ $strsth .= " GROUP BY biblioitems.itemtype";
my $sth = $dbh->prepare($strsth);
my $sthcategories = $dbh->prepare("select categorycode,description from categories");
$sthcategories->execute;
return \@mainloop;
}
-1;
\ No newline at end of file
+1;