summaryrefslogtreecommitdiff
path: root/bin/efa-m
diff options
context:
space:
mode:
authorBirte Kristina Friesel <derf@finalrewind.org>2023-11-24 20:17:53 +0100
committerBirte Kristina Friesel <derf@finalrewind.org>2023-11-24 20:17:53 +0100
commit3ddbe470e8ea6f3a32fc9703ea1fdebd0f5a17cb (patch)
tree85193736052915b61b0ee760d27ae9b3d775ade1 /bin/efa-m
parent2dbe21db0ea19499ae6518491627110feb433428 (diff)
efa-m: Avoid over-long long-distance train lines (cut off "InterCity" etc.)
Diffstat (limited to 'bin/efa-m')
-rwxr-xr-xbin/efa-m7
1 files changed, 6 insertions, 1 deletions
diff --git a/bin/efa-m b/bin/efa-m
index d78969b..5cac08a 100755
--- a/bin/efa-m
+++ b/bin/efa-m
@@ -307,8 +307,13 @@ sub show_results {
$dtime .= ' ' . format_delay( $d->delay, $delay_len );
}
+ my $line = $d->line;
+ if ( length($line) > 10 and $d->train_type and $d->train_no ) {
+ $line = $d->train_type . ' ' . $d->train_no;
+ }
+
@output_line
- = ( $dtime, $platform, $d->line, q{}, $d->destination, $d->info );
+ = ( $dtime, $platform, $line, q{}, $d->destination, $d->info );
if ( $edata{route} ) {
$output_line[3]