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->results;
|
||||||
$status = {
|
$status = {
|
||||||
station_eva => $status->station->{eva},
|
station_eva => $status->station->{eva},
|
||||||
station_name =>
|
station_name => (
|
||||||
List::Util::reduce { length($a) < length($b) ? $a : $b }
|
List::Util::reduce { length($a) < length($b) ? $a : $b }
|
||||||
@{ $status->station->{names} },
|
@{ $status->station->{names} }
|
||||||
|
),
|
||||||
related_stations => [],
|
related_stations => [],
|
||||||
};
|
};
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue