#===================================================================== # 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 # ####################################################################### $menufile = "menu.ini"; use SL::Menu; 1; # end of main sub display { $form->header(qq||); print(qq|\n|); clock_line(); print qq|
|; } sub clock_line { $login = "[" . $form->{login} . " - {"path"} . "&password=" . $form->{"password"} . "&action=logout\" target=\"_top\">" . $locale->text('Logout') . "] "; 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="
".$Stunden.":".$Minuten.":".$Sekunden."
"; $zeit = "
" . $Stunden . ":" . $Minuten . "
"; print qq|
  [drucken] | . $login . $datum . qq|  
|; } sub acc_menu { $locale = Locale->new($language, "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; return print_menu($menu); } sub my_length { my ($s) = @_; my $len = 0; my $i; my $skip = 0; for ($i = 0; $i < length($s); $i++) { my $c = substr($s, $i, 1); if ($skip && ($c eq ";")) { $skip = 0; } elsif ($skip) { next; } elsif ($c eq "&") { $skip = 1; $len++; } else { $len++; } } return $len; } sub print_menu { my ($menu, $parent, $depth) = @_; my $html; die if ($depth * 1 > 5); my @menuorder; @menuorder = $menu->access_control(\%myconfig, $parent); $parent .= "--" if ($parent); foreach my $item (@menuorder) { substr($item, 0, length($parent)) = ""; next if (($item eq "") || ($item =~ /--/)); my $menu_item = $menu->{"${parent}${item}"}; my $menu_title = $locale->text($item); my $menu_text = $menu_title; $menu_text =~ s/ /
/ if ($parent && (my_length($menu_text) >= 17)); my $target = "main_window"; $target = $menu_item->{"target"} if ($menu_item->{"target"}); if ($menu_item->{"submenu"} || !defined($menu_item->{"module"}) || ($menu_item->{"module"} eq "menu.pl")) { my $h = print_menu($menu, "${parent}${item}", $depth * 1 + 1); if (!$parent) { $html .= qq||; } else { $html .= qq|
  • ${menu_text}
    • |; } } else { $html .= qq|
  • |; $html .= $menu->menuitem_v3(\%myconfig, $form, "${parent}$item", { "title" => $menu_title, "target" => $target }); $html .= qq|${menu_text}
    • |; } } return $html; }