From dd6d6eb53abe95d8a88ebc59535994866da396e7 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <birte.friesel@uos.de>
Date: Tue, 4 Mar 2025 19:41:04 +0100
Subject: Remove VRN; use ÖBB for IRIS augmentation (maps)
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Luckily, ÖBB and IRIS agree on virtually all EVA IDs. In some cases, ÖBB
uses different station names (e.g. 'Fürth in Bayern' rather than 'Fürth(Bay)').

Closes #206
Closes #207
Closes #208
---
 lib/Travelynx/Controller/Account.pm |  1 +
 lib/Travelynx/Helper/HAFAS.pm       | 11 ++++++-----
 2 files changed, 7 insertions(+), 5 deletions(-)

(limited to 'lib')

diff --git a/lib/Travelynx/Controller/Account.pm b/lib/Travelynx/Controller/Account.pm
index 1c54aec..9cd0edb 100644
--- a/lib/Travelynx/Controller/Account.pm
+++ b/lib/Travelynx/Controller/Account.pm
@@ -1075,6 +1075,7 @@ sub backend_form {
 			# operational and are thus useless for travelynx
 			if (   $backend->{name} eq 'Resrobot'
 				or $backend->{name} eq 'TPG'
+				or $backend->{name} eq 'VRN'
 				or $backend->{name} eq 'DB' )
 			{
 				$type = undef;
diff --git a/lib/Travelynx/Helper/HAFAS.pm b/lib/Travelynx/Helper/HAFAS.pm
index 5b5d343..ebf44d2 100644
--- a/lib/Travelynx/Helper/HAFAS.pm
+++ b/lib/Travelynx/Helper/HAFAS.pm
@@ -7,6 +7,7 @@ package Travelynx::Helper::HAFAS;
 use strict;
 use warnings;
 use 5.020;
+use utf8;
 
 use DateTime;
 use Encode qw(decode);
@@ -43,7 +44,7 @@ sub get_service {
 sub get_departures_p {
 	my ( $self, %opt ) = @_;
 
-	$opt{service} //= 'VRN';
+	$opt{service} //= 'ÖBB';
 
 	my $agent = $self->{user_agent};
 	if ( my $proxy = $self->{service_config}{ $opt{service} }{proxy} ) {
@@ -72,7 +73,7 @@ sub get_departures_p {
 sub search_location_p {
 	my ( $self, %opt ) = @_;
 
-	$opt{service} //= 'VRN';
+	$opt{service} //= 'ÖBB';
 
 	my $agent = $self->{user_agent};
 	if ( my $proxy = $self->{service_config}{ $opt{service} }{proxy} ) {
@@ -99,7 +100,7 @@ sub get_tripid_p {
 	my $train_desc = $train->type . ' ' . $train->train_no;
 	$train_desc =~ s{^- }{};
 
-	$opt{service} //= 'VRN';
+	$opt{service} //= 'ÖBB';
 
 	my $agent = $self->{user_agent};
 	if ( my $proxy = $self->{service_config}{ $opt{service} }{proxy} ) {
@@ -160,7 +161,7 @@ sub get_journey_p {
 	my $promise = Mojo::Promise->new;
 	my $now     = DateTime->now( time_zone => 'Europe/Berlin' );
 
-	$opt{service} //= 'VRN';
+	$opt{service} //= 'ÖBB';
 
 	my $agent = $self->{user_agent};
 	if ( my $proxy = $self->{service_config}{ $opt{service} }{proxy} ) {
@@ -210,7 +211,7 @@ sub get_route_p {
 	my $promise = Mojo::Promise->new;
 	my $now     = DateTime->now( time_zone => 'Europe/Berlin' );
 
-	$opt{service} //= 'VRN';
+	$opt{service} //= 'ÖBB';
 
 	my $agent = $self->{user_agent};
 	if ( my $proxy = $self->{service_config}{ $opt{service} }{proxy} ) {
-- 
cgit v1.2.3