Revision 5cf977e5
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 532 | 532 |
|
| 533 | 533 |
# add shipto |
| 534 | 534 |
$form->{name} = $form->{vendor};
|
| 535 |
$form->{name} =~ s/--$form->{vendor_id}//;
|
|
| 535 |
$form->{name} =~ s/--\Q$form->{vendor_id}\E//;
|
|
| 536 | 536 |
$form->add_shipto($dbh, $form->{id}, "AP");
|
| 537 | 537 |
|
| 538 | 538 |
# delete zero entries |
| ... | ... | |
| 786 | 786 |
|
| 787 | 787 |
$ref->{taxaccounts} .= "$ptr->{accno} ";
|
| 788 | 788 |
|
| 789 |
if (!($form->{taxaccounts} =~ /$ptr->{accno}/)) {
|
|
| 789 |
if (!($form->{taxaccounts} =~ /\Q$ptr->{accno}\E/)) {
|
|
| 790 | 790 |
$form->{"$ptr->{accno}_rate"} = $ptr->{rate};
|
| 791 | 791 |
$form->{"$ptr->{accno}_description"} = $ptr->{taxdescription};
|
| 792 | 792 |
$form->{"$ptr->{accno}_taxnumber"} = $ptr->{taxnumber};
|
| ... | ... | |
| 1033 | 1033 |
|
| 1034 | 1034 |
$ref->{taxaccounts} .= "$ptr->{accno} ";
|
| 1035 | 1035 |
|
| 1036 |
if (!($form->{taxaccounts} =~ /$ptr->{accno}/)) {
|
|
| 1036 |
if (!($form->{taxaccounts} =~ /\Q$ptr->{accno}\E/)) {
|
|
| 1037 | 1037 |
$form->{"$ptr->{accno}_rate"} = $ptr->{rate};
|
| 1038 | 1038 |
$form->{"$ptr->{accno}_description"} = $ptr->{taxdescription};
|
| 1039 | 1039 |
$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.