12 my $sth=$dbh->prepare("select groupname,itemtypes from itemtypesearchgroups order by groupname");
14 while (my ($groupname,$itemtypes) = $sth->fetchrow) {
15 $classlist.="<option value=\"$itemtypes\">$groupname\n";
21 my ($template, $borrowernumber, $cookie)
22 = get_template_and_user({template_name => "opac-search.tmpl",
26 flagsrequired => {borrow => 1},
30 $template->param(classlist => $classlist);
32 print $query->header(-cookie => $cookie), $template->output;