Koha/opac/opac-main.pl
tipaul 502ab11ae9 moving language chooser to the main page.
monving the getalltemplates and getalllanguages subs out from Search.pm (that will be deprecated soon) to Koha.pm
2004-08-16 12:48:52 +00:00

53 lines
1.4 KiB
Perl
Executable file

#!/usr/bin/perl
use strict;
require Exporter;
use CGI;
use HTML::Template;
use C4::Auth; # get_template_and_user
use C4::Interface::CGI::Output;
use C4::BookShelves;
use C4::Koha;
my $input = new CGI;
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},
});
my @options;
my $counter=0;
foreach my $language (getalllanguages()) {
next if $language eq 'images';
my $selected='0';
# next if $currently_selected_languages->{$language};
push @options, { language => $language, counter => $counter };
$counter++;
}
$template->param(CGIitemtype => $CGIitemtype,
suggestion => C4::Context->preference("suggestion"),
virtualshelves => C4::Context->preference("virtualshelves"),
languages => \@options,
);
output_html_with_http_headers $input, $cookie, $template->output;