reports/itemtypes.plugin

   1 #!/usr/bin/perl
   2
   3
   4 # Copyright 2000-2002 Katipo Communications
   5 #
   6 # This file is part of Koha.
   7 #
   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.
  12 #
  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.
  17 #
  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>.
  20
  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
  29
  30 =cut
  31
  32 sub set_parameters {
  33     my ($template) = @_;
  34     return $template;
  35 }
  36
  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         |);
  52     }
  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         |);
  63     }
  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 ++;
  75         }
  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;
  83 }
  84
  85 1;