projects
/
koha_gimpoz
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Corrected syntax error reported by Benedict
[koha_gimpoz]
/
members-home.pl
1
#!/usr/bin/perl
2
3
use strict;
4
use CGI;
5
use C4::Auth;
6
use C4::Output;
7
use C4::Charset;
8
use C4::Context;
9
use HTML::Template;
10
11
my $query = new CGI;
12
my ($template, $loggedinuser, $cookie)
13
= get_template_and_user({template_name => "members/members-home.tmpl",
14
query => $query,
15
type => "intranet",
16
authnotrequired => 0,
17
flagsrequired => {borrowers => 1},
18
debug => 1,
19
});
20
21
print $query->header(
22
-type => guesstype($template->output),
23
-cookie => $cookie
24
),$template->output;