Changeset 2237 for trunk/LATMOS-Accounts-Web

Timestamp:

04/30/19 07:36:43 (5 years ago)

Author:

nanardon

Message:

Move po files to make them availlable, handling Accept-Language

Location:

trunk/LATMOS-Accounts-Web/lib

Files:

• I18N (added)
• I18N/AcceptLanguage.pm (added)
• LATMOS/Accounts/Web/Controller/Root.pm (modified) (2 diffs)

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

@@ -9 +9 @@
 use Date::Calc;
 use Date::Parse;
+use I18N::AcceptLanguage;
 
 #
@@ -36 +37 @@
     my ( $self, $c ) = @_;
 
-    my ($locale) = split(',', $c->req->header('Accept-Language') || '');
-    $locale ||= '';
-    $locale =~ s/(\s\s)/$1/;
+    my $supportedLanguages = [( 'fr' )];
+
+    my $acceptor = I18N::AcceptLanguage->new( debug => 1 );
+    my $language = ($c->req->header('Accept-Language'), $supportedLanguages);
+    my $locale = $language->[0];
+
     if (my $plocale = ($c->req->param('locale')|| $c->session->{'locale'})) {
         $c->session->{'locale'} = $locale = $plocale;
     }
-    POSIX::setlocale(POSIX::LC_ALL, $locale);
+    POSIX::setlocale(POSIX::LC_MESSAGES, $locale);
     $c->languages($locale ? [ $locale ] : '');
     return 1;