Revision 775505da
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| bin/mozilla/ap.pl | ||
|---|---|---|
| 239 | 239 |
} |
| 240 | 240 |
$form->{"${key}_$k"} =
|
| 241 | 241 |
"$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
|
| 242 |
my $q_description = quotemeta($form->{acc_trans}{$key}->[$i-1]->{description});
|
|
| 242 | 243 |
$form->{"select${key}"} =~
|
| 243 |
/<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/;
|
|
| 244 |
$test = $1; |
|
| 244 |
/<option value=\"($form->{acc_trans}{$key}->[$i-1]->{accno}--[^\"]*)\">$form->{acc_trans}{$key}->[$i-1]->{accno}--${q_description}<\/option>\n/;
|
|
| 245 | 245 |
$form->{"${key}_$k"} = $1;
|
| 246 | 246 |
if ($akey eq 'amount') {
|
| 247 | 247 |
$form->{"taxchart_$k"} = $form->{taxchart};
|
Auch abrufbar als: Unified diff
Die Kontenbeschreibung kann auch RegExp-Zeichen enthalten -- also muss sie gequotet werden.