1 #=====================================================================
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
7 ######################################################################
8 # SQL-Ledger Accounting
9 # Copyright (c) 1998-2002
11 # Author: Dieter Simader
12 # Email: dsimader@sql-ledger.org
13 # Web: http://www.sql-ledger.org
15 # Contributors: Christopher Browne
17 # This program is free software; you can redistribute it and/or modify
18 # it under the terms of the GNU General Public License as published by
19 # the Free Software Foundation; either version 2 of the License, or
20 # (at your option) any later version.
22 # This program is distributed in the hope that it will be useful,
23 # but WITHOUT ANY WARRANTY; without even the implied warranty of
24 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25 # GNU General Public License for more details.
26 # You should have received a copy of the GNU General Public License
27 # along with this program; if not, write to the Free Software
28 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
29 #######################################################################
31 # thre frame layout with refractured menu
34 # DS. 2002-03-25 Created
35 # 2004-12-14 - New Optik - Marco Welter <mawe@linux-studio.de>
36 #######################################################################
38 $menufile = "menu.ini";
40 use CGI::Carp qw(fatalsToBrowser);
55 <iframe id="win1" 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;">
56 <p>Ihr Browser kann leider keine eingebetteten Frames anzeigen.
68 $fensterlink="menunew.pl?login=$form->{login}&password=$form->{password}&path=$form->{path}&action=display";
69 $fenster = "["."<a href=\"$fensterlink\" target=\"_blank\">neues Fenster</a>]";
73 . " - <a href=\"login.pl?path="
77 . "&action=logout\" target=\"_top\">"
78 . $locale->text('Logout')
80 my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
81 $Jahr, $Wochentag, $Jahrestag, $Sommerzeit)
83 my $CTIME_String = localtime(time);
86 $Monat = $Monat < 10 ? $Monat = "0" . $Monat : $Monat;
87 $Monatstag = $Monatstag < 10 ? $Monatstag = "0" . $Monatstag : $Monatstag;
89 my @Wochentage = ("Sonntag", "Montag", "Dienstag", "Mittwoch",
90 "Donnerstag", "Freitag", "Samstag");
91 my @Monatsnamen = ("", "Januar", "Februar", "März",
92 "April", "Mai", "Juni", "Juli",
93 "August", "September", "Oktober", "November",
96 $Wochentage[$Wochentag] . ", der "
101 #$zeit="<div id='Uhr'>".$Stunden.":".$Minuten.":".$Sekunden."</div>";
102 $zeit = "<div id='Uhr'>" . $Stunden . ":" . $Minuten . "</div>";
104 <script type="text/javascript">
106 var h=$Stunden; var m=$Minuten; var s=$Sekunden;
108 s=++s%60;if(s==0){m=++m%60;if(m==0)h=++h%24;}
109 document.getElementById('clock_id').innerHTML = (h<10?'0'+h:h)+":"+(m<10?'0'+m:m)+":"+(s<10?'0'+s:s);
110 var timer=setTimeout("clockon()", 1000);
112 window.onload=clockon
115 <table border="0" width="100%" background="image/bg_titel.gif" cellpadding="0" cellspacing="0">
117 <td style="color:white; font-family:verdana,arial,sans-serif; font-size: 12px;"> $fenster [<a href="JavaScript:top.main_window.print()">drucken</a>]</td>
118 <td align="right" style="vertical-align:middle; color:white; font-family:verdana,arial,sans-serif; font-size: 12px;" nowrap>
119 $login $datum <span id='clock_id' style='position:relative'></span>
127 $mainlevel = $form->{level};
128 $mainlevel =~ s/$mainlevel--//g;
129 my $menu = new Menu "$menufile";
130 $menu = new Menu "custom_$menufile" if (-f "custom_$menufile");
131 $menu = new Menu "$form->{login}_$menufile"
132 if (-f "$form->{login}_$menufile");
137 <script type="text/javascript">
139 var isDOM = (document.getElementById ? true : false);
140 var isIE4 = ((document.all && !isDOM) ? true : false);
141 var isNS4 = (document.layers ? true : false);
142 //var KO = (navigator.appName=="Konqueror" \|\| navigator.appName=="Opera") ;
143 var KO = ((navigator.userAgent.indexOf('Opera',0) != -1) \|\| (navigator.userAgent.indexOf('Konqueror',0) != -1));
144 function getRef(id) {
145 if (isDOM) return document.getElementById(id);
146 if (isIE4) return document.all[id];
147 if (isNS4) return document.layers[id];
149 function getSty(id) {
150 return (isNS4 ? getRef(id) : getRef(id).style);
153 var litNow = new Array();
154 function popOver(menuNum, itemNum) {
155 if (KO) document.getElementById("win1").style.visibility = "hidden";
156 clearTimeout(popTimer);
158 litNow = getTree(menuNum, itemNum);
159 changeCol(litNow, true);
160 targetNum = menu[menuNum][itemNum].target;
162 thisX = parseInt(menu[menuNum][0].ref.left) + parseInt(menu[menuNum][itemNum].ref.left);
163 thisY = parseInt(menu[menuNum][0].ref.top) + parseInt(menu[menuNum][itemNum].ref.top);
164 with (menu[targetNum][0].ref) {
165 left = parseInt(thisX + menu[targetNum][0].x);
166 top = parseInt(thisY + menu[targetNum][0].y);
167 visibility = 'visible';
171 function popOut(menuNum, itemNum) {
172 if ((menuNum == 0) && !menu[menuNum][itemNum].target)
174 if (KO) document.getElementById("win1").style.visibility = "visible";
176 popTimer = setTimeout('hideAllBut(0)', 500);
178 function getTree(menuNum, itemNum) {
179 itemArray = new Array(menu.length);
181 itemArray[menuNum] = itemNum;
182 if (menuNum == 0) return itemArray;
183 itemNum = menu[menuNum][0].parentItem;
184 menuNum = menu[menuNum][0].parentMenu;
187 function changeCol(changeArray, isOver) {
188 for (menuCount = 0; menuCount < changeArray.length; menuCount++) {
189 if (changeArray[menuCount]) {
190 newCol = isOver ? menu[menuCount][0].overCol : menu[menuCount][0].backCol;
191 with (menu[menuCount][changeArray[menuCount]].ref) {
192 if (isNS4) bgColor = newCol;
193 else backgroundColor = newCol;
198 function hideAllBut(menuNum) {
199 var keepMenus = getTree(menuNum, 1);
200 for (count = 0; count < menu.length; count++)
201 if (!keepMenus[count])
202 menu[count][0].ref.visibility = 'hidden';
203 changeCol(litNow, false);
206 function Menu(isVert, popInd, x, y, width, overCol, backCol, borderClass, textClass) {
207 this.isVert = isVert;
212 this.overCol = overCol;
213 this.backCol = backCol;
214 this.borderClass = borderClass;
215 this.textClass = textClass;
216 this.parentMenu = null;
217 this.parentItem = null;
220 function Item(text, href, frame, length, spacing, target) {
224 this.length = length;
225 this.spacing = spacing;
226 this.target = target;
229 function go(link,frame) {
230 tmp=eval("top."+frame);
232 //top.main_window.location=link;
234 function writeMenus() {
235 if (!isDOM && !isIE4 && !isNS4) return;
236 for (currMenu = 0; currMenu < menu.length; currMenu++) with (menu[currMenu][0]) {
237 var str = '', itemX = 0, itemY = 0;
238 for (currItem = 1; currItem < menu[currMenu].length; currItem++) with (menu[currMenu][currItem]) {
239 var itemID = 'menu' + currMenu + 'item' + currItem;
240 var w = (isVert ? width : length);
241 var h = (isVert ? length : width);
242 if (isDOM \|\| isIE4) {
243 str += '<div id="' + itemID + '" style="position: absolute; left: ' + itemX + '; top: ' + itemY + '; width: ' + w + '; height: ' + h + '; visibility: inherit; ';
244 if (backCol) str += 'background: ' + backCol + '; ';
248 str += '<layer id="' + itemID + '" left="' + itemX + '" top="' + itemY + '" width="' + w + '" height="' + h + '" visibility="inherit" ';
249 if (backCol) str += 'bgcolor="' + backCol + '" ';
251 if (borderClass) str += 'class="' + borderClass + '" "';
252 str += 'onMouseOver="popOver(' + currMenu + ',' + currItem + ')" onMouseOut="popOut(' + currMenu + ',' + currItem + ')">';
253 str += '<table width="' + (w - 8) + '" border="0" cellspacing="0" cellpadding="' + (!isNS4 && borderClass ? 3 : 0) + '">';
254 str +='<tr><td style="cursor:pointer;" align="left" height="' + (h - 7) + '" onClick=\\'go("' + href + '","' + frame + '")\\'>' + text + '</a></td>';
256 menu[target][0].parentMenu = currMenu;
257 menu[target][0].parentItem = currItem;
258 if (popInd) str += '<td class="' + textClass + '" align="right">' + popInd + '</td>';
260 str += '</tr></table>' + (isNS4 ? '</layer>' : '</div>');
261 if (isVert) itemY += length + spacing;
262 else itemX += length + spacing;
265 var newDiv = document.createElement('div');
266 document.getElementsByTagName('body').item(0).appendChild(newDiv);
267 newDiv.innerHTML = str;
269 ref.position = 'absolute';
270 ref.visibility = 'hidden';
273 document.body.insertAdjacentHTML('beforeEnd', '<div id="menu' + currMenu + 'div" ' + 'style="position: absolute; visibility: hidden">' + str + '</div>');
274 ref = getSty('menu' + currMenu + 'div');
278 ref.document.write(str);
279 ref.document.close();
281 for (currItem = 1; currItem < menu[currMenu].length; currItem++) {
282 itemName = 'menu' + currMenu + 'item' + currItem;
283 if (isDOM \|\| isIE4) menu[currMenu][currItem].ref = getSty(itemName);
284 if (isNS4) menu[currMenu][currItem].ref = ref.document[itemName];
290 ref.visibility = 'visible';
293 var menu = new Array();
294 var defOver = '#AAAAFF', defBack = '#8888DD';
296 menu[0] = new Array();
297 menu[0][0] = new Menu(false, '', 5, 18, 19, '#AAAAFF', '#AAAAFF', '', 'itemText');
302 §ion_menu($menu);
305 var popOldWidth = window.innerWidth;
306 nsResizeHandler = new Function('if (popOldWidth != window.innerWidth) location.reload()');
307 if (isNS4) document.captureEvents(Event.CLICK);
308 document.onclick = clickHandle;
309 function clickHandle(evt) {
310 if (isNS4) document.routeEvent(evt);
312 if (KO) document.getElementById("win1").style.visibility = "visible";
314 function moveRoot() {
315 with(menu[0][0].ref) left = ((parseInt(left) < 100) ? 100 : 5);
322 .itemBorder { border: 1px solid black }
323 .itemText { text-decoration: none; color: #FFFFFF; font: 12px Arial, Helvetica }
328 <!--body bgcolor="#AAAAff" text="#ffffff" link="#ffffff" vlink="#ffffff" alink="#ffffff" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0"-->
329 <BODY scrolling="no" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" style="margin: 0" onLoad="writeMenus(); clockon();" onResize="if (isNS4) nsResizeHandler()">
330 <!--BODY marginwidth="0" marginheight="0" style="margin: 0" onLoad="writeMenus()" onResize="if (isNS4) nsResizeHandler()"-->
333 <table bgcolor="#AAAAFF" width="100%" border="0" cellpadding="0" cellspacing="0">
334 <tr><td height="21"><font size="1"> </font></td></tr></table>
345 my ($menu, $level) = @_;
348 my @menuorder = $menu->access_control(\%myconfig, $level);
354 $item = shift @menuorder;
357 $label =~ s/$level--//g;
359 $label = $locale->text($label);
360 $label =~ s/ / /g;
361 $menu->{$item}{target} = "main_window" unless $menu->{$item}{target};
363 if ($menu->{$item}{submenu}) {
364 $menu->{$item}{$item} = !$form->{$item};
367 if ($mlz{"s$ml"} > 1) {
375 qq|menu[$mlz{$ml}][$z] = new Item('$label', '#', '', defLength, 0, |
379 print qq|menu[$pm] = new Array();\n|;
381 qq|menu[$pm][0] = new Menu(true, '', 85, 0, 180, defOver, defBack, 'itemBorder', 'itemText');\n|;
382 map { shift @menuorder } grep /^$item/, @menuorder;
383 §ion_menu($menu, $item);
384 map { shift @menuorder } grep /^$item/, @menuorder;
386 if ($menu->{$item}{module}) {
389 $target = $menu->{$item}{target};
390 $uri = $menu->menuitemNew(\%myconfig, \%$form, $item, $level);
392 #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|;
394 qq|menu[$pm][$sm] = new Item('$label', '$uri', '$target', defLength, 0, 0);\n|;
397 my $ml_ = $form->escape($ml);
400 %mlz = ($ml, $pm, "s$ml", 1);
403 $breit = 15 + length($label) * 6;
405 qq|menu[0][$mm] = new Item(' $label', '#', '', $breit, 10, $pm); \n|;
406 print qq|menu[$pm] = new Array();\n|;
408 qq|menu[$pm][0] = new Menu(true, '>', 0, 20, 180, defOver, defBack, 'itemBorder', 'itemText');\n|;
410 #print qq|<tr><td class="bg" height="22" align="left" valign="middle" ><img src="image/$item.png" style="vertical-align:middle"> <a href="menu.pl?path=bin/mozilla&action=acc_menu&level=$ml_&login=$form->{login}&password=$form->{password}" class="nohover">$label</a> </td></tr>\n|;
411 §ion_menu($menu, $item);