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 8884547..3f8e77c 100755 --- a/bin/db-wagenreihung +++ b/bin/db-wagenreihung @@ -74,7 +74,12 @@ printf( "%s: %s → %s (%s)\n%s Gleis %s\n\n", join( ' / ', map { $wr->train_type . ' ' . $_ } $wr->train_numbers ), join( ' / ', $wr->origins ), - join( ' / ', $wr->destinations ), + join( + ' / ', + map { + sprintf( '%s (%s)', $_->{name}, join( q{}, @{ $_->{sections} } ) ) + } $wr->destinations + ), $wr->train_subtype // 'IC?', $wr->station_name, $wr->platform |