diff options
Diffstat (limited to 'lib/Travelynx')
| -rw-r--r-- | lib/Travelynx/Command/dumpstops.pm | 2 | ||||
| -rwxr-xr-x | lib/Travelynx/Controller/Traveling.pm | 16 | ||||
| -rw-r--r-- | lib/Travelynx/Model/Users.pm | 5 |
3 files changed, 13 insertions, 10 deletions
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}' ], ); |