-my $dbh = C4::Context->dbh;
-my $query="Select itemtype,description from itemtypes order by description";
-my $sth=$dbh->prepare($query);
-$sth->execute;
-my @itemtype;
-my %itemtypes;
-while (my ($value,$lib) = $sth->fetchrow_array) {
- push @itemtype, $value;
- $itemtypes{$value}=$lib;
-}
-
-my $CGIitemtype=CGI::scrolling_list( -name => 'itemtype',
- -values => \@itemtype,
- -labels => \%itemtypes,
- -size => 1,
- -multiple => 0 );
-$sth->finish;
-
-my ($template, $borrowernumber, $cookie)
- = get_template_and_user({template_name => "opac-main.tmpl",
- type => "opac",
- query => $input,
- authnotrequired => 1,
- flagsrequired => {borrow => 1},
- });
-$template->param(CGIitemtype => $CGIitemtype,
- suggestion => C4::Context->preference("suggestion"),
+my $dbh = C4::Context->dbh;
+
+my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
+ {
+ template_name => "opac-main.tmpl",
+ type => "opac",
+ query => $input,
+ authnotrequired => 1,
+ flagsrequired => { borrow => 1 },
+ }