From 40cd1d06feb83396676892d30e386c934e017b9b Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sat, 15 Jul 2023 19:07:21 +0200
Subject: postprocess timeline; move user-related parts to get_user_status

---
 lib/Travelynx.pm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

(limited to 'lib/Travelynx.pm')

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index b69d619..9c052e3 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -1442,6 +1442,42 @@ sub startup {
 					}
 				}
 
+				my $stop_after_dep
+				  = scalar @{ $ret->{route_after} }
+				  ? $ret->{route_after}[0][0]
+				  : undef;
+				my $stop_before_dest
+				  = scalar @{ $ret->{route_after} }
+				  ? $ret->{route_after}[-1][0]
+				  : undef;
+
+				my ($dep_platform_number)
+				  = ( ( $ret->{dep_platform} // 0 ) =~ m{(\d+)} );
+				if ( $dep_platform_number
+					and
+					exists $ret->{data}{stationinfo_dep}{$dep_platform_number} )
+				{
+					$ret->{dep_direction} = $self->stationinfo_to_direction(
+						$ret->{data}{stationinfo_dep}{$dep_platform_number},
+						$ret->{data}{wagonorder_dep},
+						undef, $stop_after_dep
+					);
+				}
+
+				my ($arr_platform_number)
+				  = ( ( $ret->{arr_platform} // 0 ) =~ m{(\d+)} );
+				if ( $arr_platform_number
+					and
+					exists $ret->{data}{stationinfo_arr}{$arr_platform_number} )
+				{
+					$ret->{arr_direction} = $self->stationinfo_to_direction(
+						$ret->{data}{stationinfo_arr}{$arr_platform_number},
+						$ret->{data}{wagonorder_arr},
+						$stop_before_dest,
+						undef
+					);
+				}
+
 				if (    $ret->{departure_countdown} > 0
 					and $in_transit->{data}{wagonorder_dep} )
 				{
-- 
cgit v1.2.3