HAFAS station board: fix station name display
This commit is contained in:
parent
0b5bc869b5
commit
b5723264a7
1 changed files with 4 additions and 3 deletions
|
@ -821,9 +821,10 @@ sub station {
|
|||
} $status->results;
|
||||
$status = {
|
||||
station_eva => $status->station->{eva},
|
||||
station_name =>
|
||||
List::Util::reduce { length($a) < length($b) ? $a : $b }
|
||||
@{ $status->station->{names} },
|
||||
station_name => (
|
||||
List::Util::reduce { length($a) < length($b) ? $a : $b }
|
||||
@{ $status->station->{names} }
|
||||
),
|
||||
related_stations => [],
|
||||
};
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue