Revision d2d63d80
Von Sven Donath vor etwa 14 Jahren hinzugefügt
| bin/mozilla/menu.pl | ||
|---|---|---|
| 33 | 33 |
# CHANGE LOG: |
| 34 | 34 |
# DS. 2002-03-25 Created |
| 35 | 35 |
# 2004-12-14 - New Optik - Marco Welter <mawe@linux-studio.de> |
| 36 |
# 2010-08-19 - Icons for sub entries and one click
|
|
| 36 |
# 2010-08-19 - Icons for sub entries and one click |
|
| 37 | 37 |
# JS switchable HTML-menu - Sven Donath <lxo@dexo.de> |
| 38 | 38 |
####################################################################### |
| 39 | 39 |
|
| ... | ... | |
| 45 | 45 |
|
| 46 | 46 |
my $menufile = "menu.ini"; |
| 47 | 47 |
my $mainlevel; |
| 48 |
our $framesize; |
|
| 48 | 49 |
|
| 49 | 50 |
# end of main |
| 50 | 51 |
|
| ... | ... | |
| 82 | 83 |
|
| 83 | 84 |
my $form = $main::form; |
| 84 | 85 |
my $locale = $main::locale; |
| 85 |
my $framesize = _calc_framesize(); # how to get it into kopf.pl or vice versa?
|
|
| 86 |
$framesize = _calc_framesize(); # how to get it into kopf.pl or vice versa?
|
|
| 86 | 87 |
|
| 87 | 88 |
$mainlevel = $form->{level};
|
| 88 | 89 |
$mainlevel =~ s/\Q$mainlevel\E--//g; |
| ... | ... | |
| 97 | 98 |
|
| 98 | 99 |
|; |
| 99 | 100 |
print qq|<div align="left">\n<table width="| |
| 100 |
. $framesize
|
|
| 101 |
. ($framesize-2)
|
|
| 101 | 102 |
. qq|" border="0">\n|; |
| 102 | 103 |
|
| 103 | 104 |
§ion_menu($menu); |
| ... | ... | |
| 199 | 200 |
if ($zeige) {
|
| 200 | 201 |
if (scalar @chunks <= 1) {
|
| 201 | 202 |
|
| 202 |
qq|<tr><td class="hover" height="16" >$spacer|
|
|
| 203 |
qq|<tr><td class="hover" height="16" >$spacer| |
|
| 203 | 204 |
. $menu->menuitem(\%myconfig, \%$form, $item, $level) ; |
| 204 |
|
|
| 205 |
if (-f "image/icons/16x16/$label_icon") |
|
| 206 |
{ print
|
|
| 207 |
qq|<img src="image/icons/16x16/$label_icon" border="0" style="vertical-align:text-top" title="|
|
|
| 208 |
. $label
|
|
| 209 |
. qq|"> | }
|
|
| 205 |
|
|
| 206 |
if (-f "image/icons/16x16/$label_icon" && ($framesize ne 240))
|
|
| 207 |
{ print
|
|
| 208 |
qq|<img src="image/icons/16x16/$label_icon" border="0" style="vertical-align:text-top" title="| |
|
| 209 |
. $label |
|
| 210 |
. qq|"> | } |
|
| 210 | 211 |
else {
|
| 211 |
print qq|<img src="image/unterpunkt.png" border="0" style="vertical-align:text-top">|; |
|
| 212 |
if ($framesize ne 240) {
|
|
| 213 |
print qq|<img src="image/unterpunkt.png" border="0" style="vertical-align:text-top">|; |
|
| 214 |
} |
|
| 212 | 215 |
} |
| 213 |
|
|
| 216 |
|
|
| 214 | 217 |
|
| 215 | 218 |
qq|$label</a></td></tr>\n|; |
| 216 | 219 |
} else {
|
| ... | ... | |
| 231 | 234 |
} else {
|
| 232 | 235 |
my $ml_ = $form->escape($ml); |
| 233 | 236 |
|
| 234 |
qq|<tr><td class="bg" height="24" align="left" valign="middle"><a href="menu.pl?action=acc_menu&level=$ml_" class="nohover" title="$label"><img src="image/icons/24x24/$item.png" border="0" style="vertical-align:middle" title="$label"> $label</a> </td></tr>\n|; |
|
| 237 |
qq|<tr><td class="bg" height="24" align="left" valign="middle"> |
|
| 238 |
<a href="menu.pl?action=acc_menu&level=$ml_" class="nohover" title="$label">|; |
|
| 239 |
if ($framesize ne 240) {
|
|
| 240 |
print qq|<img src="image/icons/24x24/$item.png" border="0" style="vertical-align:middle" title="$label">|; |
|
| 241 |
} |
|
| 242 |
print qq| $label</a> </td></tr>\n|; |
|
| 235 | 243 |
§ion_menu($menu, $item); |
| 236 | 244 |
|
| 237 | 245 |
print qq|\n|; |
Auch abrufbar als: Unified diff
Das (linksseitige) HTML-Menü komaptibel zum Textbrowser Links gemacht.
Weiterhin werden die Bedienelemente (HTML-Links) im Kopf nur angezeigt,
wenn nicht der Browser Links oder Links2 verwendet wird, da sie auf JavaScript
basieren und somit keine Funktion hätten.