Revision 775505da
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| bin/mozilla/ap.pl | ||
|---|---|---|
|
}
|
||
|
$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};
|
||
Auch abrufbar als: Unified diff
Die Kontenbeschreibung kann auch RegExp-Zeichen enthalten -- also muss sie gequotet werden.