X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fio.pl;h=7648dc1fd710f06c96a5807a8a3606e18339dc93;hb=7d03f2419db86592947fc2526a21c2bf34aa97d0;hp=d85c367c2dcdaf6ec256744ed1108b20d83c17fb;hpb=a0f6a00c1db8152633841777a95f5420b56b42ee;p=kivitendo-erp.git diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl index d85c367c2..7648dc1fd 100644 --- a/bin/mozilla/io.pl +++ b/bin/mozilla/io.pl @@ -38,14 +38,14 @@ use SL::IC; use CGI::Ajax; use CGI; -require "$form->{path}/common.pl"; +require "bin/mozilla/common.pl"; # any custom scripts for this one -if (-f "$form->{path}/custom_io.pl") { - eval { require "$form->{path}/custom_io.pl"; }; +if (-f "bin/mozilla/custom_io.pl") { + eval { require "bin/mozilla/custom_io.pl"; }; } -if (-f "$form->{path}/$form->{login}_io.pl") { - eval { require "$form->{path}/$form->{login}_io.pl"; }; +if (-f "bin/mozilla/$form->{login}_io.pl") { + eval { require "bin/mozilla/$form->{login}_io.pl"; }; } 1; @@ -646,12 +646,12 @@ sub select_item { my @new_fields = qw(bin listprice inventory_accno income_accno expense_accno unit weight - assembly taxaccounts partsgroup formel logdescription not_discountable - part_payment_id partnodes id); + assembly taxaccounts partsgroup formel longdescription not_discountable + part_payment_id partnotes id); push(@new_fields, "lizenzen") if ($lizenzen); - map({ print($cgi->hidden("-name" => "new_${_}_$i", - "-value" => $ref->{$_})); } @new_fields); + print join "\n", map { $cgi->hidden("-name" => "new_${_}_$i", "-value" => $ref->{$_}) } @new_fields; + print "\n"; } print qq| @@ -822,7 +822,7 @@ sub new_item { . $locale->text('Service'); print $cgi->hidden("-name" => "previousform", "-value" => $previousform); map({ print($cgi->hidden("-name" => $_, "-value" => $form->{$_})); } - ("rowcount", "vc", "path", "login", "password")); + qw(rowcount vc login password)); map({ print($cgi->hidden("-name" => $_, "-value" => $form->{"$__$i"})); } ("partnumber", "description")); print $cgi->hidden("-name" => "taxaccount2", "-value" => $form->{taxaccounts}); @@ -1150,7 +1150,7 @@ sub order { $form->{cp_id} *= 1; - require "$form->{path}/$form->{script}"; + require "bin/mozilla/$form->{script}"; my $script = $form->{"script"}; $script =~ s|.*/||; $script =~ s|.pl$||; @@ -1214,7 +1214,7 @@ sub quotation { $form->{rowcount}--; - require "$form->{path}/$form->{script}"; + require "bin/mozilla/$form->{script}"; map { $form->{"select$_"} = "" } ($form->{vc}, currency); @@ -1256,166 +1256,36 @@ sub edit_e_mail { $form->{print_and_post} = 0; $form->{resubmit} = 0; } - if ($myconfig{role} eq 'admin') { - $bcc = qq| -