[Koha-cvs] CVS: koha admin-home.pl,1.2,1.3
Paul POULAIN
tipaul at users.sourceforge.net
Fri Oct 11 09:25:24 CEST 2002
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv23500
Modified Files:
admin-home.pl
Log Message:
merging from 1.2 and templating
Index: admin-home.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin-home.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** admin-home.pl 10 Oct 2002 16:15:36 -0000 1.2
--- admin-home.pl 11 Oct 2002 07:25:22 -0000 1.3
***************
*** 6,31 ****
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');
--- 6,16 ----
use C4::Output;
use C4::Database;
! use HTML::Template;
my $query = new CGI;
my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
! my $template = gettemplate("parameters/admin-home.tmpl");
! $template->param(loggeninuser => $loggedinuser);
! print $query->header(-cookie => $cookie),$template->output;
\ No newline at end of file
More information about the Koha-cvs
mailing list