#===================================================================== # SQL-Ledger ERP # Copyright (c) 2006 # # Author: DWS Systems Inc. # Web: http://www.sql-ledger.com # #====================================================================== # # two frame layout with refractured menu # #====================================================================== $menufile = "menu.ini"; use SL::Menu; 1; # end of main sub display { #$form->{callback} = "am.pl?login=$form->{login}&action=$form->{main}&path=$form->{path}&password=$form->{password}&jsmenu=1"; #$form->redirect; #exit; $form->{frames} = 1; #warn $userspath; #exit; if ($form->{js}) { if ($form->{frames}) { &display_frame; } else { my $menu = new Menu "$menufile"; $menu->add_file("custom_$menufile") if -f "custom_$menufile"; $menu->add_file("$form->{login}_$menufile") if -f "$form->{login}_$menufile"; $form->{stagger} = "\t"; # $form->{jsmenu} = qq|var MENU_ITEMS = [\n|; $form->{mlmenu} = qq|
\n|; # &jsmenu(\%$menu); &mlmenu(\%$menu); # $form->{jsmenu} .= qq|];|; $form->{mlmenu} .= qq|\n
\n|; # save file # if (! open(FH, ">$userspath/$form->{login}_menu_items.js")) { # &display_frame; # } #$form->debug; $form->debug("$userspath/mlmenu.html"); #exit; # display entry screen $form->{callback} = "am.pl?login=$form->{login}&action=$form->{main}&path=$form->{path}&password=$form->{password}&jsmenu=1&mlmenu="; $form->{callback} .= $form->escape($form->{mlmenu},1); $form->redirect; } } else { &display_frame; } } sub display_frame { $menuwidth = ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "155"; $menuwidth = $myconfig{menuwidth} if $myconfig{menuwidth}; $form->header; print qq| |; } sub acc_menu { my $menu = new Menu "$menufile"; $menu->add_file("custom_$menufile") if -f "custom_$menufile"; $menu->add_file("$form->{login}_$menufile") if -f "$form->{login}_$menufile"; $form->{title} = $locale->text('Accounting Menu'); $form->header; print qq| |; if ($form->{js}) { &jsmenu_frame($menu); } else { §ion_menu($menu); } print qq| |; } sub section_menu { my ($menu, $level) = @_; # build tiered menus my @menuorder = $menu->access_control(\%myconfig, $level); while (@menuorder) { $item = shift @menuorder; $label = $item; $label =~ s/$level--//g; my $spacer = " " x (($item =~ s/--/--/g) * 2); $label =~ s/.*--//g; $label = $locale->text($label); $label =~ s/ / /g if $label !~ /{$item}{target} = "main_window" unless $menu->{$item}{target}; if ($menu->{$item}{submenu}) { $menu->{$item}{$item} = !$form->{$item}; if ($form->{level} && $item =~ $form->{level}) { # expand menu print qq|
\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label|; # remove same level items map { shift @menuorder } grep /^$item/, @menuorder; §ion_menu($menu, $item); print qq|
\n|; } else { print qq|
\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label ...|; # remove same level items map { shift @menuorder } grep /^$item/, @menuorder; } } else { if ($menu->{$item}{module}) { print qq|
\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label|; } else { $form->{tag}++; print qq|

$label|; §ion_menu($menu, $item); print qq|
\n|; } } } } sub jsmenu_frame { my ($menu, $level) = @_; # build tiered menus my @menuorder = $menu->access_control(\%myconfig, $level); while (@menuorder){ $i++; $item = shift @menuorder; $label = $item; $label =~ s/.*--//g; $label = $locale->text($label); $menu->{$item}{target} = "main_window" unless $menu->{$item}{target}; if ($menu->{$item}{submenu}) { $display = "display: none;" unless $level eq ' '; print qq|

|; } else { if ($menu->{$item}{module}) { if ($level eq "") { print qq||; # remove same level items map { shift @menuorder } grep /^$item/, @menuorder; &jsmenu_frame($menu, $item); } else { print qq|
|. $menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label
|; } } else { $display = "display: none;" unless $item eq ' '; print qq| |; } } } } sub jsmenu { my ($menu, $level) = @_; # build menu_{login}.js for user my @menuorder = $menu->access_control(\%myconfig, $level); while (@menuorder){ $item = shift @menuorder; $label = $item; $label =~ s/.*--//g; $label = $locale->text($label); if ($menu->{$item}{submenu}) { $form->{items} = 1; $form->{jsmenu} .= $form->{stagger}; $form->{jsmenu} .= qq|['$label', null, null,\n|; # remove same level items map { shift @menuorder } grep /^$item/, @menuorder; $form->{stagger} .= "\t"; &jsmenu($menu, $item); chop $form->{stagger}; $form->{jsmenu} .= qq|$form->{stagger}],\n|; } else { if ($menu->{$item}{module}) { $form->{items} = 1; if ($level eq "") { $menu->{$item}{jsmenu} = 1; $str = $menu->menuitem(\%myconfig, \%$form, $item, $level); $str =~ s/^$//; $form->{jsmenu} .= $form->{stagger}; $form->{jsmenu} .= qq|['$label', '$str'],\n|; # remove same level items map { shift @menuorder } grep /^$item/, @menuorder; &jsmenu($menu, $item); $form->{jsmenu} .= qq|$form->{stagger}],\n|; } else { $menu->{$item}{jsmenu} = 1; $str = $menu->menuitem(\%myconfig, \%$form, $item, $level); $str =~ s/^$//; $form->{jsmenu} .= $form->{stagger}; $form->{jsmenu} .= qq|['$label', '$str'],\n|; } } else { $form->{jsmenu} .= $form->{stagger}; $form->{jsmenu} .= qq|['$label', null, null,\n|; $form->{stagger} .= "\t"; &jsmenu($menu, $item); chop $form->{stagger}; if ($form->{items}) { $form->{jsmenu} .= qq|$form->{stagger}],\n|; } else { $form->{jsmenu} =~ s/\t??\['$label', null, null,\s*$//; } $form->{items} = 0; } } } } sub mlmenu { my ($menu, $level) = @_; # build menu_{login}.html for user my @menuorder = $menu->access_control(\%myconfig, $level); while (@menuorder){ $item = shift @menuorder; $label = $item; $label =~ s/.*--//g; $label = $locale->text($label); if ($menu->{$item}{submenu}) { $form->{items} = 1; $form->{stagger} .= "\t"; # remove same level items map { shift @menuorder } grep /^$item/, @menuorder; &mlmenu($menu, $item); $form->{mlmenu} =~ s/<\/li>$/\n$form->{stagger}\n|; } else { if ($menu->{$item}{module}) { $form->{items} = 1; if ($level eq "") { $menu->{$item}{jsmenu} = 1; $str = $menu->menuitem(\%myconfig, \%$form, $item, $level); $form->{mlmenu} .= $form->{stagger}; $form->{mlmenu} .= qq|
  • $str$label\n$form->{stagger}\n|; } else { $menu->{$item}{jsmenu} = 1; $str = $menu->menuitem(\%myconfig, \%$form, $item, $level); $form->{mlmenu} .= $form->{stagger}; $form->{mlmenu} .= qq|
  • $str$label
    • \n|; } } else { $form->{mlmenu} .= $form->{stagger}; $form->{mlmenu} .= qq|\n|; } else { $form->{mlmenu} .= qq|\n|; } $form->{items} = 0; } } } } sub menubar { 1; }