diff options
Diffstat (limited to 'lib/Travel/Status/DE')
| -rw-r--r-- | lib/Travel/Status/DE/HAFAS.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm index 2c2b6b5..c313a44 100644 --- a/lib/Travel/Status/DE/HAFAS.pm +++ b/lib/Travel/Status/DE/HAFAS.pm @@ -612,6 +612,11 @@ sub parse_mgate { my $train_type = $product->{prodCtx}{catOutS}; my $line_no = $product->{prodCtx}{line}; + my $operator = $opL[ $product->{oprX} ]; + if ($operator) { + $operator = $operator->{name}; + } + push( @{ $self->{results} }, Travel::Status::DE::HAFAS::Result->new( @@ -622,6 +627,7 @@ sub parse_mgate { delay => $delay, is_cancelled => $is_cancelled, train => $train, + operator => $operator, route_end => $destination, platform => $platform, new_platform => $new_platform, |