kivitendo/bin/mozilla/menujs.pl @ 881cc205
| 97908cc4 | Holger Lindemann | #=====================================================================
|
||
# LX-Office ERP
|
||||
# Copyright (C) 2004
|
||||
# Based on SQL-Ledger Version 2.1.9
|
||||
# Web http://www.lx-office.org
|
||||
#
|
||||
######################################################################
|
||||
# SQL-Ledger Accounting
|
||||
# Copyright (c) 1998-2002
|
||||
#
|
||||
# Author: Dieter Simader
|
||||
# Email: dsimader@sql-ledger.org
|
||||
# Web: http://www.sql-ledger.org
|
||||
#
|
||||
# Contributors: Christopher Browne
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program; if not, write to the Free Software
|
||||
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
#######################################################################
|
||||
#
|
||||
# thre frame layout with refractured menu
|
||||
#
|
||||
# CHANGE LOG:
|
||||
# DS. 2002-03-25 Created
|
||||
# 2004-12-14 - Holger Lindemann
|
||||
#######################################################################
|
||||
| 74e345d0 | Sven Schöling | my $menufile = "menu.ini";
|
||
| 97908cc4 | Holger Lindemann | use SL::Menu;
|
||
use CGI::Carp qw(fatalsToBrowser);
|
||||
| 74e345d0 | Sven Schöling | use strict;
|
||
my $locale;
|
||||
| 97908cc4 | Holger Lindemann | 1;
|
||
# end of main
|
||||
sub display {
|
||||
| 74e345d0 | Sven Schöling | |||
my $form = $main::form;
|
||||
| 40255f36 | Sven Schöling | $form->{callback} = $form->unescape($form->{callback});
|
||
$form->{callback} ||= "login.pl?action=company_logo";
|
||||
| 97908cc4 | Holger Lindemann | |||
$form->header;
|
||||
&clock_line;
|
||||
&acc_menu;
|
||||
print qq|
|
||||
| 40255f36 | Sven Schöling | <iframe id="win1" src="$form->{callback}" width="100%" height="93%" name="main_window" style="position: absolute; border:0px;">
|
||
| 97908cc4 | Holger Lindemann | <p>Ihr Browser kann leider keine eingebetteten Frames anzeigen.
|
||
</p>
|
||||
</iframe>
|
||||
</body>
|
||||
</html>
|
||||
|;
|
||||
}
|
||||
sub clock_line {
|
||||
| 74e345d0 | Sven Schöling | my $form = $main::form;
|
||
| 97908cc4 | Holger Lindemann | |||
| 74e345d0 | Sven Schöling | my $fensterlink="menujs.pl?action=display";
|
||
my $fenster = "["."<a href=\"$fensterlink\" target=\"_blank\">neues Fenster</a>]";
|
||||
my $login = "[Nutzer "
|
||||
| 97908cc4 | Holger Lindemann | . $form->{login}
|
||
| 84d90a03 | Moritz Bunkus | . " - <a href=\"login.pl?action=logout\" target=\"_top\">"
|
||
| 97908cc4 | Holger Lindemann | . $locale->text('Logout')
|
||
. "</a>] ";
|
||||
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
|
||||
$Jahr, $Wochentag, $Jahrestag, $Sommerzeit)
|
||||
= localtime(time);
|
||||
my $CTIME_String = localtime(time);
|
||||
$Monat += 1;
|
||||
$Jahrestag += 1;
|
||||
$Monat = $Monat < 10 ? $Monat = "0" . $Monat : $Monat;
|
||||
$Monatstag = $Monatstag < 10 ? $Monatstag = "0" . $Monatstag : $Monatstag;
|
||||
$Jahr += 1900;
|
||||
my @Wochentage = ("Sonntag", "Montag", "Dienstag", "Mittwoch",
|
||||
"Donnerstag", "Freitag", "Samstag");
|
||||
my @Monatsnamen = ("", "Januar", "Februar", "März",
|
||||
"April", "Mai", "Juni", "Juli",
|
||||
"August", "September", "Oktober", "November",
|
||||
"Dezember");
|
||||
| 74e345d0 | Sven Schöling | my $datum =
|
||
| 97908cc4 | Holger Lindemann | $Wochentage[$Wochentag] . ", der "
|
||
. $Monatstag . "."
|
||||
. $Monat . "."
|
||||
. $Jahr . " - ";
|
||||
#$zeit="<div id='Uhr'>".$Stunden.":".$Minuten.":".$Sekunden."</div>";
|
||||
| 74e345d0 | Sven Schöling | my $zeit = "<div id='Uhr'>" . $Stunden . ":" . $Minuten . "</div>";
|
||
| 97908cc4 | Holger Lindemann | print qq|
|
||
<script type="text/javascript">
|
||||
<!--
|
||||
function clockon() {
|
||||
var now = new Date();
|
||||
var h = now.getHours();
|
||||
var m = now.getMinutes();
|
||||
document.getElementById('clock_id').innerHTML = (h<10?'0'+h:h)+":"+(m<10?'0'+m:m);
|
||||
var timer=setTimeout("clockon()", 10000);
|
||||
}
|
||||
window.onload=clockon
|
||||
//-->
|
||||
</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;"> $fenster [<a href="JavaScript:top.main_window.print()">drucken</a>]</td>
|
||||
<td align="right" style="vertical-align:middle; color:white; font-family:verdana,arial,sans-serif; font-size: 12px;" nowrap>
|
||||
$login $datum <span id='clock_id' style='position:relative'></span>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
|;
|
||||
}
|
||||
sub acc_menu {
|
||||
| 74e345d0 | Sven Schöling | |||
my $form = $main::form;
|
||||
my %myconfig = %main::myconfig;
|
||||
| 45b3691b | Moritz Bunkus | $locale = Locale->new($myconfig{countrycode}, "menu");
|
||
| 74e345d0 | Sven Schöling | my $mainlevel = $form->{level};
|
||
| 97908cc4 | Holger Lindemann | $mainlevel =~ s/$mainlevel--//g;
|
||
my $menu = new Menu "$menufile";
|
||||
$| = 1;
|
||||
print qq|
|
||||
<style>
|
||||
<!--
|
||||
.itemBorder {
|
||||
border: 1px solid black
|
||||
}
|
||||
.itemText {
|
||||
text-decoration: none;
|
||||
color: #000000;
|
||||
font: 12px Arial, Helvetica
|
||||
}
|
||||
.rootItemText {
|
||||
text-decoration: none;
|
||||
color: #ffffff;
|
||||
font: 12px Arial, Helvetica
|
||||
}
|
||||
.menu {
|
||||
color:#ffffff;
|
||||
background:url(image/bg_css_menu.png) repeat bottom;
|
||||
border:1px solid;
|
||||
border-color:#ccc #888 #555 #bbb;
|
||||
}
|
||||
-->
|
||||
</style>
|
||||
<script type="text/javascript">
|
||||
<!--
|
||||
| 40255f36 | Sven Schöling | var isDOM = (document.getElementById ? true : false);
|
||
| 97908cc4 | Holger Lindemann | var isIE4 = ((document.all && !isDOM) ? true : false);
|
||
var isNS4 = (document.layers ? true : false);
|
||||
//var KO = (navigator.appName=="Konqueror" \|\| navigator.appName=="Opera") ;
|
||||
var KO = ((navigator.userAgent.indexOf('Opera',0) != -1) \|\| (navigator.userAgent.indexOf('Konqueror',0) != -1));
|
||||
function getRef(id) {
|
||||
| b65a230d | Sven Schöling | if (isDOM) return document.getElementById(id);
|
||
if (isIE4) return document.all[id];
|
||||
if (isNS4) return document.layers[id];
|
||||
| 97908cc4 | Holger Lindemann | }
|
||
function getSty(id) {
|
||||
| b65a230d | Sven Schöling | return (isNS4 ? getRef(id) : getRef(id).style);
|
||
| 40255f36 | Sven Schöling | }
|
||
| 97908cc4 | Holger Lindemann | var popTimer = 0;
|
||
var litNow = new Array();
|
||||
function popOver(menuNum, itemNum) {
|
||||
| b65a230d | Sven Schöling | if (KO) document.getElementById("win1").style.visibility = "hidden";
|
||
clearTimeout(popTimer);
|
||||
hideAllBut(menuNum);
|
||||
litNow = getTree(menuNum, itemNum);
|
||||
changeCol(litNow, true);
|
||||
targetNum = menu[menuNum][itemNum].target;
|
||||
if (targetNum > 0) {
|
||||
thisX = parseInt(menu[menuNum][0].ref.left) + parseInt(menu[menuNum][itemNum].ref.left);
|
||||
thisY = parseInt(menu[menuNum][0].ref.top) + parseInt(menu[menuNum][itemNum].ref.top);
|
||||
with (menu[targetNum][0].ref) {
|
||||
left = parseInt(thisX + menu[targetNum][0].x);
|
||||
top = parseInt(thisY + menu[targetNum][0].y);
|
||||
visibility = 'visible';
|
||||
}
|
||||
}
|
||||
| 97908cc4 | Holger Lindemann | }
|
||
function popOut(menuNum, itemNum) {
|
||||
| b65a230d | Sven Schöling | if ((menuNum == 0) && !menu[menuNum][itemNum].target)
|
||
hideAllBut(0)
|
||||
if (KO) document.getElementById("win1").style.visibility = "visible";
|
||||
else
|
||||
popTimer = setTimeout('hideAllBut(0)', 500);
|
||||
| 97908cc4 | Holger Lindemann | }
|
||
function getTree(menuNum, itemNum) {
|
||||
| b65a230d | Sven Schöling | itemArray = new Array(menu.length);
|
||
while(1) {
|
||||
itemArray[menuNum] = itemNum;
|
||||
if (menuNum == 0) return itemArray;
|
||||
itemNum = menu[menuNum][0].parentItem;
|
||||
menuNum = menu[menuNum][0].parentMenu;
|
||||
}
|
||||
| 97908cc4 | Holger Lindemann | }
|
||
function changeCol(changeArray, isOver) {
|
||||
| b65a230d | Sven Schöling | for (menuCount = 0; menuCount < changeArray.length; menuCount++) {
|
||
if (changeArray[menuCount]) {
|
||||
newCol = isOver ? menu[menuCount][0].overCol : menu[menuCount][0].backCol;
|
||||
with (menu[menuCount][changeArray[menuCount]].ref) {
|
||||
if (isNS4) bgColor = newCol;
|
||||
else backgroundColor = newCol;
|
||||
}
|
||||
}
|
||||
}
|
||||
| 97908cc4 | Holger Lindemann | }
|
||
function hideAllBut(menuNum) {
|
||||
| b65a230d | Sven Schöling | var keepMenus = getTree(menuNum, 1);
|
||
for (count = 0; count < menu.length; count++)
|
||||
if (!keepMenus[count])
|
||||
menu[count][0].ref.visibility = 'hidden';
|
||||
changeCol(litNow, false);
|
||||
| 97908cc4 | Holger Lindemann | }
|
||
function Menu(isVert, popInd, x, y, width, overCol, backCol, borderClass, textClass) {
|
||||
| b65a230d | Sven Schöling | this.isVert = isVert;
|
||
this.popInd = popInd
|
||||
this.x = x;
|
||||
this.y = y;
|
||||
this.width = width;
|
||||
this.overCol = overCol;
|
||||
this.backCol = backCol;
|
||||
this.borderClass = borderClass;
|
||||
this.textClass = textClass;
|
||||
this.parentMenu = null;
|
||||
this.parentItem = null;
|
||||
this.ref = null;
|
||||
| 97908cc4 | Holger Lindemann | }
|
||
function Item(text, href, frame, length, spacing, target) {
|
||||
| b65a230d | Sven Schöling | this.text = text;
|
||
this.href = href;
|
||||
this.frame = frame;
|
||||
this.length = length;
|
||||
this.spacing = spacing;
|
||||
this.target = target;
|
||||
this.ref = null;
|
||||
| 97908cc4 | Holger Lindemann | }
|
||
function go(link,frame) {
|
||||
| b65a230d | Sven Schöling | tmp=eval("top."+frame);
|
||
tmp.location=link;
|
||||
| 97908cc4 | Holger Lindemann | //top.main_window.location=link;
|
||
}
|
||||
function writeMenus() {
|
||||
| b65a230d | Sven Schöling | if (!isDOM && !isIE4 && !isNS4) return;
|
||
for (currMenu = 0; currMenu < menu.length; currMenu++) with (menu[currMenu][0]) {
|
||||
var str = '', itemX = 0, itemY = 0;
|
||||
for (currItem = 1; currItem < menu[currMenu].length; currItem++) with (menu[currMenu][currItem]) {
|
||||
var itemID = 'menu' + currMenu + 'item' + currItem;
|
||||
var w = (isVert ? width : length);
|
||||
var h = (isVert ? length : width);
|
||||
if (isDOM \|\| isIE4) {
|
||||
str += '<div id="' + itemID + '" style="position: absolute; left: ' + itemX + '; top: ' + itemY + '; width: ' + w + '; height: ' + h + '; visibility: inherit; ';
|
||||
if (backCol) str += 'background: ' + backCol + '; ';
|
||||
str += '" ';
|
||||
}
|
||||
if (isNS4) {
|
||||
str += '<layer id="' + itemID + '" left="' + itemX + '" top="' + itemY + '" width="' + w + '" height="' + h + '" visibility="inherit" ';
|
||||
if (backCol) str += 'bgcolor="' + backCol + '" ';
|
||||
}
|
||||
if (borderClass) str += 'class="' + borderClass + '" "';
|
||||
str += 'onMouseOver="popOver(' + currMenu + ',' + currItem + ')" onMouseOut="popOut(' + currMenu + ',' + currItem + ')">';
|
||||
str += '<table width="' + (w - 8) + '" border="0" cellspacing="0" cellpadding="' + (!isNS4 && borderClass ? 3 : 0) + '">';
|
||||
str +='<tr><td class="' + textClass + '" style="cursor:pointer;" align="left" height="' + (h - 7) + '" onClick=\\'go("' + href + '","' + frame + '")\\'>' + text + '</a></td>';
|
||||
if (target > 0) {
|
||||
menu[target][0].parentMenu = currMenu;
|
||||
menu[target][0].parentItem = currItem;
|
||||
if (popInd) str += '<td class="' + textClass + '" align="right">' + popInd + '</td>';
|
||||
}
|
||||
str += '</tr></table>' + (isNS4 ? '</layer>' : '</div>');
|
||||
if (isVert) itemY += length + spacing;
|
||||
else itemX += length + spacing;
|
||||
}
|
||||
if (isDOM) {
|
||||
var newDiv = document.createElement('div');
|
||||
document.getElementsByTagName('body').item(0).appendChild(newDiv);
|
||||
newDiv.innerHTML = str;
|
||||
ref = newDiv.style;
|
||||
ref.position = 'absolute';
|
||||
ref.visibility = 'hidden';
|
||||
}
|
||||
if (isIE4) {
|
||||
document.body.insertAdjacentHTML('beforeEnd', '<div id="menu' + currMenu + 'div" ' + 'style="position: absolute; visibility: hidden">' + str + '</div>');
|
||||
ref = getSty('menu' + currMenu + 'div');
|
||||
}
|
||||
if (isNS4) {
|
||||
ref = new Layer(0);
|
||||
ref.document.write(str);
|
||||
ref.document.close();
|
||||
}
|
||||
for (currItem = 1; currItem < menu[currMenu].length; currItem++) {
|
||||
itemName = 'menu' + currMenu + 'item' + currItem;
|
||||
if (isDOM \|\| isIE4) menu[currMenu][currItem].ref = getSty(itemName);
|
||||
if (isNS4) menu[currMenu][currItem].ref = ref.document[itemName];
|
||||
}
|
||||
}
|
||||
with(menu[0][0]) {
|
||||
ref.left = x;
|
||||
ref.top = y;
|
||||
ref.visibility = 'visible';
|
||||
| 97908cc4 | Holger Lindemann | }
|
||
}
|
||||
var menu = new Array();
|
||||
var defOver = '#cccccc';
|
||||
var defBack = '#dddddd';
|
||||
var defLength = 22;
|
||||
menu[0] = new Array();
|
||||
menu[0][0] = new Menu(false, '', 5, 18, 19, '#cccccc', '', '', 'rootItemText');
|
||||
|;
|
||||
§ion_menu($menu);
|
||||
print qq|
|
||||
var popOldWidth = window.innerWidth;
|
||||
nsResizeHandler = new Function('if (popOldWidth != window.innerWidth) location.reload()');
|
||||
if (isNS4) document.captureEvents(Event.CLICK);
|
||||
document.onclick = clickHandle;
|
||||
function clickHandle(evt) {
|
||||
| b65a230d | Sven Schöling | if (isNS4) document.routeEvent(evt);
|
||
hideAllBut(0);
|
||||
if (KO) document.getElementById("win1").style.visibility = "visible";
|
||||
| 97908cc4 | Holger Lindemann | }
|
||
function moveRoot() {
|
||||
| b65a230d | Sven Schöling | with(menu[0][0].ref) left = ((parseInt(left) < 100) ? 100 : 5);
|
||
| 97908cc4 | Holger Lindemann | }
|
||
// End -->
|
||||
</script>
|
||||
<BODY scrolling="no" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" style="margin: 0" onLoad="writeMenus(); clockon();" onResize="if (isNS4) nsResizeHandler()">
|
||||
<table class="menu" width="100%" border="0" cellpadding="0" cellspacing="0">
|
||||
<tr><td height="21"><font size="1"> </font></td></tr></table>
|
||||
|;
|
||||
print qq|
|
||||
| 40255f36 | Sven Schöling | |||
| 97908cc4 | Holger Lindemann | |;
|
||
}
|
||||
sub section_menu {
|
||||
my ($menu, $level) = @_;
|
||||
| 74e345d0 | Sven Schöling | my $form = $main::form;
|
||
my %myconfig = %main::myconfig;
|
||||
| 97908cc4 | Holger Lindemann | # build tiered menus
|
||
my @menuorder = $menu->access_control(\%myconfig, $level);
|
||||
| 74e345d0 | Sven Schöling | my $main = 0;
|
||
| 97908cc4 | Holger Lindemann | |||
#$pm=0;
|
||||
| 74e345d0 | Sven Schöling | my $shlp=0;
|
||
my (%mlz, $sm, $z, $pm, $mm);
|
||||
| 97908cc4 | Holger Lindemann | while (@menuorder) {
|
||
| 74e345d0 | Sven Schöling | my $item = shift @menuorder;
|
||
my $label = $item;
|
||||
my $ml = $item;
|
||||
| 97908cc4 | Holger Lindemann | $label =~ s/$level--//g;
|
||
$ml =~ s/--.*//;
|
||||
$label = $locale->text($label);
|
||||
$label =~ s/ / /g;
|
||||
$menu->{$item}{target} = "main_window" unless $menu->{$item}{target};
|
||||
if ($menu->{$item}{submenu}) {
|
||||
$menu->{$item}{$item} = !$form->{$item};
|
||||
# Untermen
|
||||
| 40255f36 | Sven Schöling | if ($mlz{"s$ml"} > 1) {
|
||
| b65a230d | Sven Schöling | $z++;
|
||
$sm = 1;
|
||||
| 40255f36 | Sven Schöling | } else {
|
||
| b65a230d | Sven Schöling | $z = $sm;
|
||
$mlz{"s$ml"}++;
|
||||
| 97908cc4 | Holger Lindemann | }
|
||
print
|
||||
qq|menu[$mlz{$ml}][$z] = new Item('$label', '#', '', defLength, 0, |
|
||||
. ++$pm
|
||||
. qq|);\n|;
|
||||
$sm = 1;
|
||||
print qq|menu[$pm] = new Array();\n|;
|
||||
print
|
||||
qq|menu[$pm][0] = new Menu(true, '', 85, 0, 180, defOver, defBack, 'itemBorder', 'itemText');\n|;
|
||||
map { shift @menuorder } grep /^$item/, @menuorder;
|
||||
§ion_menu($menu, $item);
|
||||
map { shift @menuorder } grep /^$item/, @menuorder;
|
||||
} else {
|
||||
if ($menu->{$item}{module}) {
|
||||
#Untermen?punkte
|
||||
| 74e345d0 | Sven Schöling | my $target = $menu->{$item}{target};
|
||
my $uri = $menu->menuitem_js(\%myconfig, \%$form, $item, $level);
|
||||
| 97908cc4 | Holger Lindemann | |||
print
|
||||
qq|menu[$pm][$sm] = new Item('$label', '$uri', '$target', defLength, 0, 0);\n|;
|
||||
$sm++;
|
||||
} else { # Hauptmenu
|
||||
my $ml_ = $form->escape($ml);
|
||||
$mm++;
|
||||
$pm++;
|
||||
%mlz = ($ml, $pm, "s$ml", 1);
|
||||
$shlp = $sm;
|
||||
$sm = 1;
|
||||
| 74e345d0 | Sven Schöling | my $breit = 15 + length($label) * 6;
|
||
| 97908cc4 | Holger Lindemann | print
|
||
| b65a230d | Sven Schöling | qq|menu[0][$mm] = new Item(' $label', '#', '', $breit, 10, $pm); \n|;
|
||
| 97908cc4 | Holger Lindemann | print qq|menu[$pm] = new Array();\n|;
|
||
print
|
||||
qq|menu[$pm][0] = new Menu(true, '>', 0, 20, 180, defOver, defBack, 'itemBorder', 'itemText');\n|;
|
||||
§ion_menu($menu, $item);
|
||||
#print qq|<br>\n|;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|