backend selection: show frequently used backends2.16.6

Closes #288

1 files changed, 7 insertions, 0 deletions

diff --git a/lib/Travelynx/Controller/Account.pm b/lib/Travelynx/Controller/Account.pm
index 3a1e281..96be200 100644
--- a/lib/Travelynx/Controller/Account.pm
+++ b/lib/Travelynx/Controller/Account.pm
@@ -1055,6 +1055,7 @@ sub backend_form {
 	my ($self) = @_;
 	my $user = $self->current_user;
 
+	my %backend_by_id;
 	my @backends = $self->stations->get_backends;
 	my @suggested_backends;
 
@@ -1272,8 +1273,13 @@ sub backend_form {
 			}
 		}
 		$backend->{type} = $type;
+
+		$backend_by_id{ $backend->{id} } = $backend;
 	}
 
+	my @frequent_backends = map { $backend_by_id{$_} }
+	  $self->journeys->get_frequent_backend_ids( uid => $user->{id} );
+
 	@backends = map { $_->[1] }
 	  sort { $a->[0] cmp $b->[0] }
 	  map { [ lc( $_->{name} ), $_ ] } grep { $_->{type} } @backends;
@@ -1281,6 +1287,7 @@ sub backend_form {
 	$self->render(
 		'select_backend',
 		suggestions => \@suggested_backends,
+		frequent    => \@frequent_backends,
 		backends    => \@backends,
 		user        => $user,
 		redirect_to => $self->req->param('redirect_to') // '/',