14 my $dbh=C4::Context->dbh;
15 my $sth=$dbh->prepare("select groupname,itemtypes from itemtypesearchgroups order by groupname");
17 while (my ($groupname,$itemtypes) = $sth->fetchrow) {
18 $classlist.="<option value=\"$itemtypes\">$groupname\n";
24 my ($template, $borrowernumber, $cookie)
25 = get_template_and_user({template_name => "opac-search.tmpl",
29 flagsrequired => {borrow => 1},
33 $template->param(classlist => $classlist);
36 -type => guesstype($template->output),