use Data::Dumper;
use HTML::Entities;
use URI::Escape;
-use Locale::gettext;
use Deb::Versions;
use Packages::Template;
-use Packages::Config qw( $TOPDIR @LANGUAGES $LOCALES);
+use Packages::Config qw( $TOPDIR @LANGUAGES );
use Packages::I18N::Locale;
&Packages::Config::init( './' );
my $debtagsdir = "$TOPDIR/files/debtags";
$/ = "";
-delete $ENV{'LANGUAGE'};
-delete $ENV{'LANG'};
-delete $ENV{'LC_ALL'};
-delete $ENV{'LC_MESSAGES'};
-bindtextdomain ( 'debtags', $LOCALES );
-textdomain( 'debtags' );
-
sub process_desc {
my ($desc) = @_;
$voc_db{$voc_key} = $sdesc || "";
foreach my $lang (@LANGUAGES) {
- my $locale = get_locale( $lang );
- setlocale ( LC_ALL, $locale ) or do {
- warn "couldn't set locale ($lang/$locale)\n";
- next;
- };
+ next if $lang eq 'en';
+
+ my $cat = Packages::I18N::Locale->get_handle($lang)
+ or die "get_handle failed for $lang";
- my $sdesc_trans = dgettext( 'debtags', $sdesc );
+ my $sdesc_trans = $cat->maketext($sdesc);
$voc_db{"$voc_key-$lang"} = $sdesc_trans
if $sdesc_trans and $sdesc_trans ne $sdesc;
}
my @tags = sort( grep { exists $voc{$_}{tag} } keys %voc );
my %tags_by_facet;
foreach (@tags) {
- my ($facet, $tag) = split /::/, $_, 2;
+ my ($facet, $tag) = split m/::/, $_, 2;
warn "No facet data available for $facet\n"
unless exists $voc{$facet};
$tags_by_facet{$facet} ||= [];
}
my %content = ( vocabulary => \%voc,
facets => \@facets, tags => \@tags,
- tags_by_facet => \%tags_by_facet );
+ tags_by_facet => \%tags_by_facet,
+ used_langs => [ 'en' ]);
print TAGLST $template->page( 'tag_index', \%content );
close TAGLST or warn "Couldn't close tag list: $!";