Revision d2d63d80
Von Sven Donath vor mehr als 14 Jahren hinzugefügt
| bin/mozilla/kopf.pl | ||
|---|---|---|
|
my $framesize = _calc_framesize(); # framesize calculation as in menu.pl is only a quick and dirty hack here
|
||
|
# it would be better to use a global or config variable
|
||
|
|
||
|
# is there any better solution then the JS-Link for Back? Possibly with the callback variable?
|
||
|
|
||
|
print qq|
|
||
|
<body bgcolor="#ffffff" text="#ffffff" link="#ffffff" vlink="#ffffff" alink="#ffffff" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" style="background-image: url('image/fade.png'); background-repeat:repeat-x;">
|
||
|
<script language='JavaScript' src='js/switchmenuframe.js'></script>
|
||
|
<table border="0" width="100%" background="image/bg_titel.gif" cellpadding="0" cellspacing="0">
|
||
|
<tr>
|
||
|
<td style="color:white; font-family:verdana,arial,sans-serif; font-size: 12px;" nowrap>
|
||
|
<tr>|;
|
||
|
if ($framesize ne 240) { # only show the the links in case of "links" in $ENV{HTTP_USER_AGENT} (see sub _calc_framesize)
|
||
|
print qq|
|
||
|
<td style="color:white; font-family:verdana,arial,sans-serif; font-size: 12px;" nowrap>
|
||
|
[<a href="JavaScript:Switch_Menu(|.$framesize.qq|);" title="| . $locale->text('Switch Menu on / off') . qq|">| . $locale->text('Menu') . qq|</a>]
|
||
|
[<a HREF="login.pl" target="_blank" title="| . $locale->text('Open a further Lx-Office Window or Tab') . qq|">| . $locale->text('New Win/Tab') . qq|</a>]
|
||
|
[<a href="JavaScript:top.main_window.print();" title="| . $locale->text('Hardcopy') . qq|">| . $locale->text('Print') . qq|</a>]
|
||
|
[<a href="Javascript:top.main_window.history.back();" title="| . $locale->text('Go one step back') . qq|">| . $locale->text('Back') . qq|</a>]
|
||
|
[<a href="Javascript:top.main_window.history.forward();" title="| . $locale->text('Go one step forward') . qq|">| . $locale->text('Fwd') . qq|</a>]
|
||
|
<!-- is there any better solution for Back? Possibly with the callback variable? -->
|
||
|
</td>
|
||
|
</td>|;
|
||
|
}
|
||
|
print qq|
|
||
|
<td align="right" style="vertical-align:middle; color:white; font-family:verdana,arial,sans-serif; font-size: 12px;" nowrap>|
|
||
|
. $login . $datum . qq| <script>writeclock()</script>
|
||
|
</td>
|
||
| bin/mozilla/menu.pl | ||
|---|---|---|
|
# CHANGE LOG:
|
||
|
# DS. 2002-03-25 Created
|
||
|
# 2004-12-14 - New Optik - Marco Welter <mawe@linux-studio.de>
|
||
|
# 2010-08-19 - Icons for sub entries and one click
|
||
|
# 2010-08-19 - Icons for sub entries and one click
|
||
|
# JS switchable HTML-menu - Sven Donath <lxo@dexo.de>
|
||
|
#######################################################################
|
||
|
|
||
| ... | ... | |
|
|
||
|
my $menufile = "menu.ini";
|
||
|
my $mainlevel;
|
||
|
our $framesize;
|
||
|
|
||
|
# end of main
|
||
|
|
||
| ... | ... | |
|
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
my $framesize = _calc_framesize(); # how to get it into kopf.pl or vice versa?
|
||
|
$framesize = _calc_framesize(); # how to get it into kopf.pl or vice versa?
|
||
|
|
||
|
$mainlevel = $form->{level};
|
||
|
$mainlevel =~ s/\Q$mainlevel\E--//g;
|
||
| ... | ... | |
|
|
||
|
|;
|
||
|
print qq|<div align="left">\n<table width="|
|
||
|
. $framesize
|
||
|
. ($framesize-2)
|
||
|
. qq|" border="0">\n|;
|
||
|
|
||
|
§ion_menu($menu);
|
||
| ... | ... | |
|
if ($zeige) {
|
||
|
if (scalar @chunks <= 1) {
|
||
|
print
|
||
|
qq|<tr><td class="hover" height="16" >$spacer|
|
||
|
qq|<tr><td class="hover" height="16" >$spacer|
|
||
|
. $menu->menuitem(\%myconfig, \%$form, $item, $level) ;
|
||
|
|
||
|
if (-f "image/icons/16x16/$label_icon")
|
||
|
{ print
|
||
|
qq|<img src="image/icons/16x16/$label_icon" border="0" style="vertical-align:text-top" title="|
|
||
|
. $label
|
||
|
. qq|"> | }
|
||
|
|
||
|
if (-f "image/icons/16x16/$label_icon" && ($framesize ne 240))
|
||
|
{ print
|
||
|
qq|<img src="image/icons/16x16/$label_icon" border="0" style="vertical-align:text-top" title="|
|
||
|
. $label
|
||
|
. qq|"> | }
|
||
|
else {
|
||
|
print qq|<img src="image/unterpunkt.png" border="0" style="vertical-align:text-top">|;
|
||
|
if ($framesize ne 240) {
|
||
|
print qq|<img src="image/unterpunkt.png" border="0" style="vertical-align:text-top">|;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
|
||
|
print
|
||
|
qq|$label</a></td></tr>\n|;
|
||
|
} else {
|
||
| ... | ... | |
|
} else {
|
||
|
my $ml_ = $form->escape($ml);
|
||
|
print
|
||
|
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|;
|
||
|
qq|<tr><td class="bg" height="24" align="left" valign="middle">
|
||
|
<a href="menu.pl?action=acc_menu&level=$ml_" class="nohover" title="$label">|;
|
||
|
if ($framesize ne 240) {
|
||
|
print qq|<img src="image/icons/24x24/$item.png" border="0" style="vertical-align:middle" title="$label">|;
|
||
|
}
|
||
|
print qq| $label</a> </td></tr>\n|;
|
||
|
§ion_menu($menu, $item);
|
||
|
|
||
|
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.