$strlanguage -> $strmissingstrings"; $title = $strmissingstrings; $button = '
'. ''. ''. '
'; break; case "compare": $navigation = "$strlanguage -> $strcomparelanguage"; $title = $strcomparelanguage; $button = '
'. ''. ''. '
'; break; default: $title = $strlanguage; $navigation = $strlanguage; $button = ''; break; } $currentlang = current_language(); print_header("$site->shortname: $title", "$site->fullname", "$stradministration -> ". "$strconfiguration -> $navigation", '', '', true, $button); if (!$mode) { $currlang = current_language(); $langs = get_list_of_languages(); echo "
"; echo "$strcurrentlanguage:"; echo ""; echo popup_form ("$CFG->wwwroot/admin/lang.php?lang=", $langs, "chooselang", $currlang, "", "", "", true); echo "
"; print_heading("sesskey\">$strmissingstrings"); print_heading("sesskey\">$strcomparelanguage"); echo "
"; $options["lang"] = $currentlang; print_single_button("http://moodle.org/download/lang/", $options, get_string("latestlanguagepack")); echo "
"; print_footer(); exit; } // Get a list of all the root files in the English directory $langdir = "$CFG->dirroot/lang/$currentlang"; $enlangdir = "$CFG->dirroot/lang/en"; if (! $stringfiles = get_directory_list($enlangdir, "", false)) { error("Could not find English language pack!"); } foreach ($stringfiles as $key => $file) { if (substr($file, -4) != ".php") { unset($stringfiles[$key]); } } if ($mode == "missing" and confirm_sesskey()) { // For each file, check that a counterpart exists, then check all the strings foreach ($stringfiles as $file) { if (!file_exists("$langdir/$file")) { if (!touch("$langdir/$file")) { echo "

".get_string("filemissing", "", "$langdir/$file")."

"; continue; } } unset($string); include("$enlangdir/$file"); $enstring = $string; unset($string); include("$langdir/$file"); $first = true; foreach ($enstring as $key => $value) { if (!isset($string[$key]) or $string[$key] == "") { $value = htmlspecialchars($value); $value = str_replace("$"."a", "\\$"."a", $value); $value = str_replace("%%","%",$value); if ($first) { echo "

".get_string("stringsnotset","","$langdir/$file")."

";
                        $first = false;
                        $somethingfound = true;
                    }
                    echo "$"."string['$key'] = \"$value\";
";
                }
            }
            if (!$first) {
                echo '
'; } } if (! $files = get_directory_list("$CFG->dirroot/lang/en/help", "CVS")) { error("Could not find English language help files!"); } foreach ($files as $filekey => $file) { // check all the help files. if (!file_exists("$langdir/help/$file")) { echo "

".get_string("filemissing", "", "$langdir/help/$file")."

"; $somethingfound = true; continue; } } if (! $files = get_directory_list("$CFG->dirroot/lang/en/docs", "CVS")) { error("Could not find English language docs files!"); } foreach ($files as $filekey => $file) { // check all the docs files. if (!file_exists("$langdir/docs/$file")) { echo "

".get_string("filemissing", "", "$langdir/docs/$file")."

"; $somethingfound = true; continue; } } if (!empty($somethingfound)) { print_continue("lang.php"); } else { notice(get_string("languagegood"), "lang.php"); } } else if ($mode == "compare" and confirm_sesskey()) { if (isset($_POST['currentfile'])){ // Save a file $newstrings = $_POST; unset($newstrings['currentfile']); if (lang_save_file($langdir, $currentfile, $newstrings)) { notify(get_string("changessaved")." ($langdir/$currentfile)", "green"); } else { error("Could not save the file '$currentfile'!", "lang.php?mode=compare&currentfile=$currentfile&sesskey=$USER->sesskey"); } } print_heading_with_help($strcomparelanguage, "langedit"); print_simple_box_start("center", "80%"); echo '
'; foreach ($stringfiles as $file) { if ($file == $currentfile) { echo "$file   "; } else { echo "sesskey\">$file   "; } } echo '
'; print_simple_box_end(); print_heading("$currentfile", "center", 4); if (!file_exists("$langdir/$currentfile")) { if (!touch("$langdir/$currentfile")) { echo "

".get_string("filemissing", "", "$langdir/$currentfile")."

"; continue; } } error_reporting(0); if ($f = fopen("$langdir/$currentfile","r+")) { $editable = true; fclose($f); } else { $editable = false; echo "

".get_string("makeeditable", "", "$langdir/$currentfile")."

"; } error_reporting(7); unset($string); include("$enlangdir/$currentfile"); $enstring = $string; if ($currentlang != 'en') { $enstring['thislanguage'] = "<< TRANSLATORS: Specify the name of your language here. If possible use Unicode Numeric Character References >>"; $enstring['thischarset'] = "<< TRANSLATORS: Specify the character set of your language here. Note that all text created while this language is active will be stored using this character set, so don't change it once you have set it. Example: iso-8859-1 >>"; $enstring['thisdirection'] = "<< TRANSLATORS: This string specifies the direction of your text, either left-to-right or right-to-left. Insert either 'ltr' or 'rtl' here. >>"; $enstring['parentlanguage'] = "<< TRANSLATORS: If your language has a Parent Language that Moodle should use when strings are missing from your language pack, then specify the code for it here. If you leave this blank then English will be used. Example: nl >>"; } ksort($enstring); unset($string); include("$langdir/$currentfile"); if ($editable) { echo "
"; echo ''; } echo ""; foreach ($enstring as $key => $envalue) { $envalue = nl2br(htmlspecialchars($envalue)); $envalue = preg_replace('/(\$a\-\>[a-zA-Z0-9]*|\$a)/', '$0', $envalue); // Make variables bold. $envalue = str_replace("%%","%",$envalue); $envalue = str_replace("\\","",$envalue); // Delete all slashes echo "\n\n"; echo "\n"; echo "\n"; $value = $string[$key]; $value = str_replace("\r","",$value); // Bad character caused by Windows $value = preg_replace("/\n{3,}/", "\n\n", $value); // Collapse runs of blank lines $value = trim($value, "\n"); // Delete leading/trailing lines $value = str_replace("\\","",$value); // Delete all slashes $value = str_replace("%%","%",$value); $value = str_replace("<","<",$value); $value = str_replace(">",">",$value); $value = str_replace('"',""",$value); $cellcolour = $value ? $THEME->cellcontent: $THEME->highlight; if ($editable) { echo ""; } echo "\n"; } else { echo "\n"; } } if ($editable) { echo ""; } echo "
cellheading\" nowrap=\"nowrap\" valign=\"top\">$keycellheading\" valign=\"top\">$envalue\n"; if (isset($string[$key])) { $valuelen = strlen($value); } else { $valuelen = strlen($envalue); } $cols=50; if (strstr($value, "\r") or strstr($value, "\n") or $valuelen > $cols) { $rows = ceil($valuelen / $cols); echo "\n"; } else { if ($valuelen) { $cols = $valuelen + 2; } echo "$value
 
"; echo " "; echo " "; echo " "; echo "
"; echo "
"; } print_footer(); ////////////////////////////////////////////////////////////////////// function lang_save_file($path, $file, $strings) { // Thanks to Petri Asikainen for the original version of code // used to save language files. // // $path is a full pathname to the file // $file is the file to overwrite. // $strings is an array of strings to write global $CFG, $USER; error_reporting(0); if (!$f = fopen("$path/$file","w")) { return false; } error_reporting(7); fwrite($f, "release ($CFG->version)\n\n\n"); ksort($strings); foreach ($strings as $key => $value) { list($id, $stringname) = explode("-",$key); if ($CFG->lang != "zh_hk" and $CFG->lang != "zh_tw") { // Some MB languages include backslash bytes $value = str_replace("\\","",$value); // Delete all slashes } $value = str_replace("'", "\\'", $value); // Add slashes for ' $value = str_replace('"', "\\\"", $value); // Add slashes for " $value = str_replace("%","%%",$value); // Escape % characters $value = str_replace("\r", "",$value); // Remove linefeed characters if ($id == "string" and $value != ""){ fwrite($f,"\$string['$stringname'] = '$value';\n"); } } fwrite($f,"\n?>\n"); fclose($f); return true; } ?>