[Koha-cvs] CVS: koha admin-home.pl,1.4,1.5 catalogue-home.pl,1.3,1.4 mainpage.pl,1.4,1.5 userpage.pl,1.7,1.8

[Paul POULAIN]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv26846

Modified Files:
	admin-home.pl catalogue-home.pl mainpage.pl userpage.pl 
Log Message:
adding authentification with Auth.pm
(note : i want to stay the 1st commiter in december as in november :-) )

Index: admin-home.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin-home.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** admin-home.pl	28 Oct 2002 17:46:18 -0000	1.4
--- admin-home.pl	10 Dec 2002 17:35:27 -0000	1.5
***************
*** 9,15 ****
  
  my $query = new CGI;
! my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
! 
! my $template = gettemplate("parameters/admin-home.tmpl");
  $template->param(loggeninuser => $loggedinuser);
  
--- 9,20 ----
  
  my $query = new CGI;
! my ($template, $loggedinuser, $cookie)
!     = get_template_and_user({template_name => "parameters/admin-home.tmpl",
! 			     query => $query,
! 			     type => "intranet",
! 			     authnotrequired => 0,
! 			     flagsrequired => {parameters => 1},
! 			     debug => 1,
! 			     });
  $template->param(loggeninuser => $loggedinuser);
  

Index: catalogue-home.pl
===================================================================
RCS file: /cvsroot/koha/koha/catalogue-home.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** catalogue-home.pl	28 Oct 2002 17:46:18 -0000	1.3
--- catalogue-home.pl	10 Dec 2002 17:35:28 -0000	1.4
***************
*** 9,14 ****
  
  my $query = new CGI;
! my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
! my $template = gettemplate("catalogue/catalogue-home.tmpl");
  
  my $classlist='';
--- 9,20 ----
  
  my $query = new CGI;
! my ($template, $loggedinuser, $cookie)
!     = get_template_and_user({template_name => "catalogue/catalogue-home.tmpl",
! 			     query => $query,
! 			     type => "intranet",
! 			     authnotrequired => 0,
! 			     flagsrequired => {parameters => 1},
! 			     debug => 1,
! 			     });
  
  my $classlist='';
***************
*** 19,23 ****
  $template->param(loggedinuser => $loggedinuser,
  						classlist => $classlist,
! 						opac => 0);
  
  print $query->header(-cookie => $cookie), $template->output;
--- 25,29 ----
  $template->param(loggedinuser => $loggedinuser,
  						classlist => $classlist,
! 						type => 'intranet',);
  
  print $query->header(-cookie => $cookie), $template->output;

Index: mainpage.pl
===================================================================
RCS file: /cvsroot/koha/koha/mainpage.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** mainpage.pl	10 Dec 2002 13:54:08 -0000	1.4
--- mainpage.pl	10 Dec 2002 17:35:28 -0000	1.5
***************
*** 9,15 ****
  
  my $query = new CGI;
! my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
! 
! my $template = gettemplate("intranet-main.tmpl");
  
  print  $query->header(-cookie => $cookie), $template->output;
--- 9,20 ----
  
  my $query = new CGI;
! my ($template, $loggedinuser, $cookie)
!     = get_template_and_user({template_name => "intranet-main.tmpl",
! 			     query => $query,
! 			     type => "intranet",
! 			     authnotrequired => 0,
! 			     flagsrequired => {parameters => 1},
! 			     debug => 1,
! 			     });
  
  print  $query->header(-cookie => $cookie), $template->output;

Index: userpage.pl
===================================================================
RCS file: /cvsroot/koha/koha/userpage.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** userpage.pl	10 Oct 2002 10:07:34 -0000	1.7
--- userpage.pl	10 Dec 2002 17:35:29 -0000	1.8
***************
*** 27,36 ****
  use C4::Auth;
  
! my $query=new CGI;
! my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 0);
  
! my $template = gettemplate("user/userpage.tmpl",0);
! 
! $template->param(loggedinuser => $loggedinuser);
  
  print $query->header(-cookie => $cookie), $template->output;
--- 27,41 ----
  use C4::Auth;
  
! my $query = new CGI;
! my ($template, $loggedinuser, $cookie)
!     = get_template_and_user({template_name => "user/userpage.tmpl",
! 			     query => $query,
! 			     type => "intranet",
! 			     authnotrequired => 0,
! 			     flagsrequired => {parameters => 1},
! 			     debug => 1,
! 			     });
  
! warn "userloggedin : $loggedinuser (".$query->param('userid')." et ".$query->param('password');
  
  print $query->header(-cookie => $cookie), $template->output;