Die Kontenbeschreibung kann auch RegExp-Zeichen enthalten -- also muss sie gequotet...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Mon, 8 Jan 2007 10:44:57 +0000 (10:44 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Mon, 8 Jan 2007 10:44:57 +0000 (10:44 +0000)
bin/mozilla/ap.pl

index 6811699..b8d6777 100644 (file)
@@ -239,9 +239,9 @@ sub create_links {
           }
           $form->{"${key}_$k"} =
             "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
+          my $q_description = quotemeta($form->{acc_trans}{$key}->[$i-1]->{description});
           $form->{"select${key}"} =~
-            /<option value=\"($form->{acc_trans}{$key}->[$i-1]->{accno}--[^\"]*)\">$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}<\/option>\n/;
-          $test = $1;
+            /<option value=\"($form->{acc_trans}{$key}->[$i-1]->{accno}--[^\"]*)\">$form->{acc_trans}{$key}->[$i-1]->{accno}--${q_description}<\/option>\n/;
           $form->{"${key}_$k"} = $1;
           if ($akey eq 'amount') {
             $form->{"taxchart_$k"} = $form->{taxchart};