From 029bd46a0d06ac59a004ed69bc6e41ecbd28604b Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Fri, 4 Sep 2009 11:36:17 +0200
Subject: L10N: Implemented framework for translation of the doc pages

When a [docname].[langauge tag] file is available for the user language,
that is used instead of the main [docname] file.
---
 lib/VNDB/Handler/Misc.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/VNDB/Handler/Misc.pm b/lib/VNDB/Handler/Misc.pm
index f1e1b774..187f1b0c 100644
--- a/lib/VNDB/Handler/Misc.pm
+++ b/lib/VNDB/Handler/Misc.pm
@@ -260,7 +260,10 @@ sub history {
 sub docpage {
   my($self, $did) = @_;
 
-  open my $F, '<', sprintf('%s/data/docs/%d', $VNDB::ROOT, $did) or return 404;
+  my $l = '.'.$self->{l10n}->language_tag();
+  my $f = sprintf('%s/data/docs/%d', $VNDB::ROOT, $did);
+  my $F;
+  open($F, '<:utf8', $f.$l) or open($F, '<:utf8', $f) or return 404;
   my @c = <$F>;
   close $F;
 
@@ -274,7 +277,8 @@ sub docpage {
       qq|<h3><a href="#$sec" name="$sec">$sec. $1</a></h3>\n|
     }eg;
     s{^:INC:(.+)\r?\n$}{
-      open $F, '<', sprintf('%s/data/docs/%s', $VNDB::ROOT, $1) or die $!;
+      $f = sprintf('%s/data/docs/%s', $VNDB::ROOT, $1);
+      open($F, '<:utf8', $f.$l) or open($F, '<:utf8', $f) or die $!;
       my $ii = join('', <$F>);
       close $F;
       $ii;
-- 
cgit v1.2.3