projects
/
koha.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Handle meta tags for non-latin1 charsets
[koha.git]
/
opac
/
opac-main.pl
1
#!/usr/bin/perl
2
use strict;
3
require Exporter;
4
use CGI;
5
use HTML::Template;
6
7
use C4::Auth; # get_template_and_user
8
use C4::Charset;
9
10
my $query = new CGI;
11
12
my ($template, $borrowernumber, $cookie)
13
= get_template_and_user({template_name => "opac-main.tmpl",
14
query => $query,
15
type => "opac",
16
authnotrequired => 1,
17
flagsrequired => {borrow => 1},
18
});
19
20
print $query->header(
21
-type => guesstype($template->output),
22
-cookie => $cookie
23
), $template->output;