Revision 5cf977e5
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
SL/OE.pm | ||
---|---|---|
444 | 444 |
|
445 | 445 |
# add shipto |
446 | 446 |
$form->{name} = $form->{ $form->{vc} }; |
447 |
$form->{name} =~ s/--$form->{"$form->{vc}_id"}//;
|
|
447 |
$form->{name} =~ s/--\Q$form->{"$form->{vc}_id"}\E//;
|
|
448 | 448 |
|
449 | 449 |
if (!$form->{shipto_id}) { |
450 | 450 |
$form->add_shipto($dbh, $form->{id}, "OE"); |
... | ... | |
824 | 824 |
$ptr->{accno} = $i; |
825 | 825 |
} |
826 | 826 |
$ref->{taxaccounts} .= "$ptr->{accno} "; |
827 |
if (!($form->{taxaccounts} =~ /$ptr->{accno}/)) {
|
|
827 |
if (!($form->{taxaccounts} =~ /\Q$ptr->{accno}\E/)) {
|
|
828 | 828 |
$form->{"$ptr->{accno}_rate"} = $ptr->{rate}; |
829 | 829 |
$form->{"$ptr->{accno}_description"} = $ptr->{taxdescription}; |
830 | 830 |
$form->{"$ptr->{accno}_taxnumber"} = $ptr->{taxnumber}; |
Auch abrufbar als: Unified diff
Quoten von allen in regulären Ausdrücken verwendeten Variablen, die direkt oder indirekt von Benutzereingaben stammen können. Fix für Bug 302.