From 9095b829914324c284b5208f8b8ac088de28b7d3 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <birte.friesel@uos.de>
Date: Thu, 16 Jan 2025 18:32:17 +0100
Subject: stationboard: IRIS: always show cancelled trains with scheduled time

---
 lib/DBInfoscreen/Controller/Stationboard.pm | 28 ++++++++++++++++++++--------
 1 file changed, 20 insertions(+), 8 deletions(-)

(limited to 'lib/DBInfoscreen/Controller/Stationboard.pm')

diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index 3e5a6bf..c5d27ab 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -1862,16 +1862,28 @@ sub handle_result {
 			@results = sort { $a->datetime <=> $b->datetime } @results;
 		}
 		elsif ( $admode eq 'arr' ) {
-			@results = sort {
-				( $a->arrival // $a->departure )
-				  <=> ( $b->arrival // $b->departure )
-			} @results;
+			@results = map { $_->[1] }
+			  sort { $a->[0] <=> $b->[0] }
+			  map {
+				[
+					$_->arrival_is_cancelled
+					? ( $_->sched_arrival // $_->sched_departure )
+					: ( $_->arrival // $_->departure ),
+					$_
+				]
+			  } @results;
 		}
 		else {
-			@results = sort {
-				( $a->departure // $a->arrival )
-				  <=> ( $b->departure // $b->arrival )
-			} @results;
+			@results = map { $_->[1] }
+			  sort { $a->[0] <=> $b->[0] }
+			  map {
+				[
+					$_->departure_is_cancelled
+					? ( $_->sched_departure // $_->sched_arrival )
+					: ( $_->departure // $_->arrival ),
+					$_
+				]
+			  } @results;
 		}
 	}
 
-- 
cgit v1.2.3