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

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

";
                        $first = false;
                        $somethingfound = true;
                    }
                    echo "$"."string['$key'] = \"$value\";
";
                }
            }
        }
    
        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") {

        if (isset($_POST['file'])){   // Save a file
            $newstrings = $_POST;
            $file = $newstrings['file'];
            unset($newstrings['file']);
            if (lang_save_file($langdir, $file, $newstrings)) {
                notify(get_string("changessaved")." ($langdir/$file)");
            } else {
                error("Could not save the file '$file'!", "lang.php?mode=compare");
            }
        }

        print_heading($strcomparelanguage);
        echo "";
        helpbutton("langedit",$strcomparelanguage);
        echo "";

        foreach ($stringfiles as $file) {
        
            print_heading("$file", "LEFT", 4);

            if (!file_exists("$langdir/$file")) {
                echo "
".get_string("filemissing", "", "$langdir/$file")."
";
                continue;
            }
    
            error_reporting(0);
            if ($f = fopen("$langdir/$file","r+")) {
                $editable = true;
                fclose($f);
            } else {
                $editable = false;
                echo "
".get_string("makeeditable", "", "$langdir/$file")."
";
            }
            error_reporting(7);


            unset($string);
            include("$enlangdir/$file");
            $enstring = $string;  
            ksort($enstring);
    
            unset($string);
            include("$langdir/$file");

            if ($editable) {
                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);

                echo "";
                echo "";
                echo "";

                $value = $string[$key];
                $value = str_replace("\r","",$value);              // Bad character caused by Windows
                $value = str_replace("\n\n\n\n\n\n","\n",$value);  // Collapse runs of blank lines
                $value = str_replace("\n\n\n\n\n","\n",$value);
                $value = str_replace("\n\n\n\n","\n",$value);
                $value = str_replace("\n\n\n","\n",$value);
                $value = str_replace("\n\n\n","\n",$value);
                $value = str_replace("\\","",$value);              // Delete all slashes
                $value = str_replace("%%","%",$value);
                $value = htmlspecialchars($value);

                $cellcolour = $value ? $THEME->cellcontent: $THEME->highlight;

                if ($editable) {
                    echo "";
                    }
                    echo "";

                } else {
                    echo "";
                }
            }
            if ($editable) {
                echo "";
            }
            echo "
cellheading\" NOWRAP VALIGN=TOP>$key
cellheading\" VALIGN=TOP>$envalue
";
                    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 "$value";
                    } else {
                        if ($valuelen) {
                            $cols = $valuelen + 2;
                        }
                        echo "
$value
 
";
                echo "    ";
                echo "    ";
                echo "    ";
                echo "
";
            echo "
";
        }

        print_continue("lang.php");
    
    }

    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;

    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("$"."a", "\\$"."a", $value);   // Add slashes for $a
        $value = str_replace("\"", "\\\\\\\"", $value);     // Add slashes for "
        $value = str_replace("%","%%",$value);              // Escape % characters
        if ($id == "string" and $value != ""){
            fwrite($f,"\$string['$stringname'] = \"$value\";\n");
        }
    }
    fwrite($f,"\n?>\n");
    fclose($f);

    return true;
}

?>