print qq|
<frameset rows="28px,*" cols="*" framespacing="0" frameborder="0">
- <frame src="kopf.pl?login=$form->{login}&password=$form->{password}&path=$form->{path}" name="kopf" scrolling="NO">
+ <frame src="kopf.pl" name="kopf" scrolling="NO">
<frameset cols="$framesize,*" framespacing="0" frameborder="0" border="0" >
- <frame src="$form->{script}?login=$form->{login}&password=$form->{password}&action=acc_menu&path=$form->{path}" name="acc_menu" scrolling="auto" noresize marginwidth="0">
- <frame src="login.pl?login=$form->{login}&password=$form->{password}&action=company_logo&path=$form->{path}" name="main_window" scrolling="auto">
+ <frame src="$form->{script}?action=acc_menu" name="acc_menu" scrolling="auto" noresize marginwidth="0">
+ <frame src="login.pl?action=company_logo" name="main_window" scrolling="auto">
</frameset>
<noframes>
You need a browser that can read frames to see this page.
sub acc_menu {
$lxdebug->enter_sub();
$mainlevel = $form->{level};
- $mainlevel =~ s/$mainlevel--//g;
+ $mainlevel =~ s/\Q$mainlevel\E--//g;
my $menu = new Menu "$menufile";
- $menu = new Menu "custom_$menufile" if (-f "custom_$menufile");
- $menu = new Menu "$form->{login}_$menufile"
- if (-f "$form->{login}_$menufile");
$form->{title} = $locale->text('Accounting Menu');
$item = shift @menuorder;
$label = $item;
$ml = $item;
- $label =~ s/$level--//g;
+ $label =~ s/\Q$level\E--//g;
$ml =~ s/--.*//;
if ($ml eq $mainlevel) { $zeige = 1; }
else { $zeige = 0; }
# than 20 chars and store it in an array.
# use this array later instead of the -ed label
@chunks = ();
- my ($i,$l) =(-1, 20);
+ my ($i,$l) = (-1, 20);
map {
- $l += length $_;
- if ($l < 20) { $chunks[$i] .= " $_";
- } else { $l =length $_; $chunks[++$i] = $_; }
+ if (($l += length $_) < 20) {
+ $chunks[$i] .= " $_";
+ } else {
+ $l = length $_;
+ $chunks[++$i] = $_;
+ }
} split / /, $label;
- map { $chunks[$_] =~ s/ / / } 0..$#chunks;
+ map { s/ / / } @chunks;
# end multi line
$label =~ s/ / /g;
if ($menu->{$item}{submenu}) {
$menu->{$item}{$item} = !$form->{$item};
- if ($form->{level} && $item =~ /^$form->{level}/) {
+ if ($form->{level} && $item =~ /^\Q$form->{level}\E/) {
# expand menu
if ($zeige) {
} else {
my $ml_ = $form->escape($ml);
print
- qq|<tr><td class="bg" height="22" align="left" valign="middle" ><img src="image/$item.png" style="vertical-align:middle"> <a href="menu.pl?path=bin/mozilla&action=acc_menu&level=$ml_&login=$form->{login}&password=$form->{password}" class="nohover">$label</a> </td></tr>\n|;
+ qq|<tr><td class="bg" height="22" align="left" valign="middle" ><img src="image/$item.png" style="vertical-align:middle"> <a href="menu.pl?action=acc_menu&level=$ml_" class="nohover">$label</a> </td></tr>\n|;
§ion_menu($menu, $item);
#print qq|<br>\n|;