destinations: Show sections for each destination

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