# end of main
sub display {
- $locale = Locale->new($language, "menu");
+ $locale = Locale->new($myconfig{countrycode}, "menu");
my $charset = $dbcharset || 'ISO-8859-1';
my $callback = $form->unescape($form->{callback});
$callback = URI->new($callback)->rel($callback) if $callback;
}
sub acc_menu {
- $locale = Locale->new($language, "menu");
+ $locale = Locale->new($myconfig{countrycode}, "menu");
$mainlevel = $form->{level};
$mainlevel =~ s/$mainlevel--//g;
my $menu = new Menu "$menufile";
}
sub acc_menu {
- $locale = Locale->new($language, "menu");
+ $locale = Locale->new($myconfig{countrycode}, "menu");
my $mainlevel = $form->{level};
$mainlevel =~ s/\Q$mainlevel\E--//g;
}
sub acc_menu {
- $locale = Locale->new($language, "menu");
+ $locale = Locale->new($myconfig{countrycode}, "menu");
$mainlevel = $form->{level};
$mainlevel =~ s/\Q$mainlevel\E--//g;
}
sub acc_menu {
- $locale = Locale->new($language, "menu");
+ $locale = Locale->new($myconfig{countrycode}, "menu");
$mainlevel = $form->{level};
$mainlevel =~ s/\Q$mainlevel\E--//g;