From c60930eef17352b6cb9c3ceb9e080007a7b45b8d Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 8 Aug 2003 13:46:26 +0000
Subject: [PATCH] fixing bug 567 : The same changes that were made to
 opac-search.pl need to be applied to catalogue-search.pl so the intranet
 search will work properly.

---
 catalogue-home.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/catalogue-home.pl b/catalogue-home.pl
index 3e2b7e9ed9..75d908b0ac 100755
--- a/catalogue-home.pl
+++ b/catalogue-home.pl
@@ -23,7 +23,14 @@ my ($template, $loggedinuser, $cookie)
 my ($branchcount,@branches)=branches();
 my ($itemtypecount,@itemtypes)=getitemtypes();
 
-  my $classlist='';
+my $classlist='';
+my $dbh=C4::Context->dbh;
+my $sth=$dbh->prepare("select description,itemtype from itemtypes order by description");
+$sth->execute;
+while (my ($description,$itemtype) = $sth->fetchrow) {
+    $classlist.="<option value=\"$itemtype\">$description\n";
+}
+
 $template->param(classlist => $classlist,
 						type => 'intranet',
 		 branches=>\@branches,
-- 
2.39.5