From 346f1474bbc1814bdbbd02c79f78f2c1bbaa0b43 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 19 Apr 2020 17:49:14 +0200 Subject: commute stats: attempt to weed out non-work stations for auto-fill --- lib/Travelynx/Controller/Traveling.pm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lib') diff --git a/lib/Travelynx/Controller/Traveling.pm b/lib/Travelynx/Controller/Traveling.pm index 1eef0c8..ae5be69 100755 --- a/lib/Travelynx/Controller/Traveling.pm +++ b/lib/Travelynx/Controller/Traveling.pm @@ -534,6 +534,14 @@ sub commute { elsif ( $dep->dow <= 5 and $dep->hour > 12 ) { $candidate_count{ $journey->{from_name} }++; } + else { + # Avoid selecting an intermediate station for multi-leg commutes. + # Assumption: The intermediate station is also used for private + # travels -> penalize stations which are used on weekends or at + # unexpected times. + $candidate_count{ $journey->{from_name} }--; + $candidate_count{ $journey->{to_name} }--; + } } $station = max_by { $candidate_count{$_} } keys %candidate_count; } -- cgit v1.2.3