opac/opac-search.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 require Exporter;
   4
   5 use C4::Auth;
   6 use C4::Context;
   7 use CGI;
   8 use C4::Database;
   9 use HTML::Template;
  10
  11 my $classlist='';
  12
  13 my $dbh=C4::Context->dbh;
  14 my $sth=$dbh->prepare("select groupname,itemtypes from itemtypesearchgroups order by groupname");
  15 $sth->execute;
  16 while (my ($groupname,$itemtypes) = $sth->fetchrow) {
  17     $classlist.="<option value=\"$itemtypes\">$groupname\n";
  18 }
  19
  20
  21 my $query = new CGI;
  22
  23 my ($template, $borrowernumber, $cookie)
  24     = get_template_and_user({template_name => "opac-search.tmpl",
  25                              query => $query,
  26                              type => "opac",
  27                              authnotrequired => 1,
  28                              flagsrequired => {borrow => 1},
  29                          });
  30
  31
  32 $template->param(classlist => $classlist);
  33
  34 print $query->header(-cookie => $cookie), $template->output;