X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a6c9465ac8cd4b35644f14ffec8bdb65a6093056..03ea97647e3fbdea4323f4f2136bdfa87cb15c1b:/bin/mozilla/io.pl?ds=inline

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index aa5c24878..5385b17ce 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -239,9 +239,6 @@ sub display_row {
     $linetotal      = $form->round_amount(($form->{"sellprice_$i"} - $discount) / $price_factor, $decimalplaces);
     $linetotal      = $form->round_amount($linetotal * $form->{"qty_$i"}, 2);
 
-    # convert " to "
-    map { $form->{"${_}_$i"} =~ s/\"/"/g } qw(partnumber description unit unit_old);
-
     $column_data{runningnumber} = $cgi->textfield(-name => "runningnumber_$i", -size => 5,  -value => $i);    # HuT
     $column_data{partnumber}    = $cgi->textfield(-name => "partnumber_$i",    -size => 12, -value => $form->{"partnumber_$i"});
     $column_data{description} = ((($rows = $form->numtextrows($form->{"description_$i"}, 30, 6)) > 1) # if description is too large, use a textbox instead
@@ -631,7 +628,7 @@ sub new_item {
   $form->{callback}     = $form->escape("$form->{script}?action=display_form", 1);
 
   # save all form variables except action in a previousform variable
-  my $previousform = join '&', map { $form->{$_} =~ s/&/%26/; "$_=$form->{$_}" } grep { !/action/ } keys %$form;
+  my $previousform = join '&', map { my $value = $form->{$_}; $value =~ s/&/%26/; "$_=$value" } grep { !/action/ } keys %$form;
 
   push @HIDDENS,      { 'name' => 'previousform', 'value' => $form->escape($previousform, 1) };
   push @HIDDENS, map +{ 'name' => $_,             'value' => $form->{$_} },                       qw(rowcount vc);