urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

po: do not beautify urls on the recentchanges page 

... else, the recentchanges page shows a link such as "sandbox.es". But,
clicking on it goes to the English (or negotiated language) version of the page.

It is better in this one case if the link goes direct to the translated version
of the page.
master
intrigeri 2009-08-26 07:56:33 +02:00
parent 0113c69d4f
commit 496e8523c6
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
IkiWiki/Plugin/po.pm
View File

@ -605,17 +605,21 @@ sub myurlto ($$;$) {
# so that one is redirected to the just-edited page rather than to the
# negociated translation; to prevent unnecessary fiddling with caller/inject,
# we only do so when our beautify_urlpath would actually do what we want to
# avoid, i.e. when po_link_to = negotiated
# avoid, i.e. when po_link_to = negotiated.
# also avoid doing so when run by cgi_goto, so that the links on recentchanges
# page actually lead to the exact page they pretend to.
if ($config{po_link_to} eq "negotiated") {
my @caller = caller(1);
my $run_by_editpage = 0;
$run_by_editpage = 1 if (exists $caller[3] && defined $caller[3]
&& $caller[3] eq "IkiWiki::cgi_editpage");
my $use_orig = 0;
$use_orig = 1 if (exists $caller[3] && defined $caller[3]
&& ($caller[3] eq "IkiWiki::cgi_editpage" ||
$caller[3] eq "IkiWiki::Plugin::goto::cgi_goto")
);
inject(name => "IkiWiki::beautify_urlpath", call => $origsubs{'beautify_urlpath'})
if $run_by_editpage;
if $use_orig;
my $res = $origsubs{'urlto'}->($to,$from,$absolute);
inject(name => "IkiWiki::beautify_urlpath", call => \&mybeautify_urlpath)
if $run_by_editpage;
if $use_orig;
return $res;
}
else {