From 45845964a3028b8baf35e447e3fdb4c67e39eec0 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Tue, 5 Nov 2024 21:38:51 +0100
Subject: IRIS, HAFAS: Pass version=raw to obtain raw serialized Perl objects

---
 lib/DBInfoscreen/Controller/Stationboard.pm | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index 0e1c6aa..8c8365f 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -1977,6 +1977,9 @@ sub handle_result {
 				);
 				return;
 			}
+			elsif ( $apiver eq 'raw' ) {
+				push( @departures, $result );
+			}
 			else {    # apiver == 3
 				if ( $result->isa('Travel::Status::DE::IRIS::Result') ) {
 					my ( $delay_arr, $delay_dep, $sched_arr, $sched_dep );
-- 
cgit v1.2.3