diff options
Diffstat (limited to 'bin/db-wagenreihung')
| -rwxr-xr-x | bin/db-wagenreihung | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/bin/db-wagenreihung b/bin/db-wagenreihung index 87b5223..291cc9f 100755 --- a/bin/db-wagenreihung +++ b/bin/db-wagenreihung @@ -73,7 +73,12 @@ my $wr = Travel::Status::DE::DBWagenreihung->new( printf( "%s: %s → %s\n", join( ' / ', map { $wr->train_type . ' ' . $_ } $wr->train_numbers ), - join( ' / ', $wr->origins ), + join( + ' / ', + map { + sprintf( '%s (%s)', $_->{name}, join( q{}, @{ $_->{sections} } ) ) + } $wr->origins + ), join( ' / ', map { |