po(nicepagetitle): forgot to display %

[ikiwiki.git] / IkiWiki / Plugin / po.pm

diff --git a/IkiWiki/Plugin/po.pm b/IkiWiki/Plugin/po.pm
index 93274ba1300ac774bdd39912d61172a72589191b..cee7a7654c152264ec33bd4c16384eac875a0971 100644 (file)
--- a/IkiWiki/Plugin/po.pm
+++ b/IkiWiki/Plugin/po.pm
@@ -490,7 +490,9 @@ sub myurlto ($$;$) { #{{{
 sub mynicepagetitle ($;$) { #{{{
        my ($page, $unescaped) = (shift, shift);
 
 sub mynicepagetitle ($;$) { #{{{
        my ($page, $unescaped) = (shift, shift);
 

-       return $origsubs{'nicepagetitle'}->($page, $unescaped);
+       my $res = $origsubs{'nicepagetitle'}->($page, $unescaped);
+       return $res unless istranslation($page);
+       return $res.' ('.percenttranslated($page).' %)';

 } #}}}
 
 # ,----
 } #}}}
 
 # ,----


@@ -730,6 +732,7 @@ sub urlto_with_orig_beautiful_urlpath($$) { #{{{
 sub percenttranslated ($) { #{{{
        my $page=shift;
 
 sub percenttranslated ($) { #{{{
        my $page=shift;
 

+       $page=~s/^\///;

        return gettext("N/A") unless istranslation($page);
        my $file=srcfile($pagesources{$page});
        my $masterfile = srcfile($pagesources{masterpage($page)});
        return gettext("N/A") unless istranslation($page);
        my $file=srcfile($pagesources{$page});
        my $masterfile = srcfile($pagesources{masterpage($page)});