use vars qw{%config %links %oldlinks %pagemtime %pagectime %pagecase
%pagestate %wikistate %renderedfiles %oldrenderedfiles
- %pagesources %destsources %depends %depends_simple %hooks
- %forcerebuild %loaded_plugins %typedlinks %oldtypedlinks
+ %pagesources %destsources %depends %depends_simple @mass_depends
+ %hooks %forcerebuild %loaded_plugins %typedlinks %oldtypedlinks
%autofiles};
use Exporter q{import};
sub template_file ($) {
my $name=shift;
- my $tpage=($name =~ /^\//) ? $name : "templates/$name";
+ my $tpage=($name =~ s/^\///) ? $name : "templates/$name";
if ($name !~ /\.tmpl$/ && exists $pagesources{$tpage}) {
$tpage=$pagesources{$tpage};
$name.=".tmpl";
return unless defined $filename;
- require HTML::Template;
- return HTML::Template->new(
+ my @opts=(
filter => sub {
my $text_ref = shift;
${$text_ref} = decode_utf8(${$text_ref});
@_,
no_includes => 1,
);
+ return @opts if wantarray;
+
+ require HTML::Template;
+ return HTML::Template->new(@opts);
}
sub template ($;@) {
my $title=shift;
my $pagebody=shift;
- my $template=template("misc.tmpl",
+ my $template=template("misc.tmpl");
+ $template->param(
title => $title,
indexlink => indexlink(),
wikiname => $config{wikiname},