little modif in gettemplate.

[koha_fer] / userpage.pl

diff --git a/userpage.pl b/userpage.pl
index 119ffe2..044d0f2 100755 (executable)
--- a/userpage.pl
+++ b/userpage.pl
@@ -21,21 +21,21 @@ use HTML::Template;
 use strict;
 require Exporter;
 use C4::Context;
-use C4::Output;  # contains picktemplate
+use C4::Output;
 use CGI;
 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 $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,
+                            });
 
-my $template = HTML::Template->new(filename => "$includes/templates/$theme/$templatebase", die_on_bad_params => 0, path => [$includes]);
-
-$template->param(loggedinuser => $loggedinuser);
+warn "userloggedin : $loggedinuser (".$query->param('userid')." et ".$query->param('password');
 
 print $query->header(-cookie => $cookie), $template->output;