(bug #4051) add due date in overdue.tmpl
[koha.git] / reports / itemtypes.plugin
old mode 100644 (file)
new mode 100755 (executable)
index edaa6b6..9b79f65
@@ -1,6 +1,5 @@
 #!/usr/bin/perl
 
-# $Id$
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -23,11 +22,11 @@ use strict;
 use C4::Auth;
 use CGI;
 use C4::Context;
-use HTML::Template;
+use HTML::Template::Pro;
 use C4::Search;
 use C4::Output;
 use C4::Koha;
-
+use C4::Branch; # GetBranches
 =head1
 
 =cut
@@ -35,7 +34,7 @@ use C4::Koha;
 sub set_parameters {
        my ($template) = @_;
        my $dbh = C4::Context->dbh;
-       my $branches=getbranches();
+       my $branches=GetBranches();
        my @branches;
        my @select_branch;
        my %select_branches;
@@ -61,24 +60,57 @@ sub calculate {
        my $dbh = C4::Context->dbh;
        my $sth;
        if ($branch) {
-               $sth = $dbh->prepare("select description, biblioitems.itemtype, count(*) as total from itemtypes, biblioitems, items 
-                                               where biblioitems.itemtype=itemtypes.itemtype 
-                                                       and items.biblionumber=biblioitems.biblionumber
-                                                       and items.holdingbranch=?
-                                               group by biblioitems.itemtype");
+               if (C4::Context->preference('item-level_itypes')) {
+               $sth = $dbh->prepare("
+        SELECT description, items.itype as itemtype, COUNT(*) AS total 
+                       FROM itemtypes,items         
+               WHERE items.itype=itemtypes.itemtype         
+               AND items.holdingbranch=?            
+               GROUP BY  items.itype");
+
+               }
+               else {
+               $sth = $dbh->prepare("
+               SELECT 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");
+               }
                $sth->execute($branch);
        } else {
-               $sth = $dbh->prepare("select description, biblioitems.itemtype, count(*) as total from itemtypes, biblioitems where biblioitems.itemtype=itemtypes.itemtype group by biblioitems.itemtype");
+               if (C4::Context->preference('item-level_itypes')) {
+               $sth = $dbh->prepare("
+               SELECT description,items.itype AS itemtype, COUNT(*) AS total 
+                       FROM itemtypes,items
+               WHERE items.itype=itemtypes.itemtype
+                       GROUP BY items.itype");
+               }
+               else {
+               $sth = $dbh->prepare("SELECT description, biblioitems.itemtype, COUNT(*) AS total
+                       FROM itemtypes, biblioitems,items 
+               WHERE biblioitems.itemtype=itemtypes.itemtype 
+               AND biblioitems.biblioitemnumber = items.biblioitemnumber
+                       GROUP BY biblioitems.itemtype");
+               }
                $sth->execute;
        }
        my ($description,$biblioitems,$total);
        my $grantotal = 0;
+       my $count = 0;
        while (($description,$biblioitems,$total) = $sth->fetchrow) {
                my %line;
+               if($count % 2){
+                       $line{toggle} = 1;
+                       } else {
+                               $line{toggle} = 0;
+                       }
                $line{itemtype} = $description;
                $line{count} = $total;
                $grantotal += $total;
                push @results,\%line;
+               $count ++;
        }
        my @mainloop;
        my %globalline;
@@ -89,4 +121,4 @@ sub calculate {
        return \@mainloop;
 }
 
-1;
\ No newline at end of file
+1;