Bug 25898: (follow-up) POD
[koha.git] / reports / itemtypes.plugin
blobec2c535182d95b88ef37160d7c2ca49be75da05d
1 #!/usr/bin/perl
4 # Copyright 2000-2002 Katipo Communications
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or
11 # (at your option) any later version.
13 # Koha is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with Koha; if not, see <http://www.gnu.org/licenses>.
21 use strict;
22 use C4::Auth;
23 use CGI qw ( -utf8 );
24 use C4::Context;
25 use C4::Search;
26 use C4::Output;
27 use C4::Koha;
28 =head1
30 =cut
32 sub set_parameters {
33 my ($template) = @_;
34 return $template;
37 sub calculate {
38 my ($parameters) = @_;
39 my @results =();
40 my $branch = @$parameters[0];
41 my $dbh = C4::Context->dbh;
42 my $sth;
43 if ( C4::Context->preference('item-level_itypes') ) {
44 $sth = $dbh->prepare( q|
45 SELECT itemtypes.itemtype, description, COUNT(*) AS total
46 FROM itemtypes, items
47 WHERE items.itype=itemtypes.itemtype
48 | . ( $branch ? q| AND items.holdingbranch=? | : () ) . q|
49 GROUP BY itemtypes.itemtype, description, items.itype
50 ORDER BY itemtypes.description
51 |);
53 else {
54 $sth = $dbh->prepare( q|
55 SELECT itemtypes.itemtype, description, COUNT(*) AS total
56 FROM itemtypes, biblioitems, items
57 WHERE biblioitems.itemtype=itemtypes.itemtype
58 AND items.biblioitemnumber=biblioitems.biblioitemnumber
59 | . ( $branch ? q| AND items.holdingbranch=? | : () ) . q|
60 GROUP BY itemtypes.itemtype, description
61 ORDER BY itemtypes.description
62 |);
64 $sth->execute($branch || ());
65 my ($itemtype, $description,$total);
66 my $grantotal = 0;
67 my $count = 0;
68 while (($itemtype, $description,$total) = $sth->fetchrow) {
69 my %line;
70 $line{itemtype} = $itemtype;
71 $line{count} = $total;
72 $grantotal += $total;
73 push @results,\%line;
74 $count ++;
76 my @mainloop;
77 my %globalline;
78 $globalline{loopitemtype} = \@results;
79 $globalline{total} = $grantotal;
80 $globalline{branch} = $branch;
81 push @mainloop,\%globalline;
82 return \@mainloop;