X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fio.pl;h=7648dc1fd710f06c96a5807a8a3606e18339dc93;hb=7d03f2419db86592947fc2526a21c2bf34aa97d0;hp=d150c2ca073bd68f5bdf8d114e1a8d6a0cbe8629;hpb=974b5d8664caba8cebfccc55b1be53a09916a200;p=kivitendo-erp.git diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl index d150c2ca0..7648dc1fd 100644 --- a/bin/mozilla/io.pl +++ b/bin/mozilla/io.pl @@ -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| @@ -1673,6 +1673,8 @@ sub print_form { $form->{templates} = "$myconfig{templates}"; + delete $form->{printer_command}; + $form->{language} = $form->get_template_language(\%myconfig); $form->{printer_code} = $form->get_printer_code(\%myconfig); @@ -1702,13 +1704,16 @@ sub print_form { reformat_numbers($output_numberformat, 2, qw(invtotal ordtotal quototal subtotal linetotal listprice sellprice netprice discount - tax taxbase), + tax taxbase total paid), grep({ /^linetotal_\d+$/ || /^listprice_\d+$/ || /^sellprice_\d+$/ || /^netprice_\d+$/ || /^taxbase_\d+$/ || /^discount_\d+$/ || + /^paid_\d+$/ || + /^subtotal_\d+$/ || + /^total_\d+$/ || /^tax_\d+$/ } keys(%{$form}))); @@ -1737,6 +1742,8 @@ sub print_form { $form->{"IN"} =~ s/html$/odt/; } + delete $form->{OUT}; + if ($form->{media} eq 'printer') { $form->{OUT} = "| $form->{printer_command} &>/dev/null"; $form->{printed} .= " $form->{formname}"; @@ -1754,7 +1761,7 @@ sub print_form { $emailed = $form->{emailed}; if ($form->{media} eq 'queue') { - %queued = split / /, $form->{queued}; + %queued = map { s|.*/|| } split / /, $form->{queued}; if ($filename = $queued{ $form->{formname} }) { $form->{queued} =~ s/$form->{formname} $filename//;