From 590b27f2ca5573828f362b034a8182b79114391e Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 23 Jun 2019 18:46:25 +0200 Subject: [PATCH] also show exit direction for regional trains at select stations --- lib/Travelynx.pm | 14 ++++++++++++++ templates/changelog.html.ep | 12 ++++++++++++ 2 files changed, 26 insertions(+) diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm index d6a4899..afeb880 100755 --- a/lib/Travelynx.pm +++ b/lib/Travelynx.pm @@ -2259,9 +2259,15 @@ sub startup { my @route = @{ $in_transit->{route} // [] }; my @route_after; + my $stop_before_dest; my $is_after = 0; for my $station (@route) { + if ( $in_transit->{arr_name} + and $station->[0] eq $in_transit->{arr_name} ) + { + $stop_before_dest = $route_after[-1][0]; + } if ($is_after) { push( @route_after, $station ); } @@ -2376,6 +2382,14 @@ sub startup { if ( $platform_info->{kopfgleis} ) { $ret->{arr_direction} = $platform_info->{direction}; } + elsif ( $stop_before_dest + and exists $platform_info->{direction_from} + {$stop_before_dest} ) + { + $ret->{arr_direction} + = $platform_info->{direction_from} + {$stop_before_dest}; + } elsif ( $in_transit->{data}{wagonorder_arr} ) { my $wr; eval { diff --git a/templates/changelog.html.ep b/templates/changelog.html.ep index d7c8bb4..ed0bff8 100644 --- a/templates/changelog.html.ep +++ b/templates/changelog.html.ep @@ -1,5 +1,17 @@

Changelog

+
+
+ 1.8 +
+
+

+ add Angabe der Ausstiegsseite für + einzelne Züge und Zielbahnhöfe. +

+
+
+
1.7