tipaul
22 years ago
5 changed files with 103 additions and 0 deletions
@ -0,0 +1,31 @@ |
|||
#!/usr/bin/perl |
|||
|
|||
use strict; |
|||
use CGI; |
|||
use C4::Auth; |
|||
use C4::Output; |
|||
use C4::Database; |
|||
|
|||
my $configfile=configfile(); |
|||
my $intranetdir=$configfile->{'intranetdir'}; |
|||
|
|||
my $query = new CGI; |
|||
my ($loggedinuser, $cookie, $sessionID) = checkauth($query); |
|||
|
|||
print $query->header(-cookie => $cookie); |
|||
|
|||
print startpage(); |
|||
print startmenu('catalogue'); |
|||
|
|||
|
|||
print "<p align=left>Logged in as: $loggedinuser [<a href=/cgi-bin/koha/logout.pl>Log Out</a>]</p>\n"; |
|||
|
|||
open H, "$intranetdir/htdocs/admin/index.html"; |
|||
while (<H>) { |
|||
print $_; |
|||
} |
|||
close H; |
|||
|
|||
|
|||
print endpage(); |
|||
print endmenu('catalogue'); |
@ -0,0 +1,23 @@ |
|||
#!/usr/bin/perl |
|||
|
|||
use strict; |
|||
use CGI; |
|||
use C4::Auth; |
|||
use C4::Output; |
|||
use C4::Database; |
|||
use HTML::Template; |
|||
|
|||
my $query = new CGI; |
|||
my ($loggedinuser, $cookie, $sessionID) = checkauth($query,1); |
|||
my $template = gettemplate("catalogue/catalogue-home.tmpl"); |
|||
|
|||
my $classlist=''; |
|||
#open C, "$intranetdir/htdocs/includes/cat-class-list.inc"; |
|||
#while (<C>) { |
|||
# $classlist.=$_; |
|||
#} |
|||
$template->param(loggedinuser => $loggedinuser, |
|||
classlist => $classlist, |
|||
opac => 0); |
|||
|
|||
print $query->header(-cookie => $cookie), $template->output; |
@ -0,0 +1,15 @@ |
|||
#!/usr/bin/perl |
|||
use HTML::Template; |
|||
use strict; |
|||
require Exporter; |
|||
use C4::Database; |
|||
use C4::Output; # contains picktemplate |
|||
use CGI; |
|||
use C4::Auth; |
|||
|
|||
my $query = new CGI; |
|||
my ($loggedinuser, $cookie, $sessionID) = checkauth($query); |
|||
|
|||
my $template=gettemplate("intranet-main.tmpl"); |
|||
|
|||
print "Content-Type: text/html\n\n", $template->output; |
@ -0,0 +1,18 @@ |
|||
#!/usr/bin/perl |
|||
|
|||
use strict; |
|||
use CGI; |
|||
use C4::Auth; |
|||
use C4::Output; |
|||
use C4::Context; |
|||
use HTML::Template; |
|||
|
|||
my $query = new CGI; |
|||
my $flagsrequired; |
|||
$flagsrequired->{borrowers}=1; |
|||
my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 0, $flagsrequired); |
|||
|
|||
my $template = gettemplate("members/members-home.tmpl"); |
|||
$template->param(loggedinuser => $loggedinuser); |
|||
|
|||
print $query->header(-cookie => $cookie),$template->output; |
@ -0,0 +1,16 @@ |
|||
#!/usr/bin/perl |
|||
|
|||
use strict; |
|||
use CGI; |
|||
use C4::Auth; |
|||
use C4::Output; |
|||
use C4::Context; |
|||
use HTML::Template; |
|||
|
|||
my $query = new CGI; |
|||
my ($loggedinuser, $cookie, $sessionID) = checkauth($query); |
|||
|
|||
my $template = gettemplate("reports/reports-home.tmpl"); |
|||
$template->param(loggedinuser => $loggedinuser); |
|||
|
|||
print $query->header(-cookie => $cookie),$template->output; |
Loading…
Reference in new issue