X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=lib%2FPackages%2FI18N%2FLocale.pm;h=c65c9b70d3f6a6f5ed7dab8bdf4349adae91e8a5;hb=3954845023a55026b0e57a131877cfd1b7fdc0b7;hp=ae64b93303d06c5d9ae861a87eb616f8181ecb32;hpb=54a1d7595e76ef2e1babf2157937a2a475671d67;p=deb%2Fpackages.git

diff --git a/lib/Packages/I18N/Locale.pm b/lib/Packages/I18N/Locale.pm
index ae64b93..c65c9b7 100644
--- 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 {