From 1d19ab4d4b3b72b6728a944d8830a61836667222 Mon Sep 17 00:00:00 2001 From: christopherm Date: Fri, 1 Sep 2006 14:00:17 +0000 Subject: whitespace cleanup git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@7 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/mozilla/menu.pl | 310 +++++++++++++++++++++++++--------------------------- 1 file changed, 150 insertions(+), 160 deletions(-) (limited to 'bin/mozilla/menu.pl') diff --git a/bin/mozilla/menu.pl b/bin/mozilla/menu.pl index f380dfb1..848cf14b 100755 --- a/bin/mozilla/menu.pl +++ b/bin/mozilla/menu.pl @@ -5,7 +5,7 @@ # See COPYRIGHT file for copyright information #====================================================================== # -# This file has NOT undergone whitespace cleanup. +# This file has undergone whitespace cleanup. # #====================================================================== # @@ -16,239 +16,229 @@ $menufile = "menu.ini"; use LedgerSMB::Menu; - 1; # end of main sub display { - $menuwidth = ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "155"; - $menuwidth = $myconfig{menuwidth} if $myconfig{menuwidth}; + $menuwidth = ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "155"; + $menuwidth = $myconfig{menuwidth} if $myconfig{menuwidth}; - $form->header(!$form->{duplicate}); + $form->header(!$form->{duplicate}); - print qq| + 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; -sub acc_menu { + print q| + + if (el.style.display == "none") { + el.style.display = "block"; //display the block of info + } else { + el.style.display = "none"; + } + } + } - + function ChangeClass(menu, newClass) { + if (document.getElementById) { + document.getElementById(menu).className = newClass; + } + } - -|; + document.onselectstart = new Function("return false"); + - if ($form->{js}) { - &js_menu($menu); - } else { - §ion_menu($menu); - } + + + |; - print qq| - - -|; + if ($form->{js}) { + &js_menu($menu); + } else { + §ion_menu($menu); + } + + print q| + + + |; } sub section_menu { - my ($menu, $level) = @_; - # build tiered menus - my @menuorder = $menu->access_control(\%myconfig, $level); + my ($menu, $level) = @_; - while (@menuorder) { - $item = shift @menuorder; - $label = $item; - $label =~ s/$level--//g; + # build tiered menus + my @menuorder = $menu->access_control(\%myconfig, $level); - my $spacer = " " x (($item =~ s/--/--/g) * 2); + while (@menuorder) { + $item = shift @menuorder; + $label = $item; + $label =~ s/$level--//g; - $label =~ s/.*--//g; - $label = $locale->text($label); - $label =~ s/ / /g if $label !~ /{$item}{target} = "main_window" unless $menu->{$item}{target}; - - if ($menu->{$item}{submenu}) { + $label =~ s/.*--//g; + $label = $locale->text($label); + $label =~ s/ / /g if $label !~ /{$item}{$item} = !$form->{$item}; + $menu->{$item}{target} = "main_window" unless $menu->{$item}{target}; - if ($form->{level} && $item =~ $form->{level}) { + if ($menu->{$item}{submenu}) { - # expand menu - print qq|
\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label|; + $menu->{$item}{$item} = !$form->{$item}; - # remove same level items - map { shift @menuorder } grep /^$item/, @menuorder; - - §ion_menu($menu, $item); + if ($form->{level} && $item =~ $form->{level}) { - print qq|
\n|; + # expand menu + print qq|
\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label|; - } else { + # remove same level items + map { shift @menuorder } grep /^$item/, @menuorder; - print qq|
\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label ...|; + §ion_menu($menu, $item); - # remove same level items - map { shift @menuorder } grep /^$item/, @menuorder; + print qq|
\n|; - } - - } else { - - if ($menu->{$item}{module}) { + } else { - print qq|
\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label|; - - } else { + print qq|
\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label ...|; - $form->{tag}++; - print qq| -

$label|; - - §ion_menu($menu, $item); + # remove same level items + map { shift @menuorder } grep /^$item/, @menuorder; - print qq|
\n|; + } - } - } - } -} + } 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 js_menu { - my ($menu, $level) = @_; - print qq| -
- |; + my ($menu, $level) = @_; - # build tiered menus - my @menuorder = $menu->access_control(\%myconfig, $level); + print qq|
|; - while (@menuorder){ - $i++; - $item = shift @menuorder; - $label = $item; - $label =~ s/.*--//g; - $label = $locale->text($label); + # build tiered menus + my @menuorder = $menu->access_control(\%myconfig, $level); - $menu->{$item}{target} = "main_window" unless $menu->{$item}{target}; + while (@menuorder){ + $i++; + $item = shift @menuorder; + $label = $item; + $label =~ s/.*--//g; + $label = $locale->text($label); - if ($menu->{$item}{submenu}) { - - $display = "display: none;" unless $level eq ' '; + $menu->{$item}{target} = "main_window" unless $menu->{$item}{target}; - print qq| - - - |; + $display = "display: none;" unless $level eq ' '; - } else { + print qq| + + + |; - } else { + } else { - $display = "display: none;" unless $item eq ' '; + if ($menu->{$item}{module}) { - print qq| - - - |; + # remove same level items + map { shift @menuorder } grep /^$item/, @menuorder; - } + &js_menu($menu, $item); - } + } else { - } + print qq|
|. + $menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label
|; + } - print qq| -
- |; + } else { + + $display = "display: none;" unless $item eq ' '; + + print qq| + + |; + + } + + } + + } + + print qq|
|; } sub menubar { - 1; +1; } -- cgit v1.2.3