From b06177261061ab3e716743b5d5b57f6a6d8cc977 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Thu, 25 Jul 2024 06:44:41 +0200
Subject: Stationboard: Link to BLS fo swiss stations

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

(limited to 'lib')

diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index bb45454..2729c19 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -2015,6 +2015,11 @@ sub handle_result {
 			{
 				$params->param( hafas => 'ÖBB' );
 			}
+			elsif ( $data->{station_eva} >= 8500000
+				and $data->{station_eva} < 8600000 )
+			{
+				$params->param( hafas => 'BLS' );
+			}
 			$api_link = '/' . $data->{station_eva} . '?' . $params->to_string;
 			$api_text = 'Auf Nahverkehr wechseln';
 			$api_icon = 'train';
-- 
cgit v1.2.3