Changeset 281 for trunk

Timestamp:

12/19/09 12:07:04 (14 years ago)

Author:

nanardon

Message:

• minor fix

Location:

trunk/lib

Files:

• Epoll.pm (modified) (1 diff)
• Epoll/View/TT.pm (modified) (1 diff)

trunk/lib/Epoll.pm

@@ -64 +64 @@
 __PACKAGE__->config->{session}{dbi_dsn} = 'dbi:Pg:' . __PACKAGE__->config->{db};
 
-sub begin : Private {
-    my ( $self, $c ) = @_;
-
-    my $locale = $c->request->param('locale');
-
-    $c->response->headers->push_header( 'Vary' => 'Accept-Language' );  # hmm vary and param?
-    $c->languages( $locale ? [ $locale ] : undef
-    );
-}
-
 =head1 NAME
 

trunk/lib/Epoll/View/TT.pm

@@ -29 +29 @@
     my ($self, $c) = @_;
 
-    my ($locale) = split(';', $c->req->header('Accept-Language'));
+    my ($locale) = split(';', $c->req->header('Accept-Language') || '');
     if (my $plocale = ($c->req->param('locale')|| $c->session->{'locale'})) {
         $c->session->{'locale'} = $locale = $plocale;