Revision 5cf977e5
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
| 577 | 577 |
$form->{taxaccount} = "";
|
| 578 | 578 |
while ($ptr = $stw->fetchrow_hashref(NAME_lc)) {
|
| 579 | 579 |
$form->{taxaccount} .= "$ptr->{accno} ";
|
| 580 |
if (!($form->{taxaccount2} =~ /$ptr->{accno}/)) {
|
|
| 580 |
if (!($form->{taxaccount2} =~ /\Q$ptr->{accno}\E/)) {
|
|
| 581 | 581 |
$form->{"$ptr->{accno}_rate"} = $ptr->{rate};
|
| 582 | 582 |
$form->{"$ptr->{accno}_description"} = $ptr->{description};
|
| 583 | 583 |
$form->{"$ptr->{accno}_taxnumber"} = $ptr->{taxnumber};
|
| ... | ... | |
| 1562 | 1562 |
my $sth = prepare_execute_query($form, $dbh, $query, @values); |
| 1563 | 1563 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
| 1564 | 1564 |
foreach my $key (split(/:/, $ref->{link})) {
|
| 1565 |
if ($key =~ /$module/) {
|
|
| 1565 |
if ($key =~ /\Q$module\E/) {
|
|
| 1566 | 1566 |
if ( ($ref->{id} eq $ref->{inventory_accno_id})
|
| 1567 | 1567 |
|| ($ref->{id} eq $ref->{income_accno_id})
|
| 1568 | 1568 |
|| ($ref->{id} eq $ref->{expense_accno_id})) {
|
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.