7 use C4::Auth; # get_template_and_user
8 use C4::Interface::CGI::Output;
14 my $dbh = C4::Context->dbh;
15 my $query="Select itemtype,description from itemtypes order by description";
16 my $sth=$dbh->prepare($query);
20 while (my ($value,$lib) = $sth->fetchrow_array) {
21 push @itemtype, $value;
22 $itemtypes{$value}=$lib;
25 my $CGIitemtype=CGI::scrolling_list( -name => 'value',
26 -values => \@itemtype,
27 -labels => \%itemtypes,
32 my ($template, $borrowernumber, $cookie)
33 = get_template_and_user({template_name => "opac-main.tmpl",
37 flagsrequired => {borrow => 1},
39 my $borrower = getmember('',$borrowernumber);
42 foreach my $language (getalllanguages()) {
43 next if $language eq 'images';
45 # next if $currently_selected_languages->{$language};
46 push @options, { language => $language, counter => $counter };
50 $template->param(CGIitemtype => $CGIitemtype,
51 suggestion => C4::Context->preference("suggestion"),
52 virtualshelves => C4::Context->preference("virtualshelves"),
53 languages => \@options,
54 textmessaging => $borrower->{textmessaging},
56 output_html_with_http_headers $input, $cookie, $template->output;