Revision 535d28fe
Von Jan Büren vor mehr als 1 Jahr hinzugefügt
| SL/DB/BankTransaction.pm | ||
|---|---|---|
| 157 | 157 |
# invnumber has to have at least 3 characters |
| 158 | 158 |
my $squashed_purpose = $self->purpose; |
| 159 | 159 |
$squashed_purpose =~ s/ //g; |
| 160 |
if (length($invnumber) > 4 && $squashed_purpose =~ /$invnumber/ && $invoice->is_sales){
|
|
| 160 |
if (length($invnumber) > 4 && $squashed_purpose =~ /\Q$invnumber/ && $invoice->is_sales){
|
|
| 161 | 161 |
$agreement += $points{own_invoice_in_purpose};
|
| 162 | 162 |
$rule_matches .= 'own_invoice_in_purpose(' . $points{'own_invoice_in_purpose'} . ') ';
|
| 163 |
} elsif (length($invnumber) > 3 && $squashed_purpose =~ /$invnumber/ ) {
|
|
| 163 |
} elsif (length($invnumber) > 3 && $squashed_purpose =~ /\Q$invnumber/ ) {
|
|
| 164 | 164 |
$agreement += $points{invoice_in_purpose};
|
| 165 | 165 |
$rule_matches .= 'invoice_in_purpose(' . $points{'invoice_in_purpose'} . ') ';
|
| 166 | 166 |
} else {
|
Auch abrufbar als: Unified diff
Quotemeta für Regex für Rechnungsnummern in Verwendungszweck