[Koha-cvs] CVS: koha catalogue-home.pl,1.8,1.9

[Paul POULAIN]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv27377

Modified Files:
        catalogue-home.pl 
Log Message:
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.

Index: catalogue-home.pl
===================================================================
RCS file: /cvsroot/koha/koha/catalogue-home.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** catalogue-home.pl   16 Jun 2003 09:20:35 -0000      1.8
--- catalogue-home.pl   8 Aug 2003 13:46:26 -0000       1.9
***************
*** 24,28 ****
  my ($itemtypecount,@itemtypes)=getitemtypes();
  
!   my $classlist='';
  $template->param(classlist => $classlist,
                                                type => 'intranet',
--- 24,35 ----
  my ($itemtypecount,@itemtypes)=getitemtypes();
  
! 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',