3 files changed, 39 insertions, 0 deletions
diff --git a/lib/Travelynx/Controller/Account.pm b/lib/Travelynx/Controller/Account.pm
index bf1eac2..8121f0a 100644
--- a/lib/Travelynx/Controller/Account.pm
+++ b/lib/Travelynx/Controller/Account.pm
@@ -874,6 +874,35 @@ sub webhook {
 	$self->render( 'webhooks', hook => $hook );
 }
 
+sub change_language {
+	my ($self) = @_;
+
+	my $action   = $self->req->param('action');
+	my $language = $self->req->param('language');
+
+	if ( $action and $action eq 'save' ) {
+		if ( $self->validation->csrf_protect->has_error('csrf_token') ) {
+			$self->render(
+				'bad_request',
+				csrf   => 1,
+				status => 400
+			);
+			return;
+		}
+		$self->users->set_language(
+			uid      => $self->current_user->{id},
+			language => $language,
+		);
+		$self->flash( success => 'language' );
+		$self->redirect_to('account');
+	}
+	else {
+		my @languages = @{ $self->current_user->{languages} };
+		$self->param( language => $languages[0] // q{} );
+		$self->render('language');
+	}
+}
+
 sub change_mail {
 	my ($self) = @_;
 
diff --git a/lib/Travelynx/Model/Journeys.pm b/lib/Travelynx/Model/Journeys.pm
index b07511a..5e6195f 100755
--- a/lib/Travelynx/Model/Journeys.pm
+++ b/lib/Travelynx/Model/Journeys.pm
@@ -50,6 +50,8 @@ sub epoch_to_dt {
 	);
 }
 
+# TODO turn into a travelynx helper called from templates so that
+# loc_handle is available for localization
 sub min_to_human {
 	my ( $self, $minutes ) = @_;
 
diff --git a/lib/Travelynx/Model/Users.pm b/lib/Travelynx/Model/Users.pm
index 367523d..3ef7f33 100644
--- a/lib/Travelynx/Model/Users.pm
+++ b/lib/Travelynx/Model/Users.pm
@@ -216,6 +216,14 @@ sub set_backend {
 	);
 }
 
+sub set_language {
+	my ( $self, %opt ) = @_;
+	$opt{db} //= $self->{pg}->db;
+
+	$opt{db}
+	  ->update( 'users', { language => $opt{language} }, { id => $opt{uid} } );
+}
+
 sub set_privacy {
 	my ( $self, %opt ) = @_;
 	my $db           = $opt{db} // $self->{pg}->db;