X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fio.pl;h=8b0b7fc6930443e873675c843df0066d7d39c2da;hb=c046c42244acda83029d00cb06ff636063765fb2;hp=25be6fe9ae17fa4d997c5d79ca53c10774b54b13;hpb=78650e309d0101ce7ec8ba60315ed5cc5fa42339;p=kivitendo-erp.git diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl index 25be6fe9a..8b0b7fc69 100644 --- a/bin/mozilla/io.pl +++ b/bin/mozilla/io.pl @@ -152,10 +152,17 @@ sub display_row { qq|
|; + qq| | |; } else { $column_data{description} = - qq| | |; + qq| | |; } (my $qty_dec) = ($form->{"qty_$i"} =~ /\.(\d+)/); @@ -422,7 +431,7 @@ sub display_row { {"pricegroup_old_$i"}> {"price_old_$i"}> - + format_amount(\%myconfig, $form->{"price_new_$i"}) . qq|> @@ -430,7 +439,7 @@ sub display_row { {"inventory_accno_$i"}> - + {"income_accno_$i"}> {"expense_accno_$i"}> @@ -439,7 +448,7 @@ sub display_row { - + |; @@ -479,7 +488,7 @@ sub display_row { print qq| $projectnumber - + |; if ($form->{type} eq 'invoice' or $form->{type} =~ /order/) { @@ -658,9 +667,10 @@ sub select_item { - + + {id}> @@ -723,7 +733,9 @@ sub item_selected { $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"}); map { $form->{"${_}_$i"} = $form->{"new_${_}_$j"} } - qw(id partnumber description sellprice listprice inventory_accno income_accno expense_accno bin unit weight assembly taxaccounts partsgroup formel longdescription not_discountable); + qw(id partnumber description sellprice listprice inventory_accno + income_accno expense_accno bin unit weight assembly taxaccounts + partsgroup formel longdescription not_discountable partnotes); if ($form->{"part_payment_id_$i"} ne "") { $form->{payment_id} = $form->{"part_payment_id_$i"}; } @@ -877,6 +889,8 @@ sub display_form { exit; } + Common::webdav_folder($form) if ($webdav); + # if ( $form->{print_and_post} # && $form->{second_run} # && ($form->{action} eq "display_form")) { @@ -1168,6 +1182,10 @@ sub order { $form->{cp_id} *= 1; require "$form->{path}/$form->{script}"; + my $script = $form->{"script"}; + $script =~ s|.*/||; + $script =~ s|.pl$||; + $locale = new Locale($language, $script); map { $form->{"select$_"} = "" } ($form->{vc}, currency); @@ -1271,8 +1289,10 @@ sub e_mail { } if ($myconfig{role} eq 'admin') { $bcc = qq| - | | . $locale->text('Bcc') . qq| | -+ |
---|---|---|---|---|---|
| . $locale->text('Bcc') . qq| | ++ |