';
+ //$selectionlabel .= $strfilestoredin;
+ $selectionlabel .= $uselocal ? "{$currentlang}_local" : $currentlang;
+ $selectionlabel .= '/';
popup_form("$CFG->wwwroot/$CFG->admin/lang.php?mode=compare¤tfile=", $menufiles, "choosefile",
- $currentfile, $strchoosefiletoedit);
-
- echo '';
- echo $uselocal ? "{$currentlang}_local" : $currentlang;
- echo '';
+ $currentfile, $strchoosefiletoedit, '', '', false, 'self', $selectionlabel);
helpbutton('langswitchstorage', $strfilestoredinhelp, 'moodle');
- echo '';
+ //$selectionlabel .= $strfilestoredin;
+ $selectionlabel .= $uselocal ? "{$currentlang}_local" : $currentlang;
+ $selectionlabel .= '/help/';
+ popup_form("$CFG->wwwroot/$CFG->admin/lang.php?mode=helpfiles¤tfile=", $menufiles, "choosefile",
+ $currentfile, $strchoosefiletoedit, '', '', false, 'self', $selectionlabel);
+ helpbutton('langswitchstorage', $strfilestoredinhelp, 'moodle');
+ print_box_end();
+
+ if (!empty($currentfile)) {
+
+ if (!file_exists("$saveto/$currentfile")) {
+ $dbg .= "File does not exist: $saveto/$currentfile\n";
+ //check if directory exist
+ if (!file_exists(dirname("$saveto/$currentfile"))) {
+ if(!lang_make_directory(dirname("$saveto/$currentfile"))) {
+ echo ('Cannot create directory: '.dirname("$saveto/$currentfile"));
+ }
+ }
+ //
+ // file doesn't exist - let's check webserver's permission to create it
+ //
+ if (!@touch("$saveto/$currentfile")) {
+ //
+ // webserver is unable to create new file
+ //
+ notify(get_string('filemissing', '', "$saveto/$currentfile" ));
+ notify(get_string('makeeditable', '', "$saveto/$currentfile"));
+ $editable = false;
+ } else {
+ //
+ // webserver can create new file - we can delete it now and let
+ // it create again if its filesize() > 0
+ //
+ $editable = true;
+ unlink("$saveto/$currentfile");
+ }
+ } elseif (is_writable("$saveto/$currentfile")) {
+ $editable = true;
+ } else {
+ //
+ // file exists but it is not writeable by web server process :-(
+ //
+ $editable = false;
+ notify(get_string('makeeditable', '', "$saveto/$currentfile"));
+ }
+
+ // master en_utf8 in dataroot is not editable
+ if ((!$uselocal) && ($currentlang == 'en_utf8')) {
+ $editable = false;
+ }
+
+ echo '';
+ print_r($dbg);
+ print_r("\n\$currentfile = $currentfile");
+ print_r("\n\$enlangdir = $enlangdir");
+ print_r("\n\$langdir = $langdir");
+ print_r("\n\$locallangdir = $locallangdir");
+ print_r("\n\$saveto = $saveto");
+ print_r("\n\$altdir = $altdir");
+ print_r("\n\$origlocation = $origlocation");
+ print_r("\n\$origplugin = $origplugin");
+ print_r("\n\$ensrc = $ensrc");
+ print_r("\n\$helpfiles = ");
+ print_r($helpfiles);
+ echo '';
+ }
+
+ } // fi $mode == 'helpfiles'
+
admin_externalpage_print_footer();
@@ -790,6 +1016,8 @@ function lang_fix_value_before_save($value='') {
/**
* Try and create a new language directory.
*
+ * Uses PHP>=5.0 syntax of mkdir and tries to create directories recursively.
+ *
* @uses $CFG
* @param string $directory full path to the directory under $langbase
* @return string|false Returns full path to directory if successful, false if not
@@ -798,7 +1026,7 @@ function lang_make_directory($dir, $shownotices=true) {
global $CFG;
umask(0000);
if (! file_exists($dir)) {
- if (! @mkdir($dir, $CFG->directorypermissions)) {
+ if (! @mkdir($dir, $CFG->directorypermissions, true)) { // recursive=true; PHP>=5.0 needed
return false;
}
//@chmod($dir, $CFG->directorypermissions); // Just in case mkdir didn't do it
@@ -1002,4 +1230,141 @@ function lang_get_file_info($currentfile, $stringfiles) {
}
}
+/**
+ * Returns all English help files in the standard lang/en_utf8/help location.
+ *
+ * Core help files should always be stored here and not in the module space (MDL-10920).
+ * The English version of the file may be found in
+ * $CFG->dirroot/lang/en_utf8/help/filename
+ * The localised version of the found file should be saved into
+ * $CFG->dataroot/lang/currentlang[_local]/help/filename
+ * where "filename" is returned as a part of the file record.
+ *
+ * @return array Array of a file information. Compatible format with {@link lang_extra_locations()}
+ */
+function lang_help_standard_locations() {
+ global $CFG;
+ $files = array();
+ // Standard location of master English help files.
+ $places = array($CFG->dirroot.'/lang/en_utf8/help');
+ foreach ($places as $place) {
+ foreach (get_directory_list($place, 'CVS') as $file) {
+ if ((substr($file, -5) == '.html') || (substr($file, -4) == '.txt' )) {
+ $fullpath = $place.'/'.$file;
+ $files[$fullpath] = array(
+ 'filename' => $file,
+ 'location' => '',
+ 'plugin' => '',
+ 'prefix' => '',
+ );
+ }
+ }
+ }
+ return $files;
+}
+
+/**
+ * Returns all English help files in non-standard location.
+ *
+ * Searches for lang/en_utf8/help/* files in various types of plugins (blocks, database presets, question types,
+ * 3rd party modules etc.) and returns an array of found files details.
+ *
+ * The English version of the file may be found in
+ * $CFG->dirroot/location/plugin/lang/en_utf8/help/filename
+ * The localised version of the found file should be saved into
+ * $CFG->dataroot/lang/currentlang[_local]/help/prefix_plugin/filename (XXX is "prefix" here right?)
+ * where "location", "plugin", "prefix" and "filename" are returned as a part of the file record.
+ *
+ * @return array Array of a file information. Compatible format with {@link lang_standard_locations()}
+ */
+function lang_help_extra_locations() {
+ global $CFG;
+ $files = array();
+ $places = places_to_search_for_lang_strings();
+ foreach ($places as $prefix => $directories) {
+ if ($prefix != '__exceptions') {
+ foreach ($directories as $directory) {
+ foreach (get_list_of_plugins($directory) as $plugin) {
+ $enlangdirlocation = $CFG->dirroot.'/'.$directory.'/'.$plugin.'/lang/en_utf8/help';
+ foreach (get_directory_list($enlangdirlocation, 'CVS') as $file) {
+ if ((substr($file, -5) == '.html') || (substr($file, -4) == '.txt' )) {
+ $fullpath = $enlangdirlocation.'/'.$file;
+ $files[$fullpath] = array(
+ 'filename' => $file,
+ 'location' => $directory,
+ 'plugin' => $plugin,
+ 'prefix' => $prefix,
+ );
+ }
+ }
+ }
+ }
+ }
+ }
+ return $files;
+}
+
+/**
+ * Return a preview URL for help file, if available.
+ *
+ * @param string $currentfile The relative path to the help file, e.g. "assignment/types.html" - MDL-12291
+ * @param bool $skiplocal Force displaying the helpfile from a master lang pack
+ * @param string $forcelang Force language of the help, e.g. "en_utf8"
+ * @return string $url
+ */
+function lang_help_preview_url($currentfile, $skiplocal=false, $forcelang = '') {
+ $currentpathexp = explode('/', $currentfile);
+ if (count($currentpathexp) > 1) {
+ $url = '/help.php?module='.implode('/',array_slice($currentpathexp,0,count($currentpathexp)-1)).'&file='.end($currentpathexp);
+ } else {
+ $url = '/help.php?module=moodle&file='.$currentfile;
+ }
+ if ($skiplocal) {
+ $url .= '&skiplocal=1';
+ }
+ if ($forcelang) {
+ $url .= '&forcelang='.$forcelang;
+ }
+ return $url;
+}
+
+
+/**
+ * Saves (overwrites) translated help file.
+ *
+ * @param string $helproot The path to the "help" folder
+ * @param string $file The relative path to the html help file
+ * @param string $content HTML data to be saved
+ * @return bool False if save failed, true otherwise
+ */
+function lang_help_save_file($helproot, $file, $content) {
+ global $CFG, $USER;
+
+ $content = str_replace("\r", "",$content); // Remove linefeed characters
+ $content = preg_replace("/\n{3,}/", "\n\n", $content); // Collapse runs of blank lines
+ $content = trim($content); // Delete leading/trailing whitespace
+ if (is_readable("$helproot/$file") && filesize("$helproot/$file") > 0 && $content == '') {
+ notify(get_string('langrmyourself', 'admin'));
+ return true;
+ }
+
+ error_reporting(0);
+ if (!$f = fopen("$helproot/$file","w")) {
+ error_reporting($CFG->debug);
+ return false;
+ }
+ error_reporting($CFG->debug);
+
+ fwrite($f, stripslashes($content));
+ fclose($f);
+
+ // Remove file if its empty
+ if (filesize("$helproot/$file") == 0) {
+ unlink("$helproot/$file");
+ }
+
+ return true;
+}
+
+
?>