Kleines Hilfsmodul für Zeichensatzkonvertierung hinzugefügt. In am.pl und rp.pl werde...
[kivitendo-erp.git] / bin / mozilla / menunew.pl
1 #=====================================================================
2 # LX-Office ERP
3 # Copyright (C) 2004
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
6 #
7 ######################################################################
8 # SQL-Ledger Accounting
9 # Copyright (c) 1998-2002
10 #
11 #  Author: Dieter Simader
12 #   Email: dsimader@sql-ledger.org
13 #     Web: http://www.sql-ledger.org
14 #
15 #  Contributors: Christopher Browne
16 #
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.
21 #
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 #######################################################################
30 #
31 # thre frame layout with refractured menu
32 #
33 # CHANGE LOG:
34 #   DS. 2002-03-25  Created
35 #  2004-12-14 - New Optik - Marco Welter <mawe@linux-studio.de>
36 #######################################################################
37
38 $menufile = "menu.ini";
39 use SL::Menu;
40 use CGI::Carp qw(fatalsToBrowser);
41
42 1;
43
44 # end of main
45
46 sub display {
47
48   $form->header;
49
50   &clock_line;
51
52   &acc_menu;
53
54   print qq|
55 <iframe id="win1" src="login.pl?login=$form->{login}&password=$form->{password}&action=company_logo" width="100%" height="93%" name="main_window" style="position: absolute; border:0px;">
56 <p>Ihr Browser kann leider keine eingebetteten Frames anzeigen.
57 </p>
58 </iframe>
59 </body>
60 </html>
61
62 |;
63
64 }
65
66 sub clock_line {
67
68   $fensterlink="menunew.pl?login=$form->{login}&password=$form->{password}&action=display";
69   $fenster = "["."<a href=\"$fensterlink\" target=\"_blank\">neues Fenster</a>]";
70
71   $login = "[Nutzer "
72     . $form->{login}
73     . " - <a href=\"login.pl?password="
74     . $form->{"password"}
75     . "&action=logout\" target=\"_top\">"
76     . $locale->text('Logout')
77     . "</a>] ";
78   my ($Sekunden, $Minuten,   $Stunden,   $Monatstag, $Monat,
79       $Jahr,     $Wochentag, $Jahrestag, $Sommerzeit)
80     = localtime(time);
81   my $CTIME_String = localtime(time);
82   $Monat     += 1;
83   $Jahrestag += 1;
84   $Monat     = $Monat < 10     ? $Monat     = "0" . $Monat     : $Monat;
85   $Monatstag = $Monatstag < 10 ? $Monatstag = "0" . $Monatstag : $Monatstag;
86   $Jahr += 1900;
87   my @Wochentage = ("Sonntag",    "Montag",  "Dienstag", "Mittwoch",
88                     "Donnerstag", "Freitag", "Samstag");
89   my @Monatsnamen = ("",       "Januar",    "Februar", "M&auml;rz",
90                      "April",  "Mai",       "Juni",    "Juli",
91                      "August", "September", "Oktober", "November",
92                      "Dezember");
93   $datum =
94       $Wochentage[$Wochentag] . ", der "
95     . $Monatstag . "."
96     . $Monat . "."
97     . $Jahr . " - ";
98
99   #$zeit="<div id='Uhr'>".$Stunden.":".$Minuten.":".$Sekunden."</div>";
100   $zeit = "<div id='Uhr'>" . $Stunden . ":" . $Minuten . "</div>";
101   print qq|
102 <script type="text/javascript">
103 <!--
104 var h=$Stunden; var m=$Minuten; var s=$Sekunden;
105 function clockon() {
106   s=++s%60;if(s==0){m=++m%60;if(m==0)h=++h%24;}
107   document.getElementById('clock_id').innerHTML = (h<10?'0'+h:h)+":"+(m<10?'0'+m:m)+":"+(s<10?'0'+s:s);
108   var timer=setTimeout("clockon()", 1000);
109 }
110 window.onload=clockon
111 //-->
112 </script>
113 <table border="0" width="100%" background="image/bg_titel.gif" cellpadding="0" cellspacing="0">
114   <tr>
115     <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>
116     <td align="right" style="vertical-align:middle; color:white; font-family:verdana,arial,sans-serif; font-size: 12px;" nowrap>
117       $login $datum <span id='clock_id' style='position:relative'></span>&nbsp;
118     </td>
119   </tr>
120 </table>
121 |;
122 }
123
124 sub acc_menu {
125   $mainlevel = $form->{level};
126   $mainlevel =~ s/$mainlevel--//g;
127   my $menu = new Menu "$menufile";
128   $menu = new Menu "custom_$menufile" if (-f "custom_$menufile");
129   $menu = new Menu "$form->{login}_$menufile"
130     if (-f "$form->{login}_$menufile");
131
132   $| = 1;
133
134   print qq|
135 <style>
136 <!--
137
138 .itemBorder {
139   border: 1px solid black
140 }
141
142 .itemText {
143   text-decoration: none;
144   color: #000000;
145   font: 12px Arial, Helvetica
146 }
147
148 .rootItemText {
149   text-decoration: none;
150   color: #ffffff;
151   font: 12px Arial, Helvetica
152 }
153
154 .menu {
155   color:#ffffff;
156   background:url(image/bg_css_menu.png) repeat bottom;
157   border:1px solid;
158   border-color:#ccc #888 #555 #bbb;
159 }
160
161 -->
162 </style>
163
164 <script type="text/javascript">
165 <!--
166 var isDOM = (document.getElementById ? true : false); 
167 var isIE4 = ((document.all && !isDOM) ? true : false);
168 var isNS4 = (document.layers ? true : false);
169 //var KO = (navigator.appName=="Konqueror" \|\| navigator.appName=="Opera") ;
170 var KO = ((navigator.userAgent.indexOf('Opera',0) != -1) \|\| (navigator.userAgent.indexOf('Konqueror',0) != -1));
171 function getRef(id) {
172         if (isDOM) return document.getElementById(id);
173         if (isIE4) return document.all[id];
174         if (isNS4) return document.layers[id];
175 }
176 function getSty(id) {
177         return (isNS4 ? getRef(id) : getRef(id).style);
178
179 var popTimer = 0;
180 var litNow = new Array();
181 function popOver(menuNum, itemNum) {
182         if (KO) document.getElementById("win1").style.visibility = "hidden";
183         clearTimeout(popTimer);
184         hideAllBut(menuNum);
185         litNow = getTree(menuNum, itemNum);
186         changeCol(litNow, true);
187         targetNum = menu[menuNum][itemNum].target;
188         if (targetNum > 0) {
189                 thisX = parseInt(menu[menuNum][0].ref.left) + parseInt(menu[menuNum][itemNum].ref.left);
190                 thisY = parseInt(menu[menuNum][0].ref.top) + parseInt(menu[menuNum][itemNum].ref.top);
191                 with (menu[targetNum][0].ref) {
192                         left = parseInt(thisX + menu[targetNum][0].x);
193                         top = parseInt(thisY + menu[targetNum][0].y);
194                         visibility = 'visible';
195                 }
196         }
197 }
198 function popOut(menuNum, itemNum) {
199         if ((menuNum == 0) && !menu[menuNum][itemNum].target)
200                 hideAllBut(0)
201                 if (KO) document.getElementById("win1").style.visibility = "visible";
202         else
203                 popTimer = setTimeout('hideAllBut(0)', 500);
204 }
205 function getTree(menuNum, itemNum) {
206         itemArray = new Array(menu.length);
207         while(1) {
208                 itemArray[menuNum] = itemNum;
209                 if (menuNum == 0) return itemArray;
210                 itemNum = menu[menuNum][0].parentItem;
211                 menuNum = menu[menuNum][0].parentMenu;
212         }
213 }
214 function changeCol(changeArray, isOver) {
215         for (menuCount = 0; menuCount < changeArray.length; menuCount++) {
216                 if (changeArray[menuCount]) {
217                         newCol = isOver ? menu[menuCount][0].overCol : menu[menuCount][0].backCol;
218                         with (menu[menuCount][changeArray[menuCount]].ref) {
219                                 if (isNS4) bgColor = newCol;
220                                 else backgroundColor = newCol;
221                         }
222                 }
223         }
224 }
225 function hideAllBut(menuNum) {
226         var keepMenus = getTree(menuNum, 1);
227         for (count = 0; count < menu.length; count++)
228                 if (!keepMenus[count])
229                         menu[count][0].ref.visibility = 'hidden';
230         changeCol(litNow, false);
231 }
232
233 function Menu(isVert, popInd, x, y, width, overCol, backCol, borderClass, textClass) {
234         this.isVert = isVert;
235         this.popInd = popInd
236         this.x = x;
237         this.y = y;
238         this.width = width;
239         this.overCol = overCol;
240         this.backCol = backCol;
241         this.borderClass = borderClass;
242         this.textClass = textClass;
243         this.parentMenu = null;
244         this.parentItem = null;
245         this.ref = null;
246 }
247 function Item(text, href, frame, length, spacing, target) {
248         this.text = text;
249         this.href = href;
250         this.frame = frame;
251         this.length = length;
252         this.spacing = spacing;
253         this.target = target;
254         this.ref = null;
255 }
256 function go(link,frame) {
257         tmp=eval("top."+frame);
258         tmp.location=link;
259         //top.main_window.location=link;
260 }
261 function writeMenus() {
262         if (!isDOM && !isIE4 && !isNS4) return;
263         for (currMenu = 0; currMenu < menu.length; currMenu++) with (menu[currMenu][0]) {
264                 var str = '', itemX = 0, itemY = 0;
265                 for (currItem = 1; currItem < menu[currMenu].length; currItem++) with (menu[currMenu][currItem]) {
266                         var itemID = 'menu' + currMenu + 'item' + currItem;
267                         var w = (isVert ? width : length);
268                         var h = (isVert ? length : width);
269                         if (isDOM \|\| isIE4) {
270                                 str += '<div id="' + itemID + '" style="position: absolute; left: ' + itemX + '; top: ' + itemY + '; width: ' + w + '; height: ' + h + '; visibility: inherit; ';
271                                 if (backCol) str += 'background: ' + backCol + '; ';
272                                 str += '" ';
273                         }
274                         if (isNS4) {
275                                 str += '<layer id="' + itemID + '" left="' + itemX + '" top="' + itemY + '" width="' +  w + '" height="' + h + '" visibility="inherit" ';
276                                 if (backCol) str += 'bgcolor="' + backCol + '" ';
277                         }
278                         if (borderClass) str += 'class="' + borderClass + '" "';
279                         str += 'onMouseOver="popOver(' + currMenu + ',' + currItem + ')" onMouseOut="popOut(' + currMenu + ',' + currItem + ')">';
280                         str += '<table width="' + (w - 8) + '" border="0" cellspacing="0" cellpadding="' + (!isNS4 && borderClass ? 3 : 0) + '">';
281                         str +='<tr><td class="' + textClass + '" style="cursor:pointer;" align="left" height="' + (h - 7) + '" onClick=\\'go("' + href + '","' + frame + '")\\'>' + text + '</a></td>';
282                         if (target > 0) {
283                                 menu[target][0].parentMenu = currMenu;
284                                 menu[target][0].parentItem = currItem;
285                                 if (popInd) str += '<td class="' + textClass + '" align="right">' + popInd + '</td>';
286                         }
287                         str += '</tr></table>' + (isNS4 ? '</layer>' : '</div>');
288                         if (isVert) itemY += length + spacing;
289                         else itemX += length + spacing;
290                 }
291                 if (isDOM) {
292                         var newDiv = document.createElement('div');
293                         document.getElementsByTagName('body').item(0).appendChild(newDiv);
294                         newDiv.innerHTML = str;
295                         ref = newDiv.style;
296                         ref.position = 'absolute';
297                         ref.visibility = 'hidden';
298                 }
299                 if (isIE4) {
300                         document.body.insertAdjacentHTML('beforeEnd', '<div id="menu' + currMenu + 'div" ' + 'style="position: absolute; visibility: hidden">' + str + '</div>');
301                         ref = getSty('menu' + currMenu + 'div');
302                 }
303                 if (isNS4) {
304                         ref = new Layer(0);
305                         ref.document.write(str);
306                         ref.document.close();
307                 }
308                 for (currItem = 1; currItem < menu[currMenu].length; currItem++) {
309                         itemName = 'menu' + currMenu + 'item' + currItem;
310                         if (isDOM \|\| isIE4) menu[currMenu][currItem].ref = getSty(itemName);
311                         if (isNS4) menu[currMenu][currItem].ref = ref.document[itemName];
312                 }
313         }
314         with(menu[0][0]) {
315                 ref.left = x;
316                 ref.top = y;
317                 ref.visibility = 'visible';
318    }
319 }
320 var menu = new Array();
321 var defOver = '#cccccc';
322 var defBack = '#dddddd';
323 var defLength = 22;
324 menu[0] = new Array();
325 menu[0][0] = new Menu(false, '', 5, 18, 19, '#cccccc', '', '', 'rootItemText');
326
327 |;
328
329   &section_menu($menu);
330
331   print qq|
332 var popOldWidth = window.innerWidth;
333 nsResizeHandler = new Function('if (popOldWidth != window.innerWidth) location.reload()');
334 if (isNS4) document.captureEvents(Event.CLICK);
335 document.onclick = clickHandle;
336 function clickHandle(evt) {
337         if (isNS4) document.routeEvent(evt);
338         hideAllBut(0);
339         if (KO) document.getElementById("win1").style.visibility = "visible";
340 }
341 function moveRoot() {
342         with(menu[0][0].ref) left = ((parseInt(left) < 100) ? 100 : 5);
343 }
344 //  End -->
345 </script>
346
347 <BODY scrolling="no" topmargin="0" leftmargin="0"  marginwidth="0" marginheight="0" style="margin: 0" onLoad="writeMenus(); clockon();" onResize="if (isNS4) nsResizeHandler()">
348
349
350 <table class="menu" width="100%" border="0" cellpadding="0" cellspacing="0">
351 <tr><td height="21"><font size="1"> </font></td></tr></table>
352
353
354 |;
355
356   print qq|
357   
358 |;
359
360 }
361
362 sub section_menu {
363   my ($menu, $level) = @_;
364
365   # build tiered menus
366   my @menuorder = $menu->access_control(\%myconfig, $level);
367   $main = 0;
368
369   #$pm=0;
370   $shlp=0;
371   while (@menuorder) {
372     $item  = shift @menuorder;
373     $label = $item;
374     $ml    = $item;
375     $label =~ s/$level--//g;
376     $ml    =~ s/--.*//;
377     $label = $locale->text($label);
378     $label =~ s/ /&nbsp;/g;
379     $menu->{$item}{target} = "main_window" unless $menu->{$item}{target};
380
381     if ($menu->{$item}{submenu}) {
382       $menu->{$item}{$item} = !$form->{$item};
383
384       # Untermen
385       if ($mlz{"s$ml"} > 1) { 
386                 $z++; 
387                 $sm = 1; 
388       } else { 
389                 $z = $sm; 
390                 $mlz{"s$ml"}++; 
391       }
392       print
393         qq|menu[$mlz{$ml}][$z] = new Item('$label', '#', '', defLength, 0, |
394         . ++$pm
395         . qq|);\n|;
396       $sm = 1;
397       print qq|menu[$pm] = new Array();\n|;
398       print
399         qq|menu[$pm][0] = new Menu(true, '', 85, 0, 180, defOver, defBack, 'itemBorder', 'itemText');\n|;
400       map { shift @menuorder } grep /^$item/, @menuorder;
401       &section_menu($menu, $item);
402       map { shift @menuorder } grep /^$item/, @menuorder;
403     } else {
404       if ($menu->{$item}{module}) {
405
406         #Untermenüpunkte
407         $target = $menu->{$item}{target};
408         $uri    = $menu->menuitemNew(\%myconfig, \%$form, $item, $level);
409
410         #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|;
411         print
412           qq|menu[$pm][$sm] = new Item('$label', '$uri', '$target', defLength, 0, 0);\n|;
413         $sm++;
414       } else {    # Hauptmenu
415         my $ml_ = $form->escape($ml);
416         $mm++;
417         $pm++;
418         %mlz   = ($ml, $pm, "s$ml", 1);
419         $shlp = $sm;
420         $sm    = 1;
421         $breit = 15 + length($label) * 6;
422         print
423           qq|menu[0][$mm] = new Item('  $label', '#', '', $breit, 10, $pm);     \n|;
424         print qq|menu[$pm] = new Array();\n|;
425         print
426           qq|menu[$pm][0] = new Menu(true, '>', 0, 20, 180, defOver, defBack, 'itemBorder', 'itemText');\n|;
427
428         #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_&login=$form->{login}&password=$form->{password}" class="nohover">$label</a>&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>\n|;
429         &section_menu($menu, $item);
430
431         #print qq|<br>\n|;
432       }
433     }
434   }
435 }