diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2025-07-18 16:16:50 +0200 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2025-07-18 16:16:50 +0200 |
| commit | 90c2c6505e933848268ed9c5bbe21e0b459cd72a (patch) | |
| tree | 13450571678acf2ff84b8a0693126e1daebb4153 /lib/Travelynx.pm | |
| parent | 814cb4a4dd4017606829ecc6b6c70822bf52a30e (diff) | |
Use Accept-Language header if user has no preferred languages
Diffstat (limited to 'lib/Travelynx.pm')
| -rwxr-xr-x | lib/Travelynx.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm index bb1346f..907ce0c 100755 --- a/lib/Travelynx.pm +++ b/lib/Travelynx.pm @@ -164,14 +164,13 @@ sub startup { # TODO load languages from user profile, if set - my @languages = ('en-GB'); - if ( $self->is_user_authenticated ) { + my @languages; + if ( $self->is_user_authenticated + and @{ $self->current_user->{languages} } ) + { @languages = @{ $self->current_user->{languages} }; } elsif ( my $languages = $self->req->headers->accept_language ) { - @languages = (); - - #say "-- Accept-Language: $languages"; for my $lang ( split( qr{ \s* , \s* }x, $languages ) ) { if ( $lang =~ m{ ^ de }x ) { push( @languages, 'de-DE' ); |