From 346f1474bbc1814bdbbd02c79f78f2c1bbaa0b43 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
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