From 5268be1cc6918a1793dab36140ac63d84b8ba05a Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sun, 3 Mar 2024 16:11:48 +0100
Subject: train details: show train type(s) in wagon order link if known

---
 lib/DBInfoscreen/Controller/Stationboard.pm | 12 +++++++++++-
 lib/DBInfoscreen/Controller/Wagenreihung.pm |  2 --
 2 files changed, 11 insertions(+), 3 deletions(-)

(limited to 'lib')

diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index c4b3d08..7271d63 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -16,6 +16,7 @@ use List::MoreUtils qw();
 use Mojo::JSON      qw(decode_json encode_json);
 use Mojo::Promise;
 use Mojo::UserAgent;
+use Travel::Status::DE::DBWagenreihung;
 use Travel::Status::DE::HAFAS;
 use Travel::Status::DE::IRIS;
 use Travel::Status::DE::IRIS::Stations;
@@ -714,7 +715,16 @@ sub render_train {
 		$self->wagonorder->get_p( $result->train_no, $departure->{wr_link} )
 		  ->then(
 			sub {
-				# great!
+				my ($wr_json) = @_;
+				eval {
+					my $wr
+					  = Travel::Status::DE::DBWagenreihung->new(
+						from_json => $wr_json );
+					$departure->{wr_text} = join( q{ + },
+						map { $_->{short} }
+						grep { $_->{short} } $wr->train_descriptions );
+				};
+				$departure->{wr_text} ||= 'Wagen';
 				return;
 			},
 			sub {
diff --git a/lib/DBInfoscreen/Controller/Wagenreihung.pm b/lib/DBInfoscreen/Controller/Wagenreihung.pm
index c821e11..5e5f653 100644
--- a/lib/DBInfoscreen/Controller/Wagenreihung.pm
+++ b/lib/DBInfoscreen/Controller/Wagenreihung.pm
@@ -16,8 +16,6 @@ use Travel::Status::DE::DBWagenreihung::Wagon;
 sub get_zugbildung_db {
 	my ( $self, $train_no ) = @_;
 
-	say $train_no;
-
 	my $details = $self->app->train_details_db->{$train_no};
 
 	if ( not $details ) {
-- 
cgit v1.2.3