From d67c4817aab8b1ec0d70d453e35c47efd162a5bc Mon Sep 17 00:00:00 2001
From: joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Date: Wed, 31 Jan 2007 07:18:06 +0000
Subject: * Fix several more missing translations of Discussion.

---
 IkiWiki/Plugin/brokenlinks.pm | 3 ++-
 IkiWiki/Plugin/orphans.pm     | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'IkiWiki/Plugin')

diff --git a/IkiWiki/Plugin/brokenlinks.pm b/IkiWiki/Plugin/brokenlinks.pm
index e79ce1d81..a23436fd0 100644
--- a/IkiWiki/Plugin/brokenlinks.pm
+++ b/IkiWiki/Plugin/brokenlinks.pm
@@ -21,8 +21,9 @@ sub preprocess (@) { #{{{
 	my @broken;
 	foreach my $page (keys %links) {
 		if (pagespec_match($page, $params{pages})) {
+			my $discussion=gettext("discussion");
 			foreach my $link (@{$links{$page}}) {
-				next if $link =~ /.*\/discussion/i && $config{discussion};
+				next if $link =~ /.*\/\Q$discussion\E/i && $config{discussion};
 				my $bestlink=bestlink($page, $link);
 				next if length $bestlink;
 				push @broken,
diff --git a/IkiWiki/Plugin/orphans.pm b/IkiWiki/Plugin/orphans.pm
index 6ba37615e..def8e92d6 100644
--- a/IkiWiki/Plugin/orphans.pm
+++ b/IkiWiki/Plugin/orphans.pm
@@ -25,6 +25,7 @@ sub preprocess (@) { #{{{
 	}
 	
 	my @orphans;
+	my $discussion=gettext("discussion");
 	foreach my $page (keys %renderedfiles) {
 		next if $linkedto{$page};
 		next unless pagespec_match($page, $params{pages});
@@ -32,7 +33,7 @@ sub preprocess (@) { #{{{
 		# indirectly linked to a page via that page's backlinks.
 		next if grep { 
 			length $_ &&
-			($_ !~ /\/Discussion$/i || ! $config{discussion}) &&
+			($_ !~ /\/\Q$discussion\E$/i || ! $config{discussion}) &&
 			bestlink($page, $_) !~ /^($page|)$/ 
 		} @{$links{$page}};
 		push @orphans, $page;
-- 
cgit v1.2.3