From 38f537bf597c492371fdffc243687290b2ebaafe Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sat, 15 Jun 2024 10:36:18 +0200
Subject: Use hafas=DB rather than hafas=1

---
 lib/Travelynx/Command/dumpstops.pm    |  2 +-
 lib/Travelynx/Controller/Traveling.pm | 16 ++++++++--------
 lib/Travelynx/Model/Users.pm          |  5 ++++-
 3 files changed, 13 insertions(+), 10 deletions(-)

(limited to 'lib/Travelynx')

diff --git a/lib/Travelynx/Command/dumpstops.pm b/lib/Travelynx/Command/dumpstops.pm
index e6740ec..c8ecd7a 100644
--- a/lib/Travelynx/Command/dumpstops.pm
+++ b/lib/Travelynx/Command/dumpstops.pm
@@ -8,7 +8,7 @@ use Mojo::Base 'Mojolicious::Command';
 use List::Util qw();
 use Text::CSV;
 
-has description => 'Export HAFAS/IRIS stops to CSV';
+has description => 'Export known stops to CSV';
 
 has usage => sub { shift->extract_usage };
 
diff --git a/lib/Travelynx/Controller/Traveling.pm b/lib/Travelynx/Controller/Traveling.pm
index 6ceb661..f9bc2d5 100755
--- a/lib/Travelynx/Controller/Traveling.pm
+++ b/lib/Travelynx/Controller/Traveling.pm
@@ -604,7 +604,7 @@ sub geolocation {
 					name     => $_->name,
 					eva      => $_->eva,
 					distance => $_->distance_m / 1000,
-					hafas    => 1
+					hafas    => 'DB'
 				}
 			} $hafas->results;
 			if ( @hafas > 10 ) {
@@ -714,7 +714,7 @@ sub travel_action {
 				if ( my $destination = $params->{dest} ) {
 					my $station_link = '/s/' . $destination;
 					if ( $status->{train_id} =~ m{[|]} ) {
-						$station_link .= '?hafas=1';
+						$station_link .= '?hafas=DB';
 					}
 					$self->render(
 						json => {
@@ -750,7 +750,7 @@ sub travel_action {
 				my ( $still_checked_in, $error ) = @_;
 				my $station_link = '/s/' . $params->{station};
 				if ( $status->{train_id} =~ m{[|]} ) {
-					$station_link .= '?hafas=1';
+					$station_link .= '?hafas=DB';
 				}
 
 				if ($error) {
@@ -801,7 +801,7 @@ sub travel_action {
 			my $redir = '/';
 			if ( $status->{checked_in} or $status->{cancelled} ) {
 				if ( $status->{train_id} =~ m{[|]} ) {
-					$redir = '/s/' . $status->{dep_eva} . '?hafas=1';
+					$redir = '/s/' . $status->{dep_eva} . '?hafas=DB';
 				}
 				else {
 					$redir = '/s/' . $status->{dep_ds100};
@@ -999,7 +999,7 @@ sub station {
 			}
 			else {
 
-				$api_link = '/s/' . $status->{station_eva} . '?hafas=1';
+				$api_link = '/s/' . $status->{station_eva} . '?hafas=DB';
 
 				# You can't check into a train which terminates here
 				@results = grep { $_->departure } @{ $status->{results} };
@@ -1128,7 +1128,7 @@ sub station {
 						my @suggestions = $hafas2->results;
 						if ( @suggestions == 1 ) {
 							$self->redirect_to(
-								'/s/' . $suggestions[0]->eva . '?hafas=1' );
+								'/s/' . $suggestions[0]->eva . '?hafas=DB' );
 						}
 						else {
 							$self->render(
@@ -1171,14 +1171,14 @@ sub redirect_to_station {
 
 	if ( my $s = $self->app->stations->search($station) ) {
 		if ( $s->{source} == 1 ) {
-			$self->redirect_to("/s/${station}?hafas=1");
+			$self->redirect_to("/s/${station}?hafas=DB");
 		}
 		else {
 			$self->redirect_to("/s/${station}");
 		}
 	}
 	else {
-		$self->redirect_to("/s/${station}?hafas=1");
+		$self->redirect_to("/s/${station}?hafas=DB");
 	}
 }
 
diff --git a/lib/Travelynx/Model/Users.pm b/lib/Travelynx/Model/Users.pm
index 4602fa2..1154a02 100644
--- a/lib/Travelynx/Model/Users.pm
+++ b/lib/Travelynx/Model/Users.pm
@@ -44,7 +44,10 @@ my @sb_templates = (
 	undef,
 	[ 'DBF',         'https://dbf.finalrewind.org/{name}?rt=1#{tt}{tn}' ],
 	[ 'bahn.expert', 'https://bahn.expert/{name}#{id}' ],
-	[ 'DBF HAFAS', 'https://dbf.finalrewind.org/{name}?rt=1&hafas=1#{tt}{tn}' ],
+	[
+		'DBF HAFAS',
+		'https://dbf.finalrewind.org/{name}?rt=1&hafas=DB#{tt}{tn}'
+	],
 	[ 'bahn.expert/regional', 'https://bahn.expert/regional/{name}#{id}' ],
 );
 
-- 
cgit v1.2.3