6 use C4::Output; # contains picktemplate
12 my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
17 open (KC, "/etc/koha.conf");
21 if (/(.*)\s*=\s*(.*)/) {
24 # Clean up white space at beginning and end
29 $configfile{$variable}=$value;
35 my $includes=$configfile{'includes'};
36 ($includes) || ($includes="/usr/local/www/hdl/htdocs/includes");
37 my $templatebase="user/userpage.tmpl";
38 my $theme=picktemplate($includes, $templatebase);
40 my $template = HTML::Template->new(filename => "$includes/templates/$theme/$templatebase", die_on_bad_params => 0, path => [$includes]);
42 $template->param(loggedinuser => $loggedinuser);
44 print $query->header(-cookie => $cookie), $template->output;