[Koha-cvs] CVS: koha userpage.pl,1.4,1.5

[Paul POULAIN]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv5065

Modified Files:
        userpage.pl 
Log Message:
bugfix : uses gettemplate and not picktemplate

Index: userpage.pl
===================================================================
RCS file: /cvsroot/koha/koha/userpage.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** userpage.pl 5 Oct 2002 09:47:43 -0000       1.4
--- userpage.pl 9 Oct 2002 15:45:25 -0000       1.5
***************
*** 26,39 ****
  use C4::Search;
  use C4::Auth;
!  
  my $query=new CGI;
  my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 1);
  
! my $includes = C4::Context->config('includes') ||
!       "/usr/local/www/hdl/htdocs/includes";
! my $templatebase="user/userpage.tmpl";
! my $theme=picktemplate($includes, $templatebase);
! 
! my $template = HTML::Template->new(filename => 
"$includes/templates/$theme/$templatebase", die_on_bad_params => 0, path => 
[$includes]);
  
  $template->param(loggedinuser => $loggedinuser);
--- 26,34 ----
  use C4::Search;
  use C4::Auth;
! 
  my $query=new CGI;
  my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 1);
  
! my $template = gettemplate("user/userpage.tmpl",0);
  
  $template->param(loggedinuser => $loggedinuser);