improve commute station heuristic

Select top station on work days (Mo .. Fr) with arrival < 13:00 or
departure >= 13:00.

1 files changed, 0 insertions, 34 deletions

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index 7e7d850..7495b76 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -2720,40 +2720,6 @@ sub startup {
 	);
 
 	$self->helper(
-		'get_top_destinations' => sub {
-			my ( $self, %opt ) = @_;
-			my $uid = $opt{uid} //= $self->current_user->{id};
-			my $db  = $opt{db}  //= $self->pg->db;
-
-			my @stations;
-
-			my $res = $db->query(
-				qq{
-				select arr_eva, count(arr_eva) as count
-				from journeys_str
-				where user_id = ?
-				and real_dep_ts between ? and ?
-				group by arr_eva
-				order by count desc
-				limit 5
-			}, $uid, $opt{after}->epoch, $opt{before}->epoch
-			);
-
-			for my $dest ( $res->hashes->each ) {
-				$self->app->log->debug( $dest->{arr_eva} );
-				$self->app->log->debug( $dest->{count} );
-				if ( my $station
-					= $self->app->station_by_eva->{ $dest->{arr_eva} } )
-				{
-					push( @stations, $station );
-				}
-			}
-
-			return @stations;
-		}
-	);
-
-	$self->helper(
 		'get_connection_targets' => sub {
 			my ( $self, %opt ) = @_;