From 7dc59c5ff03dc413a749878324ae1bbe197927c3 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Sat, 2 Mar 2013 21:25:23 -0300 Subject: [PATCH] [SIGNED-OFF] Bug 9735 - Let the language be selected through URL parameters MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Passing language= as a parameter in any Koha's URL can be used to set the desired language. This patch touches - C4::Templates - C4::Auth Adds a new method getlanguagecookie that does exactly that, for use in get_template_and_user. Also modifies getlanguage so it checks (a) if there's a 'language' parameter in the CGI object and (b) checks if its valid and enabled for the desired interface. To test: * Without the patch - access any koha page - add ?language=code to the end of the URL (change code for a valid language code it needs to be installed using perl translate install code, and enabled either for the staff or opac interface, depending where are you testing) - Nothing happens with the language parameter * With the patch - access any koha page - add ?language=code (the same as before) and hit enter - the language should be changed to the one you chose - if you browse through some links, you will see koha 'remembers' the language you passed as a parameter (i.e. the language cookie has been updated). Regards To+ Sponsored-by: Universidad Nacional de Córdoba Signed-off-by: Brendan Signed-off-by: Bernardo Gonzalez Kriegel Comment: Works very well. No errors. --- C4/Auth.pm | 10 ++++++++++ C4/Templates.pm | 34 +++++++++++++++++++++++++++++++++- 2 files changed, 43 insertions(+), 1 deletion(-) diff --git a/C4/Auth.pm b/C4/Auth.pm index efe1200..e42f676 100644 --- a/C4/Auth.pm +++ b/C4/Auth.pm @@ -472,6 +472,16 @@ sub get_template_and_user { $template->param(OpacPublic => '1') if ($user || C4::Context->preference("OpacPublic")); } + + # Check if we were asked using parameters to force a specific language + if ( defined $in->{'query'}->param('language') ) { + # Extract the language, let C4::Templates::getlanguage choose + # what to do + my $language = C4::Templates::getlanguage($in->{'query'},$in->{'type'}); + my $languagecookie = C4::Templates::getlanguagecookie($in->{'query'},$language); + $cookie = [$cookie, $languagecookie]; + } + return ( $template, $borrowernumber, $cookie, $flags); } diff --git a/C4/Templates.pm b/C4/Templates.pm index 78dcddd..47a6656 100644 --- a/C4/Templates.pm +++ b/C4/Templates.pm @@ -314,17 +314,49 @@ sub setlanguagecookie { ); } +=head2 getlanguagecookie + + my $cookie = getlanguagecookie($query,$language); + +Returns a cookie object containing the calculated language to be used. + +=cut + +sub getlanguagecookie { + my ( $query, $language ) = @_; + my $cookie = $query->cookie( + -name => 'KohaOpacLanguage', + -value => $language, + -HttpOnly => 1, + -expires => '+3y' + ); + + return $cookie; +} + +=head2 getlanguage + + Select a language based on the URL parameter 'language', a cookie, + syspref available languages & browser + +=cut sub getlanguage { my ($query, $interface) = @_; - # Select a language based on cookie, syspref available languages & browser my $preference_to_check = $interface eq 'intranet' ? 'language' : 'opaclanguages'; + # Get the available/valid languages list my @languages = split /,/, C4::Context->preference($preference_to_check); my $lang; + # Chose language from the URL + $lang = $query->param( 'language' ); + if ( defined $lang && any { $_ eq $lang } @languages) { + return $lang; + } + # cookie if ( $query->cookie('KohaOpacLanguage') ) { $lang = $query->cookie('KohaOpacLanguage'); -- 1.7.9.5