From 1a6e2e54ba80edb79bcec6789a24b1775e26879d Mon Sep 17 00:00:00 2001
From: Fridolin Somers <fridolin.somers@biblibre.com>
Date: Mon, 5 Feb 2018 11:25:11 +0100
Subject: [PATCH] Revert "Bug 19669: (QA follow-up) Remove itemstypes.plugin"

This reverts commit 6338895489156832782ce31c0f1e37dce070d4f9.
---
 reports/itemtypes.plugin | 109 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 109 insertions(+)
 create mode 100755 reports/itemtypes.plugin

diff --git a/reports/itemtypes.plugin b/reports/itemtypes.plugin
new file mode 100755
index 0000000000..ffa6fb7a43
--- /dev/null
+++ b/reports/itemtypes.plugin
@@ -0,0 +1,109 @@
+#!/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;
-- 
2.11.4.GIT