Merge branch 'master' of git://git.debian.org/git/webwml/packages

[deb/packages.git] / lib / Packages / I18N / Locale.pm

diff --git a/lib/Packages/I18N/Locale.pm b/lib/Packages/I18N/Locale.pm
index ae64b93303d06c5d9ae861a87eb616f8181ecb32..c65c9b70d3f6a6f5ed7dab8bdf4349adae91e8a5 100644 (file)
--- a/lib/Packages/I18N/Locale.pm
+++ b/lib/Packages/I18N/Locale.pm
@@ -4,19 +4,31 @@ use strict;
 use warnings;
 
 use base 'Locale::Maketext';
-use Locale::Maketext::Lexicon {
-    '*' => [Gettext => '/home/djpig/debian/www.d.o/packages/po/pdo.*.po',
-           Gettext => '/home/djpig/debian/www.d.o/packages/po/templates.*.po',
-           Gettext => '/home/djpig/debian/www.d.o/packages/po/langs.*.po'],
-    _auto   => 1,
-    _style  => 'gettext',
-};
+use Locale::Maketext::Lexicon;
 
 use base 'Exporter';
 
-our @EXPORT = qw( _g N_ );
+our @EXPORT = qw( N_ );
+
+sub load {
+    my ($podir) = @_;
+
+    Locale::Maketext::Lexicon->import( {
+       'en' => [Gettext => "$podir/pdo.pot",
+                Gettext => "$podir/templates.pot",
+                Gettext => "$podir/langs.pot",
+                Gettext => "$podir/sections.pot",
+                Gettext => "$podir/debtags.pot"],
+       '*' => [Gettext => "$podir/pdo.*.po",
+               Gettext => "$podir/templates.*.po",
+               Gettext => "$podir/langs.*.po",
+               Gettext => "$podir/sections.*.po",
+               Gettext => "$podir/debtags.*.po"],
+       _auto   => 1,
+       _style  => 'gettext',
+                                      } );
+}
 
-sub _g { return $_[0]; }
 sub N_ { return $_[0]; }
 
 sub g {