also show exit direction for regional trains at select stations

2 files changed, 26 insertions, 0 deletions

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
@@ -2,6 +2,18 @@
 
 <div class="row">
 	<div class="col s12 m1 l1">
+		1.8
+	</div>
+	<div class="col s12 m11 l11">
+		<p>
+			<i class="material-icons left">add</i> Angabe der Ausstiegsseite für
+			einzelne Züge und Zielbahnhöfe.
+		</p>
+	</div>
+</div>
+
+<div class="row">
+	<div class="col s12 m1 l1">
 		1.7
 	</div>
 	<div class="col s12 m11 l11">