X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f037ceed1ec9f885ef3078bac0705a915c88aeda..54e4131e091831e00a861fe2c4f53e344b87ddca:/bin/mozilla/ap.pl diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl index b9fcc6fec..137120d59 100644 --- a/bin/mozilla/ap.pl +++ b/bin/mozilla/ap.pl @@ -538,17 +538,18 @@ $jsscript $form->format_amount(\%myconfig, $form->{"amount_$i"}, 2); $form->{"tax_$i"} = $form->format_amount(\%myconfig, $form->{"tax_$i"}, 2); $selectAP_amount = $selectAP_amount_unquoted; + $re_amount = quotemeta($form->{"AP_amount_$i"}); $selectAP_amount =~ - s/option value=\"$form->{"AP_amount_$i"}\"/option value=\"$form->{"AP_amount_$i"}\" selected/; + s/option value=\"${re_amount}\"/option value=\"$form->{"AP_amount_$i"}\" selected/; $tax = $taxchart; $tax_selected = $form->{"taxchart_$i"}; $tax =~ s/value=\"$tax_selected\"/value=\"$tax_selected\" selected/; $tax = - qq||; + qq||; print qq| - + {"amount_$i"}> {"tax_$i"}>