X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2FmenuXML.pl;h=1eed4edeb9e716a3e16b44042445aec0da26139f;hb=bd1ece25ff151772844eb6318f02ade2470602db;hp=b79d605fd93843d0324d3914f89ef5ff9a40f9dd;hpb=c7edb24800396748f2bf1e40ff05f90a18d31b02;p=kivitendo-erp.git diff --git a/bin/mozilla/menuXML.pl b/bin/mozilla/menuXML.pl index b79d605fd..1eed4edeb 100644 --- a/bin/mozilla/menuXML.pl +++ b/bin/mozilla/menuXML.pl @@ -36,7 +36,8 @@ # 2007-10-14 - XMLified - Holger Will ####################################################################### -my $menufile = "menu.ini"; +use utf8; + use SL::Menu; use CGI::Carp qw(fatalsToBrowser); @@ -53,7 +54,7 @@ sub display { my $form = $main::form; my %myconfig = %main::myconfig; - my $charset = $main::dbcharset || 'ISO-8859-1'; + my $charset = $::lx_office_conf{system}->{dbcharset} || 'ISO-8859-1'; my $callback = $form->unescape($form->{callback}); $callback = URI->new($callback)->rel($callback) if $callback; $callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/; @@ -63,10 +64,10 @@ sub display { . qq| {iconv_iso8859}->convert('ß') . qq|"> -{iconv_iso8859}->convert('ä') . qq|"> -{iconv_iso8859}->convert('ö') . qq|"> -{iconv_iso8859}->convert('ü') . qq|"> +{iconv_utf8}->convert('ß') . qq|"> +{iconv_utf8}->convert('ä') . qq|"> +{iconv_utf8}->convert('ö') . qq|"> +{iconv_utf8}->convert('ü') . qq|"> ]> @@ -98,7 +99,7 @@ sub acc_menu { my $mainlevel = $form->{level}; $mainlevel =~ s/$mainlevel--//g; - my $menu = new Menu "$menufile"; + my $menu = Menu->new("menu.ini"); $| = 1;