Changeset 1578 for trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller

Timestamp:

12/31/15 15:12:06 (9 years ago)

Author:

nanardon

Message:

Fix locale detection

File:

• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Root.pm (modified) (1 diff)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Root.pm

@@ -33 +33 @@
     my ( $self, $c ) = @_;
 
-    my ($locale) = split(';', $c->req->header('Accept-Language') || '');
+    my ($locale) = split(',', $c->req->header('Accept-Language') || '');
+    $locale =~ s/(\s\s)/$1/;
     if (my $plocale = ($c->req->param('locale')|| $c->session->{'locale'})) {
         $c->session->{'locale'} = $locale = $plocale;
     }
+    warn $locale;
     POSIX::setlocale(POSIX::LC_ALL, $locale);
     $c->languages($locale ? [ $locale ] : '');