From 80139a3a3166ee8cd8bfbed4f67e1bdca03cfa81 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sat, 27 Apr 2024 10:49:48 +0200
Subject: Make origins return a list of hashrefs, just like destinations

---
 bin/db-wagenreihung | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'bin/db-wagenreihung')

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 {
-- 
cgit v1.2.3