projects
/
srvgit
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Removed the reference to INSTALL since the file does not exist any more
[srvgit]
/
mainpage.pl
1
#!/usr/bin/perl
2
use HTML::Template;
3
use strict;
4
require Exporter;
5
use C4::Database;
6
use C4::Output; # contains gettemplate
7
use C4::Charset;
8
use CGI;
9
use C4::Auth;
10
11
my $query = new CGI;
12
my ($template, $loggedinuser, $cookie)
13
= get_template_and_user({template_name => "intranet-main.tmpl",
14
query => $query,
15
type => "intranet",
16
authnotrequired => 0,
17
flagsrequired => {parameters => 1},
18
debug => 1,
19
});
20
21
print $query->header(
22
-type => guesstype($template->output),
23
-cookie => $cookie
24
), $template->output;