From 8745d67f066e3dd7e3c19f2da517711b724ba7a7 Mon Sep 17 00:00:00 2001
From: intrigeri <intrigeri@boum.org>
Date: Thu, 13 Nov 2008 00:56:23 +0100
Subject: po(istranslatablefile): extracted this from istranslatable
... will need this soon to deal with master file deletion.
Signed-off-by: intrigeri <intrigeri@boum.org>
---
IkiWiki/Plugin/po.pm | 17 +++++++++++------
1 file changed, 11 insertions(+), 6 deletions(-)
diff --git a/IkiWiki/Plugin/po.pm b/IkiWiki/Plugin/po.pm
index 7039f3033..f13093963 100644
--- a/IkiWiki/Plugin/po.pm
+++ b/IkiWiki/Plugin/po.pm
@@ -501,16 +501,21 @@ sub maybe_add_leading_slash ($;$) { #{{{
return $str;
} #}}}
-sub istranslatable ($) { #{{{
- my $page=shift;
-
- $page=~s#^/##;
- my $file=$pagesources{$page};
+sub istranslatablefile ($) { #{{{
+ my $file=shift;
return 0 unless defined $file;
return 0 if (defined pagetype($file) && pagetype($file) eq 'po');
return 0 if $file =~ /\.pot$/;
- return 1 if pagespec_match($page, $config{po_translatable_pages});
+ return 1 if pagespec_match(pagename($file), $config{po_translatable_pages});
+ return;
+} #}}}
+
+sub istranslatable ($) { #{{{
+ my $page=shift;
+
+ $page=~s#^/##;
+ return 1 if istranslatablefile($pagesources{$page});
return;
} #}}}
--
cgit v1.2.3