[Koha-cvs] CVS: koha admin-home.pl,1.2,1.3

[Paul POULAIN]

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