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