Revision 90c4cd57
Von Moritz Bunkus vor 7 Monaten hinzugefügt
| SL/MT940.pm | ||
|---|---|---|
| 27 | 27 |
my ($parts) = @_; |
| 28 | 28 |
|
| 29 | 29 |
foreach my $value (values %{ $parts }) {
|
| 30 |
if ($value =~ m{^(?:endtoend:|eref\+) *(.+)}i) {
|
|
| 30 |
if ($value =~ m{^(?:end\W?to\W?end:|eref\+) *(.+)}i) {
|
|
| 31 | 31 |
my $id = $1; |
| 32 | 32 |
return $id =~ m{notprovided}i ? undef : $id;
|
| 33 | 33 |
} |
Auch abrufbar als: Unified diff
MT940: Nicht-Wort-Zeichen in Erkennung der Ende-zu-Ende-ID zulassen
Erkennt auch z.B. `End-To-End:` zusätzlich zum bisher bereits
erkannten `EndToEnd:`