8 use C4::Auth; # get_template_and_user
9 use C4::Interface::CGI::Output;
15 my $kohaVersion = C4::Context->config("kohaversion");
16 my $dbh = C4::Context->dbh;
17 my $query="Select itemtype,description from itemtypes order by description";
18 my $sth=$dbh->prepare($query);
22 while (my ($value,$lib) = $sth->fetchrow_array) {
23 push @itemtype, $value;
24 $itemtypes{$value}=$lib;
27 my $CGIitemtype=CGI::scrolling_list( -name => 'value',
28 -values => \@itemtype,
29 -labels => \%itemtypes,
34 my ($template, $borrowernumber, $cookie)
35 = get_template_and_user({template_name => "opac-main.tmpl",
39 flagsrequired => {borrow => 1},
41 my $borrower = getmember('',$borrowernumber);
44 foreach my $language (getalllanguages()) {
45 next if $language eq 'images';
46 next if $language eq 'CVS';
47 next if $language=~ /png$/;
48 next if $language=~ /css$/;
50 # next if $currently_selected_languages->{$language};
51 push @options, { language => $language, counter => $counter };
54 my $languages_count = @options;
56 if($languages_count > 1){
57 $template->param(languages => \@options);
59 $template->param(CGIitemtype => $CGIitemtype,
60 suggestion => C4::Context->preference("suggestion"),
61 virtualshelves => C4::Context->preference("virtualshelves"),
62 textmessaging => $borrower->{textmessaging},
63 opaclargeimage => C4::Context->preference("opaclargeimage"),
64 kohaversion => $kohaVersion
66 output_html_with_http_headers $input, $cookie, $template->output;