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>.
38 my ($parameters) = @_;
40 my $branch = @$parameters[0];
41 my $dbh = C4::Context->dbh;
43 if ( C4::Context->preference('item-level_itypes') ) {
44 $sth = $dbh->prepare( q|
45 SELECT itemtypes.itemtype, description, COUNT(*) AS total
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
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
64 $sth->execute($branch || ());
65 my ($itemtype, $description,$total);
68 while (($itemtype, $description,$total) = $sth->fetchrow) {
70 $line{itemtype} = $itemtype;
71 $line{count} = $total;
78 $globalline{loopitemtype} = \@results;
79 $globalline{total} = $grantotal;
80 $globalline{branch} = $branch;
81 push @mainloop,\%globalline;