+++ /dev/null
-#!/usr/bin/perl
-
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 3 of the License, or
-# (at your option) any later version.
-#
-# Koha is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with Koha; if not, see <http://www.gnu.org/licenses>.
-
-use strict;
-use C4::Auth;
-use CGI qw ( -utf8 );
-use C4::Context;
-use C4::Search;
-use C4::Output;
-use C4::Koha;
-=head1
-
-=cut
-
-sub set_parameters {
- my ($template) = @_;
- return $template;
-}
-
-sub calculate {
- my ($parameters) = @_;
- my @results =();
- my $branch = @$parameters[0];
- my $dbh = C4::Context->dbh;
- my $sth;
- if ($branch) {
- if (C4::Context->preference('item-level_itypes')) {
- $sth = $dbh->prepare("
- SELECT itemtype, description, items.itype as itemtype, COUNT(*) AS total
- FROM itemtypes,items
- WHERE items.itype=itemtypes.itemtype
- AND items.holdingbranch=?
- GROUP BY items.itype
- ORDER BY itemtypes.description");
-
- }
- else {
- $sth = $dbh->prepare("
- SELECT itemtype, description, biblioitems.itemtype, COUNT(*) AS total
- FROM itemtypes, biblioitems, items
- WHERE biblioitems.itemtype=itemtypes.itemtype
- AND items.biblioitemnumber=biblioitems.biblioitemnumber
- AND items.holdingbranch=?
- GROUP BY biblioitems.itemtype
- ORDER BY itemtypes.description");
- }
- $sth->execute($branch);
- } else {
- if (C4::Context->preference('item-level_itypes')) {
- $sth = $dbh->prepare("
- SELECT itemtype, description,items.itype AS itemtype, COUNT(*) AS total
- FROM itemtypes,items
- WHERE items.itype=itemtypes.itemtype
- GROUP BY items.itype
- ORDER BY itemtypes.description");
- }
- else {
- $sth = $dbh->prepare("SELECT itemtype, description, biblioitems.itemtype, COUNT(*) AS total
- FROM itemtypes, biblioitems,items
- WHERE biblioitems.itemtype=itemtypes.itemtype
- AND biblioitems.biblioitemnumber = items.biblioitemnumber
- GROUP BY biblioitems.itemtype
- ORDER BY itemtypes.description");
- }
- $sth->execute;
- }
- my ($itemtype, $description,$biblioitems,$total);
- my $grantotal = 0;
- my $count = 0;
- while (($itemtype, $description,$biblioitems,$total) = $sth->fetchrow) {
- my %line;
- if($count % 2){
- $line{toggle} = 1;
- } else {
- $line{toggle} = 0;
- }
- $line{itemtype} = $itemtype;
- $line{count} = $total;
- $grantotal += $total;
- push @results,\%line;
- $count ++;
- }
- my @mainloop;
- my %globalline;
- $globalline{loopitemtype} = \@results;
- $globalline{total} = $grantotal;
- $globalline{branch} = $branch;
- push @mainloop,\%globalline;
- return \@mainloop;
-}
-
-1;