respect permalinks

master
Joey Hess 2010-05-06 23:28:40 -04:00
parent 14826ad927
commit 575080d6ef
1 changed files with 6 additions and 1 deletions

View File

@ -112,12 +112,17 @@ sub indexhtml (@) {
}
$sample=~s/\n/ /g;
my $url=urlto($params{destpage}, "");
if (defined $pagestate{$params{page}}{meta}{permalink}) {
$url=$pagestate{$params{page}}{meta}{permalink}
}
# data used by omega
# Decode html entities in it, since omega re-encodes them.
eval q{use HTML::Entities};
error $@ if $@;
$doc->set_data(
"url=".urlto($params{destpage}, "")."\n".
"url=".$url."\n".
"sample=".decode_entities($sample)."\n".
"caption=".decode_entities($caption)."\n".
"modtime=$IkiWiki::pagemtime{$params{page}}\n".