mirror of
https://github.com/moodle/moodle.git
synced 2025-08-11 11:56:40 +02:00
113 lines
4.8 KiB
PHP
113 lines
4.8 KiB
PHP
<?php //$Id$
|
|
|
|
///////////////////////////////////////////////////////////////////////////
|
|
// //
|
|
// This program is part of Moodle - Modular Object-Oriented Dynamic //
|
|
// Learning Environment - http://moodle.org //
|
|
// //
|
|
// Copyright (C) 2004 Gaëtan Frenoy <gaetan à frenoy.net> //
|
|
// Eloy Lafuente <stronk7@moodle.org> //
|
|
// //
|
|
// This program is free software; you can redistribute it and/or modify //
|
|
// it under the terms of the GNU General Public License as published by //
|
|
// the Free Software Foundation; either version 2 of the License, or //
|
|
// (at your option) any later version. //
|
|
// //
|
|
// This program is distributed in the hope that it will be useful, //
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of //
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the //
|
|
// GNU General Public License for more details: //
|
|
// //
|
|
// http://www.gnu.org/copyleft/gpl.html //
|
|
// //
|
|
///////////////////////////////////////////////////////////////////////////
|
|
|
|
// Given XML multilinguage text, return relevant text according to
|
|
// current language. i.e.=
|
|
// - look for lang sections in the code.
|
|
// - if there exists texts in the currently active language, print them.
|
|
// - else, if there exists texts in the current parent language, print them.
|
|
// - else, if there are English texts, print them
|
|
// - else, print the first language in the text.
|
|
//
|
|
// This is an improved version of the original multilang filter by Gaëtan Frenoy.
|
|
// It should be 100% compatible with the original one. Some new features are:
|
|
// - Supports a new "short" syntax to make things easier. Simply use:
|
|
// <lang lang="XX">
|
|
// - Needs less resources and executes faster.
|
|
// - Allows any type of content to be used. No restrictions at all!
|
|
|
|
function multilang_filter($courseid, $text) {
|
|
|
|
/*
|
|
/// Do a quick check using stripos to avoid unnecessary work
|
|
if (stripos($text, '<lang') === false && stripos($text, '<span lang') === false) {
|
|
return $text;
|
|
}
|
|
*/
|
|
|
|
// [pj] I don't know about you but I find this new implementation funny :P
|
|
|
|
$search = '/(<(?:lang|span) lang="[a-zA-Z0-9_-]*".*?>.+?<\/(?:lang|span)>\s*)+/is';
|
|
return preg_replace_callback($search, 'multilang_filter_impl', $text);
|
|
}
|
|
|
|
function multilang_filter_impl($langblock) {
|
|
|
|
global $CFG;
|
|
|
|
// This callbackis going to get called multiple times, so cache $preflangs
|
|
static $preflangs = NULL;
|
|
|
|
/// Flag this text as something not to cache
|
|
$CFG->currenttextiscacheable = false;
|
|
|
|
if(empty($preflangs)) {
|
|
/// Get current language
|
|
$currentlang = current_language();
|
|
|
|
/// Get parent language
|
|
$langfile = "$CFG->dirroot/lang/$currentlang/moodle.php";
|
|
if ($result = get_string_from_file("parentlanguage", "$langfile", "\$parentlang")) {
|
|
eval($result);
|
|
}
|
|
|
|
/// Fill in the array of preffered languages
|
|
$preflangs = array();
|
|
$preflangs[] = $currentlang; /// First, the current lang
|
|
if (!empty($parentlang)) {
|
|
$preflangs[] = $parentlang; /// Then, if available, the parent lang
|
|
}
|
|
if ($currentlang != 'en') {
|
|
$preflangs[] = 'en'; /// Finally, if not used, add the en lang
|
|
}
|
|
}
|
|
|
|
// Setup is done, now do multilang replacement on the match we 've been called for
|
|
|
|
$searchtosplit = '/<(?:lang|span) lang="([a-zA-Z0-9_-]*)".*?>(.+?)<\/(?:lang|span)>/is';
|
|
preg_match_all($searchtosplit, $langblock[0], $langlist);
|
|
|
|
/// Get the existing sections langs
|
|
$lang = '';
|
|
$minpref = count($preflangs);
|
|
$bestkey = 0;
|
|
//Iterate
|
|
foreach ($langlist[1] as $key => $lang) {
|
|
//Normalize: Moodle's langs are always lowercase and they use the underscore
|
|
//Should we be stricter?
|
|
$lang = strtolower(str_replace('-','_',$lang));
|
|
$foundkey = array_search($lang, $preflangs);
|
|
if ($foundkey !== false && $foundkey !== NULL && $foundkey < $minpref) {
|
|
$minpref = $foundkey;
|
|
$bestkey = $key;
|
|
if ($minpref == 0) {
|
|
continue; //The best has been found. Leave iteration.
|
|
}
|
|
}
|
|
}
|
|
|
|
return trim($langlist[2][$bestkey]);
|
|
}
|
|
|
|
?>
|