projekt kivitendo

  my $str =

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?path=$form->{path}&action=$action&level=$level&login=$form->{login}&password=$form->{password}|;

  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 .= " ";

}

    anfragen lieferantenbestellungen einkaufsrechnungen steuernummer ustid duns menustyle);

    . $locale->text('Asset') . qq|\n<br>

    . $locale->text('Liability') . qq|\n<br>

    . $locale->text('Equity') . qq|\n<br>

    . $locale->text('Revenue') . qq|\n<br>

    . $locale->text('Expense') . qq|</td>

    . $locale->text('Account') . qq|</td>

      . $locale->text('Is this a summary account to record') . qq|</th>

      . $locale->text('Revenue') . qq|\n<br>

      . $locale->text('Receipt') . qq|\n<br>

      . $locale->text('Expense/Asset') . qq|\n<br>

      . $locale->text('Payment') . qq|\n<br>

      . $locale->text('Revenue') . qq|\n<br>

      . $locale->text('COGS') . qq|\n<br>

      . $locale->text('Revenue') . qq|\n<br>

      . $locale->text('Expense') . qq|\n<br>

    . $locale->text('Heading') . qq|</th>

                keys %countrycodes

    ) {

  if ($myconfig{menustyle} eq "old") { $oldS = "checked"; }

  else { $newS = "checked"; }

	<tr>

	  <th align=right>| . $locale->text('Setup Menu') . qq|</th>

	  <td><input name=menustyle type=radio class=radio value=neu $newS>&nbsp;New

  		  <input name=menustyle type=radio class=radio value=old $oldS>&nbsp;Old</td>

	</tr>	

    . $locale->text('Last Numbers & Default Accounts') . qq|</th>

    . $locale->text(

    'Enter up to 3 letters separated by a colon (i.e CAD:USD:EUR) for your native and foreign currencies'

    )

    . $locale->text('Last Customer Number') . qq|</th>

    . $locale->text('Last Sales Order Number') . qq|</th>

    . $locale->text('Last Vendor Number') . qq|</th>

    . $locale->text('Last Purchase Order Number') . qq|</th>

    . $locale->text('Last Article Number') . qq|</th>

    . $locale->text('Last Sales Quotation Number') . qq|</th>

    . $locale->text('Last Service Number') . qq|</th>

    . $locale->text('Enforce transaction reversal for all dates') . qq|</th>

    . $locale->text('Version') . qq| $form->{version}

  if ($user->{menustyle} eq "neu") {

    $form->{callback} =

      "menunew.pl?login=$form->{login}&password=$form->{password}&path=$form->{path}&action=display";

  } else {

    $form->{callback} =

      "menu.pl?login=$form->{login}&password=$form->{password}&path=$form->{path}&action=display";

  }

#=====================================================================

# 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 - New Optik - Marco Welter <mawe@linux-studio.de>

#######################################################################

$menufile = "menu.ini";

use SL::Menu;

use CGI::Carp qw(fatalsToBrowser);

1;

# end of main

sub display {

  $form->header;

  &clock_line;

  &acc_menu;

  print qq|

<iframe src="login.pl?login=$form->{login}&password=$form->{password}&action=company_logo&path=$form->{path}" 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>

|;

}

sub clock_line {

  $login = "["

    . $form->{login}

    . " - <a href=\"login.pl?path="

    . $form->{"path"}

    . "&password="

    . $form->{"password"}

    . "&action=logout\" target=\"_top\">"

    . $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");

  $datum =

      $Wochentage[$Wochentag] . ", der "

    . $Monatstag . "."

    . $Monat . "."

    . $Jahr . " - ";

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

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

  print qq|

<script type="text/javascript">

<!--

var clockid=new Array()

var clockidoutside=new Array()

var i_clock=-1

var thistime= new Date()

var hours= | . $Stunden . qq|;

var minutes= | . $Minuten . qq|;

var seconds= | . $Sekunden . qq|;

if (eval(hours) <10) {hours="0"+hours}

if (eval(minutes) < 10) {minutes="0"+minutes}

if (seconds < 10) {seconds="0"+seconds}

//var thistime = hours+":"+minutes+":"+seconds

var thistime = hours+":"+minutes

function writeclock() {

	i_clock++

	if (document.all \|\| document.getElementById \|\| document.layers) {

		clockid[i_clock]="clock"+i_clock

		document.write("<font family=arial size=2><span id='"+clockid[i_clock]+"' style='position:relative'>"+thistime+"</span></font>")

	}

}

function clockon() {

	thistime= new Date()

	hours=thistime.getHours()

	minutes=thistime.getMinutes()

	seconds=thistime.getSeconds()

	if (eval(hours) <10) {hours="0"+hours}

	if (eval(minutes) < 10) {minutes="0"+minutes}

	if (seconds < 10) {seconds="0"+seconds}

	//thistime = hours+":"+minutes+":"+seconds

	thistime = hours+":"+minutes

	if (document.all) {

		for (i=0;i<=clockid.length-1;i++) {

			var thisclock=eval(clockid[i])

			thisclock.innerHTML=thistime

		}

	}

	if (document.getElementById) {

		for (i=0;i<=clockid.length-1;i++) {

			document.getElementById(clockid[i]).innerHTML=thistime

		}

	}

	var timer=setTimeout("clockon()",60000)

}

//window.onload=clockon

//-->

</script>

<table border="0" width="100%" background="image/bg_titel.gif" cellpadding="0" cellspacing="0">

	<tr>

		<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>&nbsp;

		</td>

	</tr>

</table>

|;

}

sub acc_menu {

  $mainlevel = $form->{level};

  $mainlevel =~ s/$mainlevel--//g;

  my $menu = new Menu "$menufile";

  $menu = new Menu "custom_$menufile" if (-f "custom_$menufile");

  $menu = new Menu "$form->{login}_$menufile"

    if (-f "$form->{login}_$menufile");

  $| = 1;

  print qq|

<script type="text/javascript">

<!--

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

var isIE4 = ((document.all && !isDOM) ? true : false);

var isNS4 = (document.layers ? true : false);

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

	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)

	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 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) + '"><tr><td align="left" height="' + (h - 7) + '">' + '<a class="' + textClass + '" href="' + href + '"' + (frame ? ' target="' + 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 = '#AAAAFF', defBack = '#8888DD';

var defLength = 22;

menu[0] = new Array();

menu[0][0] = new Menu(false, '', 5, 18, 19, '#AAAAFF', '#AAAAFF', '', 'itemText');

|;

  #

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

}

function moveRoot() {

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

}

//  End -->

</script>

<style>

<!--

.itemBorder { border: 1px solid black }

.itemText { text-decoration: none; color: #FFFFFF; font: 12px Arial, Helvetica }

-->

</style>

<!--body bgcolor="#AAAAff" text="#ffffff" link="#ffffff" vlink="#ffffff" alink="#ffffff" topmargin="0" leftmargin="0"  marginwidth="0" marginheight="0"-->

<BODY scrolling="no" topmargin="0" leftmargin="0"  marginwidth="0" marginheight="0" style="margin: 0" onLoad="writeMenus(); clockon();" onResize="if (isNS4) nsResizeHandler()">

<!--BODY marginwidth="0" marginheight="0" style="margin: 0" onLoad="writeMenus()" onResize="if (isNS4) nsResizeHandler()"-->

<table bgcolor="#AAAAFF" 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;

  while (@menuorder) {

    $item  = shift @menuorder;

    $label = $item;

    $ml    = $item;

    $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ü

      if ($mlz{"s$ml"} > 1) { $z = $mlz{"s$ml"}++; $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, 140, defOver, defBack, 'itemBorder', 'itemText');\n|;

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

      &section_menu($menu, $item);

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

    } else {

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

        $sm    = 1;

        $breit = 20 + length($label) * 5;

        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, 22, 160, 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?path=bin/mozilla&action=acc_menu&level=$ml_&login=$form->{login}&password=$form->{password}" class="nohover">$label</a>&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>\n|;

        &section_menu($menu, $item);

        #print qq|<br>\n|;

      }

    }

  }

}

  'Setup Menu'                  => '',

  'Setup Menu'                  => 'Setup Menu',

  if ($file eq 'menunew.pl') {

    foreach $item (@menufiles) {

      &scanmenu("$basedir/$item");

    }

  }

for i in ap ar bp ca cp ct gl ic ir is menu oe pe rc rp datev licenses fa ustva menunew; do