Revision 3c148c63
Von Moritz Bunkus vor 9 Monaten hinzugefügt
| SL/MT940.pm | ||
|---|---|---|
|
my ($parts) = @_;
|
||
|
|
||
|
foreach my $value (values %{ $parts }) {
|
||
|
if ($value =~ m{^(?:endtoend:|eref\+) *(.+)}i) {
|
||
|
if ($value =~ m{^(?:end\W?to\W?end:|eref\+) *(.+)}i) {
|
||
|
my $id = $1;
|
||
|
return $id =~ m{notprovided}i ? undef : $id;
|
||
|
}
|
||
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:`