X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fpe.pl;h=532dcfac5baf69ceae50091a3e9862ce86f45b71;hb=1e0d413084100ccd892e8c5be95703be5d965de7;hp=83273491367dc32b5499669ea31bd0d64deca3d2;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git diff --git a/bin/mozilla/pe.pl b/bin/mozilla/pe.pl index 832734913..532dcfac5 100644 --- a/bin/mozilla/pe.pl +++ b/bin/mozilla/pe.pl @@ -27,83 +27,99 @@ # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. #====================================================================== # -# project administration -# partsgroup administration +# partsgroup, pricegroup administration # #====================================================================== - use SL::PE; +require "bin/mozilla/common.pl"; + +use strict; + 1; + # end of main +sub add { + $main::lxdebug->enter_sub(); + $main::auth->assert('config'); -sub add { - $lxdebug->enter_sub(); + my $form = $main::form; $form->{title} = "Add"; # construct callback - $form->{callback} = "$form->{script}?action=add&type=$form->{type}&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback}; + $form->{callback} = + "$form->{script}?action=add&type=$form->{type}" + unless $form->{callback}; - &{ "form_$form->{type}_header" }; - &{ "form_$form->{type}_footer" }; - - $lxdebug->leave_sub(); -} + call_sub("form_$form->{type}_header"); + call_sub("form_$form->{type}_footer"); + $main::lxdebug->leave_sub(); +} sub edit { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + $main::auth->assert('config'); + + my $form = $main::form; + my %myconfig = %main::myconfig; + # show history button + $form->{javascript} = qq||; + #/show hhistory button $form->{title} = "Edit"; - if ($form->{type} eq 'project') { - PE->get_project(\%myconfig, \%$form); - } if ($form->{type} eq 'partsgroup') { PE->get_partsgroup(\%myconfig, \%$form); } + if ($form->{type} eq 'pricegroup') { + PE->get_pricegroup(\%myconfig, \%$form); + } + call_sub("form_$form->{type}_header"); + call_sub("form_$form->{type}_footer"); - &{ "form_$form->{type}_header" }; - &{ "form_$form->{type}_footer" }; - - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } - sub search { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); - if ($form->{type} eq 'project') { - $report = "project_report"; - $sort = 'projectnumber'; - $form->{title} = $locale->text('Projects'); + $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| | +