projekt kivitendo

sub menuitemNew {

my ($self, $myconfig, $form, $item) = @_;

my $module = $form->{script};

my $action = "section_menu";

#if ($self->{$item}{module}) {

$module = $self->{$item}{module};

#}

if ($self->{$item}{action}) {

$action = $self->{$item}{action};

}

my $level = $form->escape($item);

my $str = qq|$module?action=$action&level=$level|;

my @vars = qw(module action target href);

if ($self->{$item}{href}) {

$str = qq|$self->{$item}{href}|;

@vars = qw(module target href);

}

map { delete $self->{$item}{$_} } @vars;

# add other params

foreach my $key (keys %{ $self->{$item} }) {

$str .= "&" . $form->escape($key, 1) . "=";

($value, $conf) = split(/=/, $self->{$item}{$key}, 2);

$value = $myconfig->{$value} . "/$conf" if ($conf);

$str .= $form->escape($value, 1);

}

$str .= " ";

}

# CHANGE LOG:

# DS. 2002-03-25 Created

# 2004-12-14 - New Optik - Marco Welter <mawe@linux-studio.de>

$menufile = "menu.ini";

use CGI::Carp qw(fatalsToBrowser);

$form->header;

&clock_line;

&acc_menu;

print qq|

<iframe id="win1" src="login.pl?action=company_logo" width="100%" height="93%" name="main_window" style="position: absolute; border:0px;">

<p>Ihr Browser kann leider keine eingebetteten Frames anzeigen.

</p>

</iframe>

</body>

</html>

|;

$fensterlink="menunew.pl?action=display";

$fenster = "["."<a href=\"$fensterlink\" target=\"_blank\">neues Fenster</a>]";

$login = "[Nutzer "

. $form->{login}

. " - <a href=\"login.pl?action=logout\" target=\"_top\">"

. $locale->text('Logout')

. "</a>] ";

my $CTIME_String = localtime(time);

$datum =

#$zeit="<div id='Uhr'>".$Stunden.":".$Minuten.":".$Sekunden."</div>";

$zeit = "<div id='Uhr'>" . $Stunden . ":" . $Minuten . "</div>";

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;"> &nbsp; $fenster &nbsp; [<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>&nbsp;

</td>

</tr>

</table>

|;

$mainlevel = $form->{level};

$mainlevel =~ s/\Q$mainlevel\E--//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">

<!--

var isDOM = (document.getElementById ? true : false);

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) {

if (isDOM) return document.getElementById(id);

if (isIE4) return document.all[id];

if (isNS4) return document.layers[id];

}

function getSty(id) {

return (isNS4 ? getRef(id) : getRef(id).style);

}

var popTimer = 0;

var litNow = new Array();

function popOver(menuNum, itemNum) {

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';

}

}

}

function popOut(menuNum, itemNum) {

if ((menuNum == 0) && !menu[menuNum][itemNum].target)

hideAllBut(0)

if (KO) document.getElementById("win1").style.visibility = "visible";

else

popTimer = setTimeout('hideAllBut(0)', 500);

}

function getTree(menuNum, itemNum) {

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;

}

}

function changeCol(changeArray, isOver) {

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;

}

}

}

}

function hideAllBut(menuNum) {

var keepMenus = getTree(menuNum, 1);

for (count = 0; count < menu.length; count++)

if (!keepMenus[count])

menu[count][0].ref.visibility = 'hidden';

changeCol(litNow, false);

}

function Menu(isVert, popInd, x, y, width, overCol, backCol, borderClass, textClass) {

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;

}

function Item(text, href, frame, length, spacing, target) {

this.text = text;

this.href = href;

this.frame = frame;

this.length = length;

this.spacing = spacing;

this.target = target;

this.ref = null;

function go(link,frame) {

tmp=eval("top."+frame);

tmp.location=link;

//top.main_window.location=link;

}

function writeMenus() {

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';

}

}

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');

|;

&section_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) {

if (isNS4) document.routeEvent(evt);

hideAllBut(0);

if (KO) document.getElementById("win1").style.visibility = "visible";

}

function moveRoot() {

with(menu[0][0].ref) left = ((parseInt(left) < 100) ? 100 : 5);

// 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|

|;

}

sub section_menu {

my ($menu, $level) = @_;

# build tiered menus

my @menuorder = $menu->access_control(\%myconfig, $level);

$main = 0;

#$pm=0;

$shlp=0;

while (@menuorder) {

$item = shift @menuorder;

$label = $item;

$ml = $item;

$label =~ s/\Q$level\E--//g;

$ml =~ s/--.*//;

$label = $locale->text($label);

$label =~ s/ /&nbsp;/g;

$menu->{$item}{target} = "main_window" unless $menu->{$item}{target};

if ($menu->{$item}{submenu}) {

$menu->{$item}{$item} = !$form->{$item};

# Untermen

if ($mlz{"s$ml"} > 1) {

$z++;

$sm = 1;

} else {

$z = $sm;

$mlz{"s$ml"}++;

}

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;

&section_menu($menu, $item);

map { shift @menuorder } grep /^$item/, @menuorder;

if ($menu->{$item}{module}) {

#Untermen?punkte

$target = $menu->{$item}{target};

$uri = $menu->menuitemNew(\%myconfig, \%$form, $item, $level);

#print qq|<tr><td class="hover" height="13" >$spacer<img src="image/unterpunkt.png" style="vertical-align:text-top">|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label</a></td></tr>\n|;

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;

$breit = 15 + length($label) * 6;

print

qq|menu[0][$mm] = new Item(' $label', '#', '', $breit, 10, $pm); \n|;

print qq|menu[$pm] = new Array();\n|;

print

qq|menu[$pm][0] = new Menu(true, '>', 0, 20, 180, defOver, defBack, 'itemBorder', 'itemText');\n|;

#print qq|<tr><td class="bg" height="22" align="left" valign="middle" ><img src="image/$item.png" style="vertical-align:middle">&nbsp;<a href="menu.pl?action=acc_menu&level=$ml_" class="nohover">$label</a>&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>\n|;

&section_menu($menu, $item);

#print qq|<br>\n|;

}