sort journeys by departure time

1 files changed, 7 insertions, 0 deletions

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index 778e194..f453f56 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -1067,6 +1067,13 @@ qq{select * from pending_mails where email = ? and num_tries > 1;}
 				} @travels;
 			}
 
+         # user_actions are sorted by action_time. As users are allowed to check
+         # into trains in arbitrary order, action_time does not always
+         # correspond to departure/arrival time, so we ensure a proper sort
+         # order here.
+			@travels
+			  = sort { $b->{rt_departure} <=> $a->{rt_departure} } @travels;
+
 			return @travels;
 		}
 	);