From fbad093321fbda4b8161ea0a8d79be365c15dcfe Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 12 Aug 2005 14:05:34 +0000
Subject: [PATCH] using C4::Koha getitemtypes sub & not search.pm one (quest
 for normalization)

---
 catalogue-home.pl | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/catalogue-home.pl b/catalogue-home.pl
index 5431ebafae..de99a8d54b 100755
--- a/catalogue-home.pl
+++ b/catalogue-home.pl
@@ -8,6 +8,7 @@ use C4::Interface::CGI::Output;
 use C4::Database;
 use C4::Acquisition;
 use C4::Biblio;
+use C4::Koha;
 use HTML::Template;
 
 my $query = new CGI;
@@ -21,7 +22,15 @@ my ($template, $loggedinuser, $cookie)
 			     });
 
 my ($branchcount,@branches)=branches();
-my ($itemtypecount,@itemtypes)=getitemtypes();
+
+my $itemtypes = getitemtypes;
+my @itemtypesloop;
+foreach my $thisitemtype (keys %$itemtypes) {
+	my %row =(value => $thisitemtype,
+				description => $itemtypes->{$thisitemtype}->{'description'},
+			);
+	push @itemtypesloop, \%row;
+}
 
 my $classlist='';
 my $dbh=C4::Context->dbh;
@@ -32,8 +41,8 @@ while (my ($description,$itemtype) = $sth->fetchrow) {
 }
 
 $template->param(classlist => $classlist,
-						type => 'intranet',
-		 branches=>\@branches,
-		 itemtypes=>\@itemtypes);
+				type => 'intranet',
+				branches=>\@branches,
+				itemtypeloop => \@itemtypesloop);
 
 output_html_with_http_headers $query, $cookie, $template->output;
-- 
2.39.5