[Koha-cvs] CVS: koha catalogue-home.pl,1.1.2.3,1.1.2.4

[Steve Tonnesen]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv27263

Modified Files:
      Tag: rel-1-2
        catalogue-home.pl 
Log Message:
Uses new itemtypesearchgroups table to generate the class drop down.


Index: catalogue-home.pl
===================================================================
RCS file: /cvsroot/koha/koha/catalogue-home.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -C2 -r1.1.2.3 -r1.1.2.4
*** catalogue-home.pl   28 Oct 2002 17:45:14 -0000      1.1.2.3
--- catalogue-home.pl   5 Nov 2002 19:50:40 -0000       1.1.2.4
***************
*** 6,9 ****
--- 6,10 ----
  use C4::Output;
  use C4::Database;
+ use C4::Context;
  use HTML::Template;
  
***************
*** 13,20 ****
  
  my $classlist='';
! #open C, "$intranetdir/htdocs/includes/cat-class-list.inc";
! #while (<C>) {
! #   $classlist.=$_;
! #}
  $template->param(loggedinuser => $loggedinuser,
                                                classlist => $classlist,
--- 14,24 ----
  
  my $classlist='';
! my $dbh=C4::Context->dbh();
! my $sth=$dbh->prepare("select groupname,itemtypes from itemtypesearchgroups 
order by groupname");
! $sth->execute;
! while (my ($groupname,$itemtypes) = $sth->fetchrow) {
!     $classlist.="<option value=\"$itemtypes\">$groupname\n";
! }
! 
  $template->param(loggedinuser => $loggedinuser,
                                                classlist => $classlist,