X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fpe.pl;h=532dcfac5baf69ceae50091a3e9862ce86f45b71;hb=5fd2cf413e611047a3b8d667378a258a7955941e;hp=8c6132ecb61adb2acd38cedd606cc9ad42d7500d;hpb=0884406403ce36af3484924086527ba689807329;p=kivitendo-erp.git diff --git a/bin/mozilla/pe.pl b/bin/mozilla/pe.pl index 8c6132ecb..532dcfac5 100644 --- a/bin/mozilla/pe.pl +++ b/bin/mozilla/pe.pl @@ -35,14 +35,18 @@ use SL::PE; require "bin/mozilla/common.pl"; +use strict; + 1; # end of main sub add { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + $main::auth->assert('config'); - $auth->assert('config'); + my $form = $main::form; $form->{title} = "Add"; @@ -54,13 +58,16 @@ sub add { call_sub("form_$form->{type}_header"); call_sub("form_$form->{type}_footer"); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub edit { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + $main::auth->assert('config'); - $auth->assert('config'); + my $form = $main::form; + my %myconfig = %main::myconfig; # show history button $form->{javascript} = qq||; @@ -76,24 +83,28 @@ sub edit { call_sub("form_$form->{type}_header"); call_sub("form_$form->{type}_footer"); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub search { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); - $auth->assert('config'); + $main::auth->assert('config'); + my $form = $main::form; + my $locale = $main::locale; + + my ($report, $sort, $number); if ($form->{type} eq 'partsgroup') { $report = "partsgroup_report"; $sort = 'partsgroup'; $form->{title} = $locale->text('Groups'); $number = qq| -
- | | - . $locale->text('All') . qq| - | - . $locale->text('Orphaned') . qq| | -
+ | | . $locale->text('All') . qq| + | . $locale->text('Orphaned') . qq| | +