Revision 5cf977e5
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 780 | 780 |
|
| 781 | 781 |
foreach my $trans_id (keys %{ $form->{amount} }) {
|
| 782 | 782 |
foreach my $accno (keys %{ $form->{amount}{$trans_id} }) {
|
| 783 |
next unless ($form->{expense_inventory} =~ /$accno/);
|
|
| 783 |
next unless ($form->{expense_inventory} =~ /\Q$accno\E/);
|
|
| 784 | 784 |
|
| 785 | 785 |
$form->{amount}{$trans_id}{$accno} = $form->round_amount($form->{amount}{$trans_id}{$accno}, 2);
|
| 786 | 786 |
|
| ... | ... | |
| 979 | 979 |
|
| 980 | 980 |
# add shipto |
| 981 | 981 |
$form->{name} = $form->{customer};
|
| 982 |
$form->{name} =~ s/--$form->{customer_id}//;
|
|
| 982 |
$form->{name} =~ s/--\Q$form->{customer_id}\E//;
|
|
| 983 | 983 |
|
| 984 | 984 |
if (!$form->{shipto_id}) {
|
| 985 | 985 |
$form->add_shipto($dbh, $form->{id}, "AR");
|
| ... | ... | |
| 1458 | 1458 |
} |
| 1459 | 1459 |
$ref->{taxaccounts} .= "$ptr->{accno} ";
|
| 1460 | 1460 |
|
| 1461 |
if (!($form->{taxaccounts} =~ /$ptr->{accno}/)) {
|
|
| 1461 |
if (!($form->{taxaccounts} =~ /\Q$ptr->{accno}\E/)) {
|
|
| 1462 | 1462 |
$form->{"$ptr->{accno}_rate"} = $ptr->{rate};
|
| 1463 | 1463 |
$form->{"$ptr->{accno}_description"} = $ptr->{taxdescription};
|
| 1464 | 1464 |
$form->{"$ptr->{accno}_taxnumber"} = $ptr->{taxnumber};
|
| ... | ... | |
| 1801 | 1801 |
} |
| 1802 | 1802 |
$ref->{taxaccounts} .= "$ptr->{accno} ";
|
| 1803 | 1803 |
|
| 1804 |
if (!($form->{taxaccounts} =~ /$ptr->{accno}/)) {
|
|
| 1804 |
if (!($form->{taxaccounts} =~ /\Q$ptr->{accno}\E/)) {
|
|
| 1805 | 1805 |
$form->{"$ptr->{accno}_rate"} = $ptr->{rate};
|
| 1806 | 1806 |
$form->{"$ptr->{accno}_description"} = $ptr->{taxdescription};
|
| 1807 | 1807 |
$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.