obtain autocompletion from database2.1.1

1 files changed, 13 insertions, 0 deletions

diff --git a/lib/Travelynx/Model/Stations.pm b/lib/Travelynx/Model/Stations.pm
index 75b4174..ecd8adb 100644
--- a/lib/Travelynx/Model/Stations.pm
+++ b/lib/Travelynx/Model/Stations.pm
@@ -50,6 +50,19 @@ sub add_or_update {
 	);
 }
 
+sub get_for_autocomplete {
+	my ($self) = @_;
+
+	my $res = $self->{pg}->db->select( 'stations', ['name'] );
+	my %ret;
+
+	while ( my $row = $res->hash ) {
+		$ret{ $row->{name} } = undef;
+	}
+
+	return \%ret;
+}
+
 # Fast
 sub get_by_eva {
 	my ( $self, $eva, %opt ) = @_;