Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added basic facilities to support user language and theme selection.

Browse Source
This commit is contained in:
Chris 2012-04-11 11:24:09 +01:00
parent c6f0d7c1fc
commit 06d6ae7f56
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Application.pm
View File

@ -36,9 +36,6 @@
# up as needed, this just simplifies the process. See the @ref overview Overview
# documentation for more details about the operation of this class.
#
# @todo Web applications created using the Application class use the default
# language and template settings - i18n and template selection need to
# be added after the session handler has been started. See bug FS#68.
package Application;
use strict;
@ -169,6 +166,20 @@ sub run {
settings => $self -> {"settings"})
or die_log($self -> {"cgi"} -> remote_host(), "Application: Unable to create session object: ".$SessionHandler::errstr);
# At this point, there's potentially a real user associated with the session. If appropriate,
# update the template theme and language
if(!$self -> {"session"} -> anonymous_session()) {
my $sessuser = $self -> {"session"} -> get_user_byid();
if($sessuser) {
$self -> {"template"} -> set_language($sessuser -> {$self -> {"settings"} -> {"config"} -> {"Core:user_lang_field"}})
if(!$self -> {"settings"} -> {"config"} -> {"Core:force_lang"} && $self -> {"settings"} -> {"config"} -> {"Core:user_lang_field"} && $sessuser -> {$self -> {"settings"} -> {"config"} -> {"Core:user_lang_field"}});
$self -> {"template"} -> set_template_dir($sessuser -> {$self -> {"settings"} -> {"config"} -> {"Core:user_theme_field"}})
if(!$self -> {"settings"} -> {"config"} -> {"Core:force_theme"} && $self -> {"settings"} -> {"config"} -> {"Core:user_theme_field"} && $sessuser -> {$self -> {"settings"} -> {"config"} -> {"Core:user_theme_field"}});
}
}
# And now we can make the module handler
$self -> {"modules"} = Modules -> new(cgi => $self -> {"cgi"},
dbh => $self -> {"dbh"},