Revision e8f0a3a7
Von Jan Büren vor etwa 1 Jahr hinzugefügt
| SL/DB/BankTransaction.pm | ||
|---|---|---|
| 166 | 166 |
} else {
|
| 167 | 167 |
# only check number part of invoice number |
| 168 | 168 |
$invnumber =~ s/[A-Za-z_]+//g; |
| 169 |
if (length($invnumber) > 4 && $squashed_purpose =~ /$invnumber/ && $invoice->is_sales){
|
|
| 169 |
if (length($invnumber) > 4 && $squashed_purpose =~ /\Q$invnumber/ && $invoice->is_sales){
|
|
| 170 | 170 |
$agreement += $points{own_invnumber_in_purpose};
|
| 171 | 171 |
$rule_matches .= 'own_invnumber_in_purpose(' . $points{'own_invnumber_in_purpose'} . ') ';
|
| 172 |
} elsif (length($invnumber) > 3 && $squashed_purpose =~ /$invnumber/ ) {
|
|
| 172 |
} elsif (length($invnumber) > 3 && $squashed_purpose =~ /\Q$invnumber/ ) {
|
|
| 173 | 173 |
$agreement += $points{invnumber_in_purpose};
|
| 174 | 174 |
$rule_matches .= 'invnumber_in_purpose(' . $points{'invnumber_in_purpose'} . ') ';
|
| 175 | 175 |
} |
Auch abrufbar als: Unified diff
Kontoauszug verbuchen: regex quotemeta fixen