hafas backend: show shortest station name in title4.15.6

1 files changed, 6 insertions, 0 deletions

diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index aa301fb..e708305 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -472,6 +472,12 @@ sub handle_request {
 				  ( $status->station ? $status->station->{name} : $station ),
 			};
 
+			if ( $status->station and $status->station->{names} ) {
+				$data->{station_name}
+				  = List::Util::reduce { length($a) < length($b) ? $a : $b }
+				@{ $status->station->{names} };
+			}
+
 			if ( not @{ $data->{results} } and $template eq 'json' ) {
 				$self->handle_no_results_json( $station, $data, $api_version );
 				return;