Revision c7edb248
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
bin/mozilla/menunew.pl | ||
---|---|---|
40 | 40 |
|
41 | 41 |
use strict; |
42 | 42 |
|
43 |
my $locale; |
|
44 |
|
|
45 | 43 |
1; |
46 | 44 |
|
47 | 45 |
# end of main |
... | ... | |
91 | 89 |
sub acc_menu { |
92 | 90 |
my $form = $main::form; |
93 | 91 |
my %myconfig = %main::myconfig; |
94 |
$locale = Locale->new($myconfig{countrycode}, "menu"); |
|
95 | 92 |
|
96 | 93 |
my $mainlevel = $form->{level}; |
97 | 94 |
$mainlevel =~ s/\Q$mainlevel\E--//g; |
... | ... | |
135 | 132 |
next if (($name eq "") || ($name =~ /--/)); |
136 | 133 |
|
137 | 134 |
my $menu_item = $menu->{"${parent}${name}"}; |
138 |
my $item = { 'title' => $locale->text($name) }; |
|
135 |
my $item = { 'title' => $::locale->text($name) };
|
|
139 | 136 |
push @{ $all_items }, $item; |
140 | 137 |
|
141 | 138 |
if ($menu_item->{submenu} || !defined($menu_item->{module}) || ($menu_item->{module} eq "menu.pl")) { |
Auch abrufbar als: Unified diff
Nur ein globales Locale-Objekt anlegen
Außerdem alle lokalen Locale-Objekte entfernt. Ist so noch nicht funktionabel.
Conflicts: