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

Added support for language changing.

Browse Source 
This should actually address FS#70 - by loading a default language on creation, and then allowing another language to be loaded later and
overwrite some or all of the previously loaded language, this allows for fallbacks to defaults, or complete clearing if needed.

Note that langdir can't be changed, that can only be set at creation.
This commit is contained in:
Chris 2012-03-26 17:48:50 +01:00
parent a6be469cc1
commit fbf834cc0b
1 changed files with 50 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
Template.pm
View File

@ -187,16 +187,46 @@ sub set_module_obj {
$self -> {"modules"} = shift;
}
# ============================================================================
# Templating functions
## @method $ load_language(void)
## @method $ set_language($lang)
# Set the current language to the specified value. This will update the language
# variables loaded in the system to the values set in the language files in the
# specified language directory. This *will not erase* any previously loaded language
# definitions - if you need to do that, call this with `lang` set to `undef` first, and
# then call it with the new language.
#
# @param lang The new language directory to load language files from. If set to
# `undef` or `''`, this will clear the language data loaded already.
# @return true if the language files were loaded successfully, false otherwise.
sub set_language {
my $self = shift;
$self -> {"lang"} = shift;
# If the lang name has been cleared, drop the words hash.
if(!$self -> {"lang"}) {
$self -> {"words"} = {};
return 1;
}
# Otherwise, load the new language...
return $self -> load_language(1); # force overwite, we expect it to happen now.
}
## @method $ load_language($force_overwrite)
# Load all of the language files in the appropriate language directory into a hash.
# This will attempt to load all .lang files inside the langdir/lang/ directory,
# attempting to parse VARNAME = string into a hash using VARNAME as the key and string
# as the value. The hash is build up inside the Template object rather than returned.
#
# @param force_overwrite If true, redefinition of language variables will not result
# in warning messages in the logs.
# @return true if the language files loaded correctly, undef otherwise.
sub load_language {
my $self = shift;
my $self = shift;
my $force_overwrite = shift;
# First work out which directory we are dealing with
my $langdir = path_join($self -> {"langdir"}, $self -> {"lang"});
@ -227,7 +257,8 @@ sub load_language {
$value =~ s/\\\"/\"/go;
# warn if we are about to redefine a word
warn_log("Unknown", "$key already exists in language hash!") if($self -> {"words"} -> {$key});
warn_log("Unknown", "$key already exists in language hash!")
if($self -> {"words"} -> {$key} && !$force_overwrite);
$self -> {"words"} -> {$key} = $value;
}
@ -248,12 +279,6 @@ sub load_language {
}
# ============================================================================
# Templating functions
## @method void set_template_dir
## @method $ replace_langvar($varname, $default, $varhash)
# Replace the specified language variable with the appropriate text string. This
# takes a language variable name and returns the value stored for that variable,
@ -310,6 +335,22 @@ sub replace_langvar {
}
# ============================================================================
# Templating functions
## @method void set_template_dir($theme)
# Set the template theme directory. This updates the directory from which
# load_template() attempts to load template files. It does not modify the
# fallback theme - that can only be done on Template creation.
#
# @param theme The new theme directory to use. Note that theme directories
# must be inside the base template directory (usually `templates`).
sub set_template_dir {
my $self = shift;
$self -> {"theme"} = shift;
}
## @method $ replace_blockname($blkname, $default)
# Replace a block name with the internal ID for the block. This will replace
# a block name with the equivalent block ID and it can cope with the name