diff --git a/bin/efa b/bin/efa index f6017689619adbdf60191319a561dc0541f93bd5..ae562ab166c81f157ff722a147f6b46361a6951d 100755 --- a/bin/efa +++ b/bin/efa @@ -67,6 +67,10 @@ sub parse_content($) { for (my $i = 0; @{$raw->[$offer]} >= (($i+1) * $groupsize); $i++) { $offset = $i * $groupsize; undef(@extra); + if ($raw->[$offer]->[$offset+3] =~ /^Fußweg/) { + # Fußweg messages lack the last element, so inject it + splice(@{$raw->[$offer]}, $offset+7, 0, ''); + } for my $j (0, 4, 8) { until (not exists($raw->[$offer]->[$offset+$j]) or $raw->[$offer]->[$offset+$j] =~ /^\d+:\d+$/) { last unless (exists($raw->[$offer]->[$offset+$j]));