};
$vars->{make_search_url} = sub { return &Packages::CGI::make_search_url(@_) };
$vars->{make_url} = sub { return &Packages::CGI::make_url(@_) };
+ $vars->{g} = sub { my ($f, @a) = @_; return sprintf($f, @a); };
if ($vars->{cat}) {
$vars->{g} = sub { return Packages::I18N::Locale::g($vars->{cat}, @_) };
}
my @printed_langs = ();
foreach (@used_langs) {
next if $_ eq $skip_lang; # Don't print the current language
- unless (get_selfname($_)) { warn "missing language $_"; next } #DEBUG
+ unless (get_selfname($_)) { warn "missing language selfname $_"; next } #DEBUG
+ unless (get_language_name($_)) { warn "missing language name $_"; next } #DEBUG
push @printed_langs, $_;
}
return [] unless scalar @printed_langs;