| 86 |
86 |
$mainlevel =~ s/\Q$mainlevel\E--//g;
|
| 87 |
87 |
my $menu = Menu->new($::menufile);
|
| 88 |
88 |
|
| 89 |
|
$form->{title} = $locale->text('Accounting Menu');
|
|
89 |
$form->{title} = $locale->text('Lx-Office');
|
| 90 |
90 |
|
| 91 |
91 |
$form->header;
|
| 92 |
92 |
|
| ... | ... | |
| 96 |
96 |
|;
|
| 97 |
97 |
print qq|<div align="left">\n<table width="|
|
| 98 |
98 |
. $framesize
|
| 99 |
|
. qq|" border=0>\n|;
|
|
99 |
. qq|" border="0">\n|;
|
| 100 |
100 |
|
| 101 |
101 |
§ion_menu($menu);
|
| 102 |
102 |
|
| ... | ... | |
| 129 |
129 |
$ml =~ s/--.*//;
|
| 130 |
130 |
if ($ml eq $mainlevel) { $zeige = 1; }
|
| 131 |
131 |
else { $zeige = 0; }
|
| 132 |
|
my $spacer = " " x (($item =~ s/--/--/g) * 1);
|
|
132 |
my $spacer = " " x (($item =~ s/--/--/g) * 2);
|
| 133 |
133 |
$label =~ s/.*--//g;
|
| 134 |
|
my $label_icon = $label . ".gif";
|
|
134 |
my $label_icon = $level . "--" . $label . ".png";
|
| 135 |
135 |
my $mlab = $label;
|
| 136 |
136 |
$label = $locale->text($label);
|
| 137 |
137 |
|
| ... | ... | |
| 197 |
197 |
if ($zeige) {
|
| 198 |
198 |
if (scalar @chunks <= 1) {
|
| 199 |
199 |
print
|
| 200 |
|
qq|<tr><td class="hover" height="13" >$spacer<img src="image/unterpunkt.png" style="vertical-align:text-top">|
|
| 201 |
|
. $menu->menuitem(\%myconfig, \%$form, $item, $level)
|
| 202 |
|
. qq|$label</a></td></tr>\n|;
|
|
200 |
qq|<tr><td class="hover" height="16" >$spacer|
|
|
201 |
. $menu->menuitem(\%myconfig, \%$form, $item, $level) ;
|
|
202 |
|
|
203 |
if (-f "image/icons/16x16/$label_icon")
|
|
204 |
{ print
|
|
205 |
qq|<img src="image/icons/16x16/$label_icon" border="0" style="vertical-align:text-top" title="|
|
|
206 |
. $locale->text($item)
|
|
207 |
. qq|"> | }
|
|
208 |
else {
|
|
209 |
print qq|<img src="image/unterpunkt.png" border="0" style="vertical-align:text-top">|;
|
|
210 |
}
|
|
211 |
|
|
212 |
print
|
|
213 |
qq|$label</a></td></tr>\n|;
|
| 203 |
214 |
} else {
|
| 204 |
215 |
my $tmpitem = $menu->menuitem(\%myconfig, \%$form, $item, $level);
|
| 205 |
216 |
print
|
| 206 |
|
qq|<tr><td class="hover" height="13" >$spacer<img src="image/unterpunkt.png" style="vertical-align:text-top">|
|
|
217 |
qq|<tr><td class="hover" height="16" >$spacer<img src="image/unterpunkt.png" style="vertical-align:text-top">|
|
| 207 |
218 |
. $tmpitem
|
| 208 |
219 |
. qq|$chunks[0]</a></td></tr>\n|;
|
| 209 |
220 |
map {
|
| 210 |
221 |
print
|
| 211 |
|
qq|<tr style="vertical-align:top""><td class="hover">$spacer<img src="image/unterpunkt.png" style="visibility:hidden; width:23; height=2;">|
|
|
222 |
qq|<tr style="vertical-align:top""><td class="hover">$spacer<img src="image/unterpunkt.png" style="visibility:hidden; width:24; height=2;">|
|
| 212 |
223 |
. $tmpitem
|
| 213 |
224 |
. qq|$chunks[$_]</a></td></tr>\n|;
|
| 214 |
225 |
} 1..$#chunks;
|
| ... | ... | |
| 218 |
229 |
} else {
|
| 219 |
230 |
my $ml_ = $form->escape($ml);
|
| 220 |
231 |
print
|
| 221 |
|
qq|<tr><td class="bg" height="24" align="left" valign="middle" ><a href="menu.pl?action=acc_menu&level=$ml_" class="nohover""><img src="image/icons/24x24/$item.png" border="0" style="vertical-align:middle" titel="Hallo Welt"> $label</a> </td></tr>\n|;
|
|
232 |
qq|<tr><td class="bg" height="24" align="left" valign="middle"><a href="menu.pl?action=acc_menu&level=$ml_" class="nohover""><img src="image/icons/24x24/$item.png" border="0" style="vertical-align:middle" title="| . $locale->text("Help Menu $item") . qq|"> $label</a> </td></tr>\n|;
|
| 222 |
233 |
§ion_menu($menu, $item);
|
| 223 |
234 |
|
| 224 |
|
#print qq|<br>\n|;
|
|
235 |
print qq|\n|;
|
| 225 |
236 |
}
|
| 226 |
237 |
}
|
| 227 |
238 |
}
|
Das seitliche Menü hat jetzt Icons für die Unterpunkte, welche auch klickbar sind.
Damit nähert sich die Optik an das XUL-Menü an, ohne von XUL abhängig zu sein.
Evtl. mache ich die kleinen Icons abschaltbar, für die, die das so haben wollen.
Die Icons haben title-tags, die mal in ein Hilfe-System münden sollen. (Baustelle)
Im Gegensatz zum XUL-Menü ist eine durchgängige Bedienung mit Einzelklick möglich.
Den Redirekt für den Aufruf von Lx-Office mit einem Nicht-XUL-fähigen Browser und
aktiviertem XUL-Menü habe ich auf dieses HTML-Menü gelegt, weil alles andere nicht
kompatibel genug ist.