7 use C4::Auth; # get_template_and_user
8 use C4::Interface::CGI::Output;
12 my $dbh = C4::Context->dbh;
13 my $query="Select itemtype,description from itemtypes order by description";
14 my $sth=$dbh->prepare($query);
18 while (my ($value,$lib) = $sth->fetchrow_array) {
19 push @itemtype, $value;
20 $itemtypes{$value}=$lib;
23 my $CGIitemtype=CGI::scrolling_list( -name => 'itemtype',
24 -values => \@itemtype,
25 -labels => \%itemtypes,
29 my ($template, $borrowernumber, $cookie)
30 = get_template_and_user({template_name => "opac-main.tmpl",
34 flagsrequired => {borrow => 1},
37 $template->param(CGIitemtype => $CGIitemtype,
39 output_html_with_http_headers $input, $cookie, $template->output;