my %params=@_;
my $template=$params{template};
my $page=$params{page};
+
+ # XXX this is here because I've been seeing a strange uninitialized
+ # value in this sub.
+ if (! defined $page) {
+ eval q{use Carp};
+ Carp::cluck("undefined page; please report this to Joey");
+ }
+
if ($config{rcs} && $page ne $config{recentchangespage} &&
$template->query(name => "recentchangesurl")) {
$template->param(recentchangesurl => urlto($config{recentchangespage}, $page));
}
}
$sample=~s/\n/ /g;
- # Decode html entities in the sample since omega encodes them.
- eval q{use HTML::Entities};
- $sample=decode_entities($sample);
# data used by omega
+ # Decode html entities in it, since omega re-encodes them.
+ eval q{use HTML::Entities};
$doc->set_data(
"url=".urlto($params{page}, "")."\n".
- "sample=$sample\n".
- "caption=$title\n".
+ "sample=".decode_entities($sample)."\n".
+ "caption=".decode_entities($title)."\n".
"modtime=$IkiWiki::pagemtime{$params{page}}\n".
"size=".length($params{content})."\n"
);
msgstr ""
"Project-Id-Version: PACKAGE VERSION\n"
"Report-Msgid-Bugs-To: \n"
-"POT-Creation-Date: 2008-06-04 01:17-0400\n"
+"POT-Creation-Date: 2008-06-04 01:46-0400\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
msgid "at noon on %A"
msgstr ""
-#: ../IkiWiki/Plugin/recentchanges.pm:74
+#: ../IkiWiki/Plugin/recentchanges.pm:82
msgid "missing page"
msgstr ""
-#: ../IkiWiki/Plugin/recentchanges.pm:76
+#: ../IkiWiki/Plugin/recentchanges.pm:84
#, perl-format
msgid "The page %s does not exist."
msgstr ""