summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rwxr-xr-xlib/Travelynx.pm54
-rw-r--r--lib/Travelynx/Command/database.pm18
2 files changed, 54 insertions, 18 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index ef927ea..ba34d8a 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -2247,16 +2247,12 @@ sub startup {
= $ref->{rt_arrival}->epoch
? $ref->{rt_arrival}->epoch - $ref->{rt_departure}->epoch
: undef;
- my ( $km, $skip )
+ my ( $km_route, $km_beeline, $skip )
= $self->get_travel_distance( $ref->{from_name},
$ref->{to_name}, $ref->{route} );
- $ref->{km_route} = $km;
- $ref->{skip_route} = $skip;
- ( $km, $skip )
- = $self->get_travel_distance( $ref->{from_name},
- $ref->{to_name},
- [ [ $ref->{from_name} ], [ $ref->{to_name} ] ] );
- $ref->{km_beeline} = $km;
+ $ref->{km_route} = $km_route;
+ $ref->{skip_route} = $skip;
+ $ref->{km_beeline} = $km_beeline;
$ref->{skip_beeline} = $skip;
my $kmh_divisor
= ( $ref->{rt_duration} // $ref->{sched_duration}
@@ -2685,28 +2681,44 @@ sub startup {
'get_travel_distance' => sub {
my ( $self, $from, $to, $route_ref ) = @_;
- my $distance = 0;
- my $skipped = 0;
- my $geo = Geo::Distance->new();
- my @stations = map { $_->[0] } @{$route_ref};
- my @route = after_incl { $_ eq $from } @stations;
+ my $distance_intermediate = 0;
+ my $distance_beeline = 0;
+ my $skipped = 0;
+ my $geo = Geo::Distance->new();
+ my @stations = map { $_->[0] } @{$route_ref};
+ my @route = after_incl { $_ eq $from } @stations;
@route = before_incl { $_ eq $to } @route;
if ( @route < 2 ) {
# I AM ERROR
- return 0;
+ return ( 0, 0 );
}
my $prev_station = get_station( shift @route );
if ( not $prev_station ) {
- return 0;
+ return ( 0, 0 );
}
+ # Geo-coordinates for stations outside Germany are not available
+ # at the moment. When calculating distance with intermediate stops,
+ # these are simply left out (as if they were not part of the route).
+ # For beeline distance calculation, we use the route's first and last
+ # station with known geo-coordinates.
+ my $from_station_beeline;
+ my $to_station_beeline;
+
for my $station_name (@route) {
if ( my $station = get_station($station_name) ) {
+ if ( not $from_station_beeline and $#{$prev_station} >= 4 )
+ {
+ $from_station_beeline = $prev_station;
+ }
+ if ( $#{$station} >= 4 ) {
+ $to_station_beeline = $station;
+ }
if ( $#{$prev_station} >= 4 and $#{$station} >= 4 ) {
- $distance
+ $distance_intermediate
+= $geo->distance( 'kilometer', $prev_station->[3],
$prev_station->[4], $station->[3], $station->[4] );
}
@@ -2717,7 +2729,15 @@ sub startup {
}
}
- return ( $distance, $skipped );
+ if ( $from_station_beeline and $to_station_beeline ) {
+ $distance_beeline = $geo->distance(
+ 'kilometer', $from_station_beeline->[3],
+ $from_station_beeline->[4], $to_station_beeline->[3],
+ $to_station_beeline->[4]
+ );
+ }
+
+ return ( $distance_intermediate, $distance_beeline, $skipped );
}
);
diff --git a/lib/Travelynx/Command/database.pm b/lib/Travelynx/Command/database.pm
index e561373..c52a0a9 100644
--- a/lib/Travelynx/Command/database.pm
+++ b/lib/Travelynx/Command/database.pm
@@ -558,7 +558,7 @@ my @migrations = (
add column messages_new jsonb;
}
);
- my $res = $db->select( 'journeys', [ 'id', 'messages', 'route' ] );
+ my $res = $db->select( 'journeys', [ 'id', 'messages', 'route' ] );
my $json = JSON->new;
for my $journey ( $res->hashes->each ) {
@@ -689,6 +689,22 @@ my @migrations = (
}
);
},
+
+ # v15 -> v16
+ # Beeline distance calculation now also works when departure or arrival
+ # station do not have geo-coordinates (by resorting to the first/last
+ # station in the route which does have geo-coordinates). Previously,
+ # beeline distances were reported as zero in this case. Clear caches
+ # to recalculate total distances per year / month.
+ sub {
+ my ($db) = @_;
+ $db->query(
+ qq{
+ truncate journey_stats;
+ update schema_version set version = 16;
+ }
+ );
+ },
);
sub setup_db {