41 lines
1.1 KiB
Perl
Executable file
41 lines
1.1 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;
|
|
|
|
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},
|
|
});
|
|
$template->param(CGIitemtype => $CGIitemtype,
|
|
suggestion => C4::Context->preference("suggestion"),
|
|
virtualshelves => C4::Context->preference("virtualshelves"),
|
|
);
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|