html5.php 51 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075
  1. <?php
  2. /**
  3. * Class that implements ilm_handle, in order to allow manipulation and management of HTML5 iLM
  4. *
  5. * @author Igor Moreira Félix
  6. * @author Patricia Alves Rodrigues
  7. * @author Leônidas O. Brandão
  8. * @version v 1 2017/17/10
  9. * @package mod_iassign_ilm_handlers
  10. * @copyright iMatica (<a href="http://www.matematica.br">iMath</a>) - Computer Science Dep. of IME-USP (Brazil)
  11. *
  12. * <b>License</b>
  13. * - http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  14. */
  15. global $CFG;
  16. require_once $CFG->dirroot . '/mod/iassign/ilm_handle.php';
  17. class html5 implements ilm_handle {
  18. /// Produce HTML code to load iLM
  19. public static function build_ilm_tags ($ilm_id, $options = array()) {
  20. global $DB, $OUTPUT;
  21. global $CONF_WWW; //TODO 1 => use iLM under WWW; otherwise use under MoodleData
  22. $html = "";
  23. if (empty($options['Proposition']))
  24. $options['Proposition'] = "";
  25. if (empty($options['addresPOST']))
  26. $options['addresPOST'] = "";
  27. if (empty($options['student_answer']))
  28. $options['student_answer'] = "";
  29. if (empty($options['notSEND']))
  30. $options['notSEND'] = "";
  31. else // Case it is authoring put 'notSEND' (important to iVProgH5 to present authoring tool)
  32. if ($options['type'] == "editor_update")
  33. $options['notSEND'] = "true";
  34. if (empty($options['id_iLM_security'])) // if defined, it is from 'iassign_security'
  35. $options['id_iLM_security'] = "";
  36. $id_iLM_security = $options['id_iLM_security'];
  37. $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilm_id));
  38. if ($iassign_ilm) {
  39. // md_files : filename
  40. $ilm_extension = $iassign_ilm->extension; // use local variavel to efficiency (several use)
  41. if ($ilm_extension) { // avoid problems
  42. $ilm_extension = strtolower($ilm_extension);
  43. }
  44. // Attention: in iAssign 2014 on, all the iLM is located on the Moodle filesystem (usually /var/moodledata/filedir/).
  45. // This means that '$iassign_ilm->file_jar' = '*_files.id'
  46. $file_url = array();
  47. $fs = get_file_storage();
  48. $files_jar = explode(",", $iassign_ilm->file_jar);
  49. $url = $iassign_ilm->file_class; // to HTML5 package, this 'file_class' must have the main HTML file
  50. array_push($file_url, $url);
  51. $lang = substr(current_language(), 0, 2);
  52. if ($options['type'] == "filter") { //leo
  53. $iassign_ilm_width = $options['width']; // or use? $iassign_ilm->width
  54. $iassign_ilm_height = $options['height']; // or use? $iassign_ilm->height
  55. } else { //leo
  56. $iassign_ilm_width = $iassign_ilm->width;
  57. $iassign_ilm_height = $iassign_ilm->height; // or use? $iassign_ilm->height
  58. }
  59. if (!empty($file_url)) { // There is an iLM file
  60. //TODO iLM_HTML5 :: Change to 'object', tag 'applet' was deprecated.
  61. $paramsStr = "?1=1";
  62. $html .= html5::show_ilm_commands();
  63. switch ($options['type']) {
  64. case "view":
  65. $paramsStr .= "&iLM_PARAM_Assignment=" . urlencode($options['Proposition']); //leo
  66. $paramsStr .= "&iLM_PARAM_SendAnswer=true";
  67. //TODO: REVIEW: this code is to insert iLM as HTML5 and to allow general parameter to any iLM
  68. //TODO: For now, 'iassign_ilm_config' is empty... let comment these lines
  69. //n $iassign_ilm_config = $DB->get_records('iassign_ilm_config', array('iassign_ilmid' => $ilm_id));
  70. //n foreach ($iassign_ilm_config as $ilm_config) {
  71. //n if (array_key_exists($ilm_config->param_name, $options)) {
  72. //n $ilm_config->param_value = $options[$ilm_config->param_name];
  73. //n $paramsStr .= "&" . $ilm_config->param_name . "=" . urlencode($ilm_config->param_value);
  74. //n }
  75. //n }
  76. break;
  77. case "filter":
  78. if ($options['toolbar'] == "disable")
  79. $paramsStr .= "&SOH_ADD=ADD";
  80. $paramsStr .= "&iLM_PARAM_AssignmentURL=true";
  81. $paramsStr .= "&iLM_PARAM_Assignment=" . urlencode($options['Proposition']);
  82. $paramsStr .= "&iLM_PARAM_SendAnswer=" . urlencode($options['notSEND']);
  83. $paramsStr .= "&iLM_PARAM_ServerToGetAnswerURL=" . urlencode($ilm_config->param_value);
  84. break; // static function build_ilm_tags($ilm_id, $options=array())
  85. case "activity": // build_ilm_tags
  86. //TODO To generalize to any HTML5 iLM, it is necessary to use 'iLM_PARAM_Assignment' and 'iLM_PARAM_SendAnswer'
  87. //TODO iLM_PARAM_Assignment=Proposition ; iLM_PARAM_SendAnswer=notSEND
  88. $paramsStr .= "&iLM_PARAM_AssignmentURL=true";
  89. // if ($options['special_param'] == 1) { }
  90. $paramsStr .= "&iLM_PARAM_Assignment=" . urlencode($options['Proposition']);
  91. $paramsStr .= "&iLM_PARAM_SendAnswer=" . urlencode($options['notSEND']);
  92. $paramsStr .= "&iLM_PARAM_ServerToGetAnswerURL=" . urlencode($options['addresPOST']);
  93. //TODO iLM_HTML5 :: To extend to any iLM in HTML5
  94. //TODO iLM_HTML5 :: it will allow to load dynamic parameters
  95. //T $iassign_activity_item_configs = $DB->get_records('iassign_statement_config', array('iassign_statementid' => $options['iassign_statement'] ));
  96. //T if ($iassign_activity_item_configs) {
  97. //T foreach ($iassign_activity_item_configs as $iassign_activity_item_config)
  98. //T $paramsStr .= "&" . $iassign_activity_item_config->param_name . "=" . urlencode($iassign_activity_item_config->param_value);
  99. //T }
  100. break;
  101. case "editor_new":
  102. $paramsStr .= "&iLM_PARAM_AssignmentURL=true";
  103. $paramsStr .= "&iLM_PARAM_SendAnswer=" . urlencode($options['notSEND']);
  104. $paramsStr .= "&iLM_PARAM_Authoring=true";
  105. break;
  106. case "editor_update":
  107. $paramsStr .= "&iLM_PARAM_AssignmentURL=true";
  108. $paramsStr .= "&iLM_PARAM_Assignment=" . urlencode($options['Proposition']);
  109. $paramsStr .= "&iLM_PARAM_SendAnswer=" . urlencode($options['notSEND']);
  110. $paramsStr .= "&iLM_PARAM_Authoring=true";
  111. break;
  112. default:
  113. $html .= iassign::warning_message_iassign('error_view_without_actiontype'); // $OUTPUT->notification(get_string('error_view_without_actiontype', 'iassign'), 'notifyproblem'); // The API allows for creation of four types of notification: error, warning, info, and success.
  114. } // switch($options['type'])
  115. $paramsStr .= "&lang=" . $lang; // get the language defined in Moodle
  116. $parameters = ' style="width: ' . $iassign_ilm_width . 'px; height: ' . $iassign_ilm_height . 'px;" ';
  117. $html .= '<iframe frameborder="0" name="iLM" id="iLM" src="' . $iassign_ilm->file_jar . $iassign_ilm->file_class . $paramsStr . '" ' . $parameters . '>' . "\n";
  118. $html .= '</iframe>' . "\n";
  119. } // if (!empty($file_url))
  120. } // if ($iassign_ilm)
  121. return $html;
  122. } // public static function build_ilm_tags($ilm_id, $options = array())
  123. public static function show_ilm_commands() {
  124. $html = "<script>function full_screen() {
  125. if('fullscreenEnabled' in document || 'webkitFullscreenEnabled' in document || 'mozFullScreenEnabled' in document || 'msFullscreenEnabled' in document) {
  126. if(document.fullscreenEnabled || document.webkitFullscreenEnabled || document.mozFullScreenEnabled || document.msFullscreenEnabled) {
  127. var element = document.getElementsByName('iLM').item(0);
  128. //requestFullscreen is used to display an element in full screen mode.
  129. if('requestFullscreen' in element) {
  130. element.requestFullscreen();
  131. }
  132. else if ('webkitRequestFullscreen' in element) {
  133. element.webkitRequestFullscreen();
  134. }
  135. else if ('mozRequestFullScreen' in element) {
  136. element.mozRequestFullScreen();
  137. }
  138. else if ('msRequestFullscreen' in element) {
  139. element.msRequestFullscreen();
  140. }
  141. }
  142. } else {
  143. $('.expand_button').addClass('disabled');
  144. }
  145. }</script>";
  146. $html .= "<div id='fullscreen' style='width: 800px;text-align: right;'><div onClick='full_screen()' style='color: blue; cursor: pointer; display: contents;'>".get_string('full_screen', 'iassign')."</div></div>";
  147. return $html;
  148. }
  149. /// Exibe a atividade no iLM
  150. // @calledby locallib.php : view_iLM(...)
  151. public static function show_activity_in_ilm ($iassign_statement_activity_item, $student_answer, $enderecoPOST, $view_teacherfileversion) {
  152. global $USER, $CFG, $COURSE, $DB, $OUTPUT;
  153. $special_param1 = $iassign_statement_activity_item->special_param1;
  154. $ilm = $DB->get_record('iassign_ilm', array('id' => $iassign_statement_activity_item->iassign_ilmid));
  155. $context = context_module::instance($USER->cm);
  156. //TODO Given an activity => find its correspondent file in Moodle data. Bad solution!
  157. //TODO Change the meaning of 'iassign_statement.file' from insertion order to the ID in table 'files'.
  158. //TODO This demands update to each 'iassign_statement', find its corresponding on in 'files', and update 'iassign_statement.file = files.id'
  159. if ($view_teacherfileversion) { // get the exercise in Moodle data (teacher file)
  160. $fileid = "";
  161. $fs = get_file_storage();
  162. $files = $fs->get_area_files($context->id, 'mod_iassign', 'exercise', $iassign_statement_activity_item->id); // iassign_statement_activity_item = table 'iassign_statement'
  163. if ($files) {
  164. foreach ($files as $value) {
  165. if ($value->get_filename() != '.')
  166. $fileid = $value->get_id();
  167. }
  168. }
  169. if (!$fileid) { // 'Something is wrong. Maybe your teacher withdrew this exercise file. Please, inform your teacher.';
  170. print iassign::warning_message_iassign('error_exercise_removed') . "<br/>\n"; // I couldn't find the file in table 'files'!
  171. }
  172. }
  173. $ilm_name = strtolower($ilm->name);
  174. $extension = iassign_utils::filename_extension($ilm_name);
  175. if ($view_teacherfileversion) { // $view_teacherfileversion==1 => load the exercise ('activity') from the 'moodledata' (id in 'files')
  176. // $content_or_id_from_ilm_security = $this->context->id;
  177. $content_or_id_from_ilm_security = $fileid; // $iassign_statement_activity_item->file;
  178. }
  179. else { // $view_teacherfileversion==null => load the learner answer from the data base (iassign_submission)
  180. $content_or_id_from_ilm_security = $student_answer;
  181. }
  182. $allow_submission = false; // There is permission to 'submission' button?
  183. //VERIFICAR ESTE IF
  184. if ($USER->iassignEdit == 1 && $student_answer) { // for now, only iVProg2 and iVProgH5 allows editions of exercise already sent
  185. $allow_submission = true; // yes!
  186. $write_solution = 1;
  187. $enderecoPOST .= "&write_solution=1"; // complement POST address indicating that the learner could send edited solution
  188. }
  189. // Security: this avoid the student get a second access to the file content (usually an exercise)
  190. // Data are registered in the table '*_iassign_security' bellow and is erased by function 'view()' above.
  191. // IMPORTANT: the '$end_file' will receive the iLM content URL using the security filter './mod/iassign/ilm_security.php'
  192. // the iLM must request the content using this URL. Data are registered in the table '*_iassign_security'.
  193. // Attention : using iVProgH5 there are lot of " and the use of slashes (as '\"') will imply in iVProgH5 do not read the file!
  194. // do not use: $id_iLM_security = $this->write_iLM_security($iassign_statement_activity_item->id, addslashes($content_or_id_from_ilm_security));
  195. //2017 $id_iLM_security = $this->write_iLM_security($iassign_statement_activity_item->id, $content_or_id_from_ilm_security); // insert in 'iassign_security'
  196. //2017 $this->remove_old_iLM_security_entries($USER->id, $iassign_statement_activity_item->id); // additional security: erase eventually old entries
  197. require_once ($CFG->dirroot . '/mod/iassign/ilm_security.php');
  198. $timecreated = time();
  199. $token = md5($timecreated); // iassign_iLM_security->timecreated);
  200. $id_iLM_security = ilm_security::write_iLM_security($USER->id, $timecreated, $iassign_statement_activity_item->id, $content_or_id_from_ilm_security); // insert in 'iassign_security'
  201. // $iassign_iLM_security = $DB->get_record("iassign_security", array("id" => $id_iLM_security));
  202. $end_file = $CFG->wwwroot . '/mod/iassign/ilm_security.php?id=' . $id_iLM_security . '&token=' . $token . '&view=' . $view_teacherfileversion; // need full path...
  203. //
  204. $iassign = "
  205. <script type='text/javascript'>
  206. //<![CDATA[
  207. var strAnswer = '';
  208. var evaluationResult = '';
  209. var comment = '';
  210. function jsAnalyseAnswer () {
  211. document.getElementById('spinner-loading').style.visibility = 'visible';
  212. setTimeout(function(){
  213. document.getElementById('spinner-loading').style.visibility = 'hidden';
  214. }, 5000);
  215. // iVProgH5 will call function 'getEvaluationCallback(...)': /var/www/html/ivprogh5/js/services.js
  216. // 'getEvaluation()' calls 'js/services.js : endTest function(index)' that calls 'getEvaluationCallback(apro/100);'
  217. // sumEval = getSummation(); alert('mod/iassign/ilm/ifractions_5/index.html: sumEval = ' + sumEval);
  218. //CUIDADO 2017/11/22 - usar 'window.frames.iLM' resultava neste ponto 'TypeError: window.frames.iLM.getEvaluation is not a function'
  219. //CUIDADO resp = window.frames.iLM.getEvaluation();
  220. resp = window.frames[0].getEvaluation(); // pegar diretamente a primeir janela (nao pode haver outra!)
  221. if (resp == 'undefined') // in './mod/iassign/ilm/ivprog-html/js/services.js'; './mod/iassign/ilm/ivprog-html/main.html'
  222. return false;
  223. return true;
  224. }
  225. window.flagclick = false;
  226. // ./mod/iassign/ilm/ivprog-html/js/services.js : call this to define the variable 'evaluationResult'
  227. function getEvaluationCallback (evaluation) {
  228. let submissionbehavior = ".$ilm->submissionbehavior.";
  229. evaluationResult = evaluation;
  230. //leo 2017/11/22 strAnswer = window.frames.iLM.getAnswer();
  231. strAnswer = window.frames[0].getAnswer();
  232. // alert('getEvaluationCallback(...)' + evaluation + ', strAnswer=' + strAnswer);
  233. //comment = document.formEnvio.submission_comment.value;
  234. //leo alert('getEvaluationCallback: enviando evaluationResult=' + evaluation + ', strAnswer=' + strAnswer);
  235. if ((strAnswer==null || strAnswer=='' || strAnswer==-1)/* && (comment==null || comment=='')*/) { // undefined
  236. alert('" . get_string('activity_empty', 'iassign') . "'); // 'Activity sent without content.'
  237. return false; // error...
  238. }
  239. else if (submissionbehavior == 1) {
  240. document.formEnvio.iLM_PARAM_ArchiveContent.value = strAnswer;
  241. document.formEnvio.iLM_PARAM_ActivityEvaluation.value = evaluationResult;
  242. document.formEnvio.iLM_PARAM_RealGrade.value = evaluation;
  243. //D alert(strAnswer);
  244. document.formEnvio.submit();
  245. return true; // success
  246. } else if (submissionbehavior == 0) {
  247. var formData = new FormData();
  248. formData.append('iLM_PARAM_ArchiveContent', strAnswer);
  249. formData.append('iLM_PARAM_ActivityEvaluation', evaluationResult);
  250. formData.append('iLM_PARAM_RealGrade', evaluation);
  251. formData.append('iLM_ajax', 1);
  252. var request = new XMLHttpRequest();
  253. request.open('POST', '$enderecoPOST');
  254. request.onload = function (e) {
  255. if (!window.flagclick) return;
  256. window.flagclick = false;
  257. document.getElementById('spinner-loading').style.visibility = 'hidden';
  258. if (request.readyState === 4) {
  259. if (request.status === 200) {
  260. document.getElementById('check-message-success-submission').style.visibility = 'visible';
  261. setTimeout(function(){
  262. document.getElementById('check-message-success-submission').style.visibility = 'hidden';
  263. }, 3000);
  264. } else {
  265. document.getElementById('error-message-submission').style.visibility = 'visible';
  266. }
  267. } else {
  268. document.getElementById('error-message-submission').style.visibility = 'visible';
  269. }
  270. };
  271. request.send(formData);
  272. }
  273. }
  274. //]]>
  275. </script>\n";
  276. $iassign .= "\n<center>\n<form name='formEnvio' id='formEnvio' method='post' action='$enderecoPOST' enctype='multipart/form-data'>\n";
  277. // Attention: The actual iLM content will be provided by the indirect access in './mod/iassign/ilm_security.php',
  278. // bellow only the 'token' to the content will be shown in URL (by security reason). The iLM must use this URL on
  279. // 'MA_PARAM_Proposition' to request the content.
  280. // Calls static function bellow: parameters are data to store in table '*_iassign_submission'
  281. // In 'locallib.php ! class ilm_settings ! static function build_ilm_tags($ilm_id, $options = array())' that calls 'build_ilm_tags(.)' from here
  282. $iassign .= ilm_settings::build_ilm_tags($ilm->id, array(
  283. "type" => "activity",
  284. "notSEND" => "false",
  285. "addresPOST" => $enderecoPOST,
  286. "Proposition" => $end_file,
  287. "special_param" => $special_param1,
  288. "student_answer" => $student_answer,
  289. "id_iLM_security" => $id_iLM_security,
  290. "iassign_statement" => $iassign_statement_activity_item->id // MOOC 2016
  291. ));
  292. //DEBUG To verify iLM
  293. //D $iassign .= "
  294. //D <script type='text/javascript'>
  295. //D //alert('./mod/iassign/ilm_handlers/html5.php: 1 window.frames[0].getEvaluation()=' + window.frames[0].getEvaluation()); //
  296. //D alert('./mod/iassign/ilm_handlers/html5.php: 1 window.frames[0].getAnswer()=' + window.frames[0].getAnswer()); //
  297. //D </script>\n";
  298. if (!isguestuser() && $iassign_statement_activity_item->type_iassign != 1
  299. && ($ilm->editingbehavior == 1 || ($ilm->editingbehavior == 0 && !in_array($_GET['action'], array('viewsubmission', 'view'))))) {
  300. $iassign .= " <input type='hidden' name='iLM_PARAM_ArchiveContent' value=''>\n";
  301. $iassign .= " <input type='hidden' name='iLM_PARAM_ActivityEvaluation' value=''>\n";
  302. $iassign .= " <input type='hidden' name='iLM_PARAM_RealGrade' value=''>\n";
  303. $disabled_button = "";
  304. if ($ilm->action_buttons == 1)
  305. $disabled_button = "";
  306. elseif ($ilm->action_buttons == 0)
  307. $disabled_button = " disabled='true' ";
  308. //$iassign .= "<p><textarea rows='2' cols='60' name='submission_comment'></textarea></p>\n";
  309. $iassign .= "<center>\n<!-- load button -->\n" .
  310. " <br> <br> <button $disabled_button class='btn btn-primary' type=button value='" . get_string('submit_iassign', 'iassign') . "' onClick = 'window.flagclick = true; window.jsAnalyseAnswer();' title='" .
  311. get_string('message_submit_iassign', 'iassign') . "'>" . get_string('submit_iassign', 'iassign') . "</button> <i id='check-message-success-submission' class='fa fa-check' aria-hidden='true' style='position: absolute; color: green; font-size: 2.0rem; margin-left: 1rem; visibility: hidden;'><span style='font-size: 1.0rem;'>".get_string('get_answer', 'iassign')."</span></i><i id='error-message-submission' class='fa fa-times' aria-hidden='true' style='position: absolute; color: red; font-size: 2.0rem; margin-left: 1rem; visibility: hidden;'><span style='font-size: 1.0rem;'>".get_string('error_insert_submissions', 'iassign')."</span></i>\n" . " <div class='spinner-border' style='position: absolute; margin-left: 1rem; visibility: hidden;' id='spinner-loading' role='status'>
  312. <span class='sr-only'>Loading...</span>
  313. </div> </center>\n";
  314. } // if (!isguestuser() && $iassign_statement_activity_item->type_iassign != 1)
  315. elseif ($ilm->editingbehavior == 0 && $student_answer) {
  316. $iassign .= "<center><br><a href=\"view.php?action=repeat&id=".$_GET['id']
  317. ."&iassign_current=".$_GET['iassign_current']."\">
  318. <button type='button' class='btn btn-success' value='".get_string('repeat', 'iassign')."'>".get_string('repeat', 'iassign')."</button></a></center>";
  319. }
  320. $iassign .= "</form></center>\n\n";
  321. return $iassign;
  322. } // public static function show_activity_in_ilm($iassign_statement_activity_item, $student_answer, $enderecoPOST, $view_teacherfileversion)
  323. /// Presents iLM information
  324. public static function view_ilm ($ilmid, $from) {
  325. global $DB;
  326. $url = new moodle_url('/admin/settings.php', array('section' => 'modsettingiassign'));
  327. $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilmid));
  328. $str = "";
  329. $str .= '<table id="outlinetable" cellpadding="5" width="100%" >' . "\n";
  330. $str .= '<tr>';
  331. $str .= '<td colspan=3 align=right>';
  332. if ($from != 'admin') {
  333. $str .= '<input type=button value="' . get_string('return', 'iassign') . '" onclick="javascript:window.location = \'' . $_SERVER['HTTP_REFERER'] . '\';">' . "\n";
  334. }
  335. $str .= '<input type=button value="' . get_string('close', 'iassign') . '" onclick="javascript:window.close();">';
  336. $str .= '</td>' . "\n";
  337. $str .= '</tr>' . "\n";
  338. if ($iassign_ilm) {
  339. $iassign_statement_activity_item = $DB->get_records('iassign_statement', array("iassign_ilmid" => $iassign_ilm->id));
  340. if ($iassign_statement_activity_item) {
  341. $total = count($iassign_statement_activity_item);
  342. } else {
  343. $total = 0;
  344. }
  345. if ($from == 'admin') {
  346. $str .= '<tr><td colspan=2>' . "\n";
  347. $str .= '<table width="100%" class="generaltable boxaligncenter" >' . "\n";
  348. $str .= '<tr>' . "\n";
  349. $str .= '<td class=\'cell c0 actvity\' ><strong>' . get_string('activities', 'iassign') . ':</strong>&nbsp;' . $total . '</td>' . "\n";
  350. $str .= '<td><strong>' . get_string('url_ilm', 'iassign') . '</strong>&nbsp;<a href="' . $iassign_ilm->url . '">' . $iassign_ilm->url . '</a></td>' . "\n";
  351. $str .= '</tr>' . "\n";
  352. $str .= '<tr><td colspan=2><strong>' . get_string('description', 'iassign') . ':</strong>&nbsp;' . iassign_language::get_description_lang(current_language(), $iassign_ilm->description) . '</td></tr>' . "\n";
  353. $str .= '<tr><td width="50%"><strong>' . get_string('type_ilm', 'iassign') . ':</strong>&nbsp;' . $iassign_ilm->type . '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<strong>' . get_string('extension', 'iassign') . ':</strong>&nbsp;' . $iassign_ilm->extension . '</td>' . "\n";
  354. $str .= '<td width="50%"><strong>' . get_string('width', 'iassign') . ':</strong>&nbsp;' . $iassign_ilm->width;
  355. $str .= '&nbsp;&nbsp;<strong>' . get_string('height', 'iassign') . ':</strong>&nbsp;' . $iassign_ilm->height . '</td></tr>' . "\n";
  356. $date_jar = $iassign_ilm->file_jar;
  357. $str .= '<tr><td><strong>' . get_string('file_jar', 'iassign') . ':</strong>&nbsp;' . $date_jar . '</td>' . "\n";
  358. $str .= '<td ><strong>' . get_string('file_class', 'iassign') . ':</strong>&nbsp;' . $iassign_ilm->file_class . '</td></tr>' . "\n";
  359. if ($iassign_ilm->evaluate == 1) {
  360. $evaluate = get_string('yes', 'iassign');
  361. } else {
  362. $evaluate = get_string('no', 'iassign');
  363. }
  364. $str .= '<tr><td width="50%"><strong>' . get_string('evaluate', 'iassign') . ':</strong>&nbsp;' . $evaluate . '</td>' . "\n";
  365. if ($iassign_ilm->enable == 1) {
  366. $enable = get_string('yes', 'iassign');
  367. } else {
  368. $enable = get_string('no', 'iassign');
  369. }
  370. $str .= '<td width="50%"><strong>' . get_string('enable', 'iassign') . ':</strong>&nbsp;' . $enable . '</td></tr>' . "\n";
  371. $str .= '<tr>' . "\n";
  372. $str .= '<td width="50%"><strong>' . get_string('file_created', 'iassign') . ':</strong>&nbsp;' . userdate($iassign_ilm->timecreated) . '</td>' . "\n";
  373. $str .= '<td width="50%"><strong>' . get_string('file_modified', 'iassign') . ':</strong>&nbsp;' . userdate($iassign_ilm->timemodified) . '</td>' . "\n";
  374. $str .= '</tr>' . "\n";
  375. $user_ilm = $DB->get_record('user', array('id' => $iassign_ilm->author));
  376. if ($user_ilm) {
  377. $str .= '<tr>' . "\n";
  378. $str .= '<td colspan=2><strong>' . get_string('author', 'iassign') . ':</strong>&nbsp;' . $user_ilm->firstname . '&nbsp;' . $user_ilm->lastname . '</td>' . "\n";
  379. $str .= '</tr>' . "\n";
  380. }
  381. $str .= '</table>' . "\n";
  382. $str .= '</td></tr>' . "\n";
  383. }
  384. if (!empty($iassign_ilm->file_jar)) {
  385. //TODO: REVIEW: to be used for parameters of "applet" from DB
  386. $options = array("type" => "view"); //MOOC2014: start
  387. $str .= '<tr class=\'cell c0 actvity\'><td colspan=3 align=center bgcolor="#F5F5F5">' . "\n";
  388. // Second parameter null since 'iassign_security' are not define yet
  389. $str .= ilm_settings::build_ilm_tags($iassign_ilm->id, $options);
  390. //TODO: REVIEW: missing code to manage parameters
  391. //MOOC2014: tem este codigo!
  392. } else {
  393. $str .= '<tr class=\'cell c0 actvity\'>' . "\n";
  394. $str .= '<td colspan=2 align=center>' . get_string('null_file', 'iassign') . '</td>' . "\n";
  395. $str .= '<td align=center><a href="' . $url . '</a></td>' . "\n";
  396. $str .= '</tr>' . "\n";
  397. }
  398. $str .= '</td></tr>' . "\n";
  399. }
  400. $str .= '</table>' . "\n";
  401. return $str;
  402. } // public static function view_ilm($ilmid, $from)
  403. /// Make a copy or produce a new version of an iLM
  404. // @see locallib.php : copy_new_version_ilm($param)
  405. public static function copy_new_version_ilm ($param, $files_extract) {
  406. global $DB, $CFG;
  407. $iassign_ilm = new stdClass();
  408. $iassign_ilm->name = $param->name;
  409. $iassign_ilm->version = $param->version;
  410. $iassign_ilm->file_jar = null;
  411. $application_xml = @simplexml_load_file($CFG->dataroot . '/temp/' . 'ilm-application.xml', null, LIBXML_NOCDATA); //2019
  412. $file_jar = self::save_ilm_by_xml($application_xml, $files_extract); // iLM ṕath (since iAssign)> ./ilm/...
  413. if ($file_jar == null) { // 'save_ilm_by_xml(...)' detected a problem (perhaps no write permission)
  414. return false;
  415. }
  416. $file_jar = str_replace("./", "", $file_jar) . "/";
  417. // From a single text in default language => generate multi-language
  418. //R $description = json_decode($param->description_lang);
  419. //R $description->{$param->set_lang} = $param->description;
  420. $description_json_lang = $param->description_lang;
  421. $newentry = new stdClass();
  422. $newentry->name = $param->name;
  423. $newentry->version = $param->version;
  424. $newentry->type = 'HTML5';
  425. $newentry->url = $param->url;
  426. $newentry->description = $description_json_lang; //R strip_tags(json_encode($description));
  427. $newentry->extension = strtolower($param->extension);
  428. $newentry->file_jar = $file_jar;
  429. $newentry->file_class = $param->file_class;
  430. $newentry->width = $param->width;
  431. $newentry->height = $param->height;
  432. $newentry->enable = 0;
  433. $newentry->timemodified = $param->timemodified;
  434. $newentry->timecreated = $param->timecreated;
  435. $newentry->evaluate = $param->evaluate;
  436. $newentry->author = $param->author;
  437. $newentry->parent = $param->parent;
  438. $newentry->id = $DB->insert_record("iassign_ilm", $newentry);
  439. // log event --------------------------------------------------------------------------------------
  440. iassign_log::add_log('copy_iassign_ilm', 'name: ' . $param->name . ' ' . $param->version, 0, $newentry->id);
  441. // log event --------------------------------------------------------------------------------------
  442. } // public static function copy_new_version_ilm($param, $files_extract)
  443. /// Export the iLM to the IPZ package
  444. public static function export_ilm ($ilm_id) {
  445. global $DB, $CFG;
  446. $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilm_id));
  447. $iassign_ilm_configs = $DB->get_records('iassign_ilm_config', array('iassign_ilmid' => $ilm_id)); //MOOC 2016
  448. /*if (!$iassign_ilm_configs) return;*/
  449. $files_jar = $iassign_ilm->file_jar;
  450. $zip_filename = $CFG->dataroot . '/temp/ilm-' . iassign_utils::format_pathname($iassign_ilm->name . '-v' . $iassign_ilm->version) . '_' . date("Ymd-Hi") . '.ipz';
  451. $zip = new zip_archive;
  452. $zip->open($zip_filename);
  453. $rootdir = $CFG->dirroot . '/mod/iassign/' . $files_jar;
  454. $first_folder = str_replace($CFG->dirroot . '/mod/iassign/ilm/', "", $rootdir);
  455. $zip->add_directory($first_folder);
  456. $allfiles = self::list_directory($rootdir);
  457. $i = 0;
  458. foreach ($allfiles as $file) {
  459. $mini = str_replace($CFG->dirroot . '/mod/iassign/ilm/', "", $file);
  460. $mini = str_replace('//', "/", $mini);
  461. if (is_dir($file)) {
  462. $zip->add_directory($mini);
  463. } else {
  464. $zip->add_file_from_pathname($mini, $file);
  465. }
  466. }
  467. $folder = str_replace('ilm/', "", $files_jar);
  468. $application_descriptor = '<?xml version="1.0" encoding="utf-8"?>' . "\n";
  469. $application_descriptor .= '<application xmlns="http://line.ime.usp.br/application/1.5">' . "\n";
  470. $application_descriptor .= ' <name>' . $iassign_ilm->name . '</name>' . "\n";
  471. $application_descriptor .= ' <url>' . $iassign_ilm->url . '</url>' . "\n";
  472. $application_descriptor .= ' <version>' . $iassign_ilm->version . '</version>' . "\n";
  473. $application_descriptor .= ' <type>' . $iassign_ilm->type . '</type>' . "\n";
  474. $application_descriptor .= ' <description>' . html_entity_decode(str_replace(array('<p>', '</p>'), array('', ''), $iassign_ilm->description)) . '</description>' . "\n";
  475. $application_descriptor .= ' <extension>' . $iassign_ilm->extension . '</extension>' . "\n";
  476. $application_descriptor .= ' <file_jar>' . $folder . '</file_jar>' . "\n";
  477. $application_descriptor .= ' <file_class>' . $iassign_ilm->file_class . '</file_class>' . "\n";
  478. $application_descriptor .= ' <width>' . $iassign_ilm->width . '</width>' . "\n";
  479. $application_descriptor .= ' <height>' . $iassign_ilm->height . '</height>' . "\n";
  480. $application_descriptor .= ' <evaluate>' . $iassign_ilm->evaluate . '</evaluate>' . "\n";
  481. $application_descriptor .= ' <reevaluate>' . $iassign_ilm->reevaluate . '</reevaluate>' . "\n";
  482. $application_descriptor .= ' <editingbehavior>' . $iassign_ilm->editingbehavior . '</editingbehavior>' . "\n";
  483. $application_descriptor .= ' <submissionbehavior>' . $iassign_ilm->submissionbehavior . '</submissionbehavior>' . "\n";
  484. $application_descriptor .= ' <action_buttons>' .
  485. $iassign_ilm->action_buttons . '</action_buttons>' . "\n";
  486. if ($iassign_ilm_configs) { //MOOC 2016
  487. $application_descriptor .= ' <params>' . "\n";
  488. foreach ($iassign_ilm_configs as $iassign_ilm_config) {
  489. $application_descriptor .= ' <param>' . "\n";
  490. $application_descriptor .= ' <type>' . $iassign_ilm_config->param_type . '</type>' . "\n";
  491. $application_descriptor .= ' <name>' . $iassign_ilm_config->param_name . '</name>' . "\n";
  492. $application_descriptor .= ' <value>' . $iassign_ilm_config->param_value . '</value>' . "\n";
  493. $application_descriptor .= ' <description>' . htmlentities(str_replace("\n", "", $iassign_ilm_config->description)) . '</description>' . "\n";
  494. $application_descriptor .= ' <visible>' . $iassign_ilm_config->visible . '</visible>' . "\n";
  495. $application_descriptor .= ' </param>' . "\n";
  496. }
  497. $application_descriptor .= ' </params>' . "\n";
  498. } //MOOC 2016
  499. $application_descriptor .= '</application>' . "\n";
  500. $zip->add_file_from_string('ilm-application.xml', $application_descriptor);
  501. $zip->close();
  502. header("Pragma: public");
  503. header("Expires: 0");
  504. header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
  505. header("Cache-Control: private", false);
  506. header("Content-Type: application/zip");
  507. header("Content-Disposition: attachment; filename=\"" . basename($zip_filename) . "\";");
  508. header("Content-Transfer-Encoding: binary");
  509. header("Content-Length: " . (filesize($zip_filename)));
  510. set_time_limit(0);
  511. readfile($zip_filename) || die("File not found.");
  512. unlink($zip_filename);
  513. exit;
  514. } // public static function export_ilm($ilm_id)
  515. /// Function for list the directory where iLM is allocated.
  516. // @param type $dir
  517. // @return type
  518. static function list_directory ($dir) {
  519. $files = array();
  520. $cont = 0;
  521. $ffs = scandir($dir);
  522. unset($ffs[array_search('.', $ffs, true)]);
  523. unset($ffs[array_search('..', $ffs, true)]);
  524. if (count($ffs) < 1) {
  525. return;
  526. }
  527. foreach ($ffs as $ff) {
  528. $files[$cont] = $dir . "/" . $ff;
  529. $cont++;
  530. if (is_dir($dir . '/' . $ff)) {
  531. $temp = self::list_directory($dir . '/' . $ff);
  532. foreach ($temp as $t) {
  533. $files[$cont] = $t;
  534. $cont++;
  535. }
  536. }
  537. }
  538. return $files;
  539. }
  540. public static function delete_ilm($ilm_id) {
  541. global $DB, $CFG, $OUTPUT;
  542. $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilm_id));
  543. // Prepare the path of directory to be removed
  544. $path_w = rtrim($iassign_ilm->file_jar, "/");
  545. $folder_to_remove = substr($path_w, 0, strrpos($path_w, '/') + 1);
  546. // Check if the iLM directory is writable
  547. if (!is_writable($iassign_ilm->file_jar)) {
  548. return null;
  549. }
  550. self::delete_dir($folder_to_remove);
  551. $ilm_folder = "ilm/" . $iassign_ilm->name . "/";
  552. $k = 0;
  553. // Verify if iLM parent directory is empty, if yes, remove it
  554. foreach(glob($ilm_folder . "*", GLOB_ONLYDIR) as $dir) {
  555. $k ++;
  556. break;
  557. }
  558. if ($k == 0) {
  559. self::delete_dir($ilm_folder);
  560. }
  561. $DB->delete_records("iassign_ilm", array('id' => $ilm_id));
  562. $DB->delete_records("iassign_ilm_config", array('iassign_ilmid' => $ilm_id)); //MOOC 2016
  563. // log event --------------------------------------------------------------------------------------
  564. iassign_log::add_log('delete_iassign_ilm', 'name: ' . $iassign_ilm->name . ' ' . $iassign_ilm->version, 0, $iassign_ilm->id);
  565. // log event --------------------------------------------------------------------------------------
  566. return $iassign_ilm->parent;
  567. }
  568. /// Receive the updated data from an iLM to process it
  569. // @calledby locallib.php: static function edit_ilm($param,$itemid): $typec::edit_ilm($param,$itemid,$files_extract,$contextuser);
  570. public static function edit_ilm ($param, $itemid, $files_extract, $contextuser) {
  571. global $DB, $CFG;
  572. $iassign_ilm = new stdClass();
  573. $iassign_ilm->name = $param->name;
  574. $iassign_ilm->version = $param->version;
  575. $iassign_ilm->file_jar = $param->file_jar;
  576. $file_jar = null;
  577. if (!is_null($files_extract)) { // if there is a new iLM (from IPZ pachage)
  578. $file_jar = self::save_ilm_by_xml(null, $files_extract);
  579. if ($file_jar == null) {
  580. return false;
  581. }
  582. $file_jar = str_replace("./", "", $file_jar) . "/";
  583. }
  584. if (is_null($file_jar)) {
  585. // there is not definition to 'file_jar' in the IPZ packege, use eventually something entered by the form
  586. $file_jar = $param->file_jar;
  587. }
  588. $description = json_decode($param->description_lang);
  589. $description->{$param->set_lang} = $param->description;
  590. $updentry = new stdClass();
  591. $updentry->id = $param->id;
  592. $updentry->version = $param->version;
  593. $updentry->url = $param->url;
  594. // $updentry->description = json_encode($description); //R strip_tags(json_encode($description)); // will replace any special character by tags
  595. // $updentry->description = html_entity_decode((String)$param->description_lang); - the same as above
  596. $updentry->description = json_encode($description, JSON_UNESCAPED_UNICODE); // encode using UTF8
  597. $updentry->extension = strtolower($param->extension);
  598. if (!is_null($file_jar)) {
  599. $updentry->file_jar = $file_jar;
  600. }
  601. $updentry->file_class = $param->file_class;
  602. $updentry->width = $param->width;
  603. $updentry->height = $param->height;
  604. $updentry->enable = $param->enable;
  605. $updentry->timemodified = $param->timemodified;
  606. $updentry->evaluate = $param->evaluate;
  607. //D echo "./ilm_handlers/html5.php: edit_ilm(...): file_jar=$file_jar, file_class=" . $updentry->file_class . "<br/>"; //D exit;
  608. $DB->update_record("iassign_ilm", $updentry);
  609. // log event --------------------------------------------------------------------------------------
  610. iassign_log::add_log('update_iassign_ilm', 'name: ' . $param->name . ' ' . $param->version, 0, $param->id);
  611. // log event --------------------------------------------------------------------------------------
  612. } // public static function edit_ilm($param, $itemid, $files_extract, $contextuser)
  613. /// Function for save iLM file in moodledata
  614. // @param int $itemid Itemid of file save in draft (upload file)
  615. // @param int $ilm_id Id of iLM
  616. // @return string Return an string with ids of iLM files
  617. static function new_file_ilm ($itemid, $fs, $contextuser, $contextsystem, $files_ilm) {
  618. global $CFG, $USER, $DB;
  619. if ($files_ilm) {
  620. foreach ($files_ilm as $value) {
  621. // Check if it is an HTML5 iLM
  622. // Copy:
  623. $destination = 'ilm_debug/' . $value->get_filename();
  624. $value->copy_content_to($destination);
  625. // Extract the content:
  626. $zip = new ZipArchive();
  627. $extracted = './ilm';
  628. $dir = "";
  629. if ($zip->open($destination) === TRUE) {
  630. $dir = './ilm/' . trim($zip->getNameIndex(0));
  631. if (is_dir($dir)) {
  632. $i = 1;
  633. $previous = str_replace("/", "", $zip->getNameIndex(0));
  634. while (file_exists('./ilm/' . $previous . "_" . $i)) {
  635. $i ++;
  636. }
  637. $name = $previous . "_" . $i;
  638. $dir = './ilm/' . $name . "/";
  639. $j = 0;
  640. while ($item_name = $zip->getNameIndex($j)) {
  641. $zip->renameIndex($j, str_replace($previous, $name, $item_name));
  642. $j++;
  643. }
  644. $zip->close();
  645. }
  646. $zip->open($destination);
  647. $zip->extractTo($extracted);
  648. $zip->close();
  649. // After extract, remove from debug:
  650. unlink($destination);
  651. } else { // if ($zip->open($destination) === TRUE)
  652. // After trying to extract, occurring error, erase ZIP file:
  653. unlink($destination);
  654. print_error('error_add_ilm_zip', 'iassign');
  655. }
  656. return $dir;
  657. } // foreach ($files_ilm as $value)
  658. } // if ($files_ilm)
  659. } // static function new_file_ilm($itemid, $fs, $contextuser, $contextsystem, $files_ilm)
  660. /// Register data to the new iLM (in database and in proper directory)
  661. public static function new_ilm ($itemid, $files_extract, $application_xml, $contextuser, $fs) {
  662. global $DB, $CFG, $USER, $OUTPUT;
  663. $description_str = str_replace(array('<description>', '</description>'), array('', ''), $application_xml->description->asXML());
  664. $iassign_ilm = $DB->get_record('iassign_ilm', array("name" => (String) $application_xml->name, "version" => (String) $application_xml->version));
  665. if ($iassign_ilm) {
  666. foreach ($files_extract as $key => $value) {
  667. $rootfolder = $CFG->dataroot . '/temp/' . $key;
  668. self::delete_dir($rootfolder);
  669. break;
  670. }
  671. print($OUTPUT->notification(get_string('error_import_ilm_version', 'iassign'), 'notifyproblem')); // There is another iLM with the sama version!
  672. return false;
  673. }
  674. else {
  675. $file_jar = self::save_ilm_by_xml($application_xml, $files_extract);
  676. if ($file_jar == null) {
  677. return false;
  678. }
  679. $file_jar = str_replace("./", "", $file_jar);
  680. if (empty($file_jar)) {
  681. $msg_error = get_string('error_add_ilm', 'iassign') . "<br/>In new_ilm: file_jar empty, files_extract=" . $files_extract . "<br/>\n";
  682. print_error($msg_error);
  683. //xx print_error('error_add_ilm', 'iassign');
  684. //print("New file = " . file_jar . "<br/>");
  685. }
  686. else { // if (empty($file_jar))
  687. $iassign_ilm = $DB->get_record('iassign_ilm', array("parent" => 0, "name" => (String) $application_xml->name));
  688. if (!$iassign_ilm) {
  689. $iassign_ilm = new stdClass(); //MOOC 2016
  690. $iassign_ilm->id = 0;
  691. }
  692. $newentry = new stdClass();
  693. $newentry->name = (String) $application_xml->name;
  694. $newentry->version = (String) $application_xml->version;
  695. $newentry->type = (String) $application_xml->type;
  696. $newentry->url = (String) $application_xml->url;
  697. $newentry->description = strip_tags($description_str);
  698. $newentry->extension = strtolower((String) $application_xml->extension);
  699. $newentry->file_jar = $file_jar . "/";
  700. $newentry->file_class = (String) $application_xml->file_class;
  701. $newentry->width = (String) $application_xml->width;
  702. $newentry->height = (String) $application_xml->height;
  703. $newentry->enable = 0;
  704. $newentry->timemodified = time();
  705. $newentry->author = $USER->id;
  706. $newentry->timecreated = time();
  707. $newentry->evaluate = (String) $application_xml->evaluate;
  708. $newentry->reevaluate = (String) $application_xml->reevaluate;
  709. $newentry->parent = $iassign_ilm->id;
  710. $newentry->editingbehavior = (String) $application_xml->editingbehavior;
  711. $newentry->submissionbehavior = (String) $application_xml->submissionbehavior;
  712. $newentry->action_buttons = (String) $application_xml->action_buttons;
  713. $newentry->id = $DB->insert_record("iassign_ilm", $newentry);
  714. // log event --------------------------------------------------------------------------------------
  715. iassign_log::add_log('add_iassign_ilm', 'name: ' . $newentry->name . ' ' . $newentry->version, 0, $newentry->id);
  716. // log event --------------------------------------------------------------------------------------
  717. if ($application_xml->params->param) {
  718. foreach ($application_xml->params->param as $value) {
  719. $newentry = new stdClass();
  720. $newentry->iassign_ilmid = $iassign_ilmid;
  721. $newentry->param_type = (String) $value->type;
  722. $newentry->param_name = (String) $value->name;
  723. $newentry->param_value = (String) $value->value;
  724. $newentry->description = html_entity_decode((String) $value->description);
  725. $newentry->visible = (String) $value->visible;
  726. $newentry->id = $DB->insert_record("iassign_ilm", $newentry);
  727. if (!$newentry->id) {
  728. print_error('error_add_param', 'iassign');
  729. }
  730. }
  731. }
  732. }
  733. }
  734. $fs->delete_area_files($contextuser->id, 'user', 'draft', $itemid);
  735. return true;
  736. } // public static function new_ilm($itemid, $files_extract, $application_xml, $contextuser, $fs)
  737. /// Import an iLM
  738. public static function import_ilm ($itemid, $files_extract, $application_xml, $contextuser, $fs) {
  739. global $DB, $CFG, $USER, $OUTPUT;
  740. $description_str = str_replace(array('<description>', '</description>'), array('', ''), $application_xml->description->asXML());
  741. $iassign_ilm = $DB->get_record('iassign_ilm', array("name" => (String) $application_xml->name, "version" => (String) $application_xml->version));
  742. if ($iassign_ilm) {
  743. foreach ($files_extract as $key => $value) {
  744. $rootfolder = $CFG->dataroot . '/temp/' . $key;
  745. self::delete_dir($rootfolder);
  746. break;
  747. }
  748. print($OUTPUT->notification(get_string('error_import_ilm_version', 'iassign'), 'notifyproblem'));
  749. }
  750. else {
  751. $file_jar = self::save_ilm_by_xml($application_xml, $files_extract);
  752. if ($file_jar == null) {
  753. return false;
  754. }
  755. $file_jar = str_replace("./", "", $file_jar);
  756. if (empty($file_jar)) {
  757. $msg_error = get_string('error_add_ilm', 'iassign') . "<br/>In import_ilm: file_jar empty, files_extract=" . $files_extract . "<br/>\n";
  758. print_error($msg_error);
  759. //xx print_error('error_add_ilm', 'iassign');
  760. //print("Import file = " . file_jar . "<br/>");
  761. }
  762. else { // if (empty($file_jar))
  763. $iassign_ilm = $DB->get_record('iassign_ilm', array("parent" => 0, "name" => (String) $application_xml->name));
  764. if (!$iassign_ilm) {
  765. $iassign_ilm = new stdClass(); //MOOC 2016
  766. $iassign_ilm->id = 0;
  767. }
  768. $newentry = new stdClass();
  769. $newentry->name = (String) $application_xml->name;
  770. $newentry->version = (String) $application_xml->version;
  771. $newentry->type = (String) $application_xml->type;
  772. $newentry->url = (String) $application_xml->url;
  773. $newentry->description = strip_tags($description_str);
  774. $newentry->extension = strtolower((String) $application_xml->extension);
  775. $newentry->file_jar = $file_jar . "/";
  776. $newentry->file_class = (String) $application_xml->file_class;
  777. $newentry->width = (String) $application_xml->width;
  778. $newentry->height = (String) $application_xml->height;
  779. $newentry->enable = 0;
  780. $newentry->timemodified = time();
  781. $newentry->author = $USER->id;
  782. $newentry->timecreated = time();
  783. $newentry->evaluate = (String) $application_xml->evaluate;
  784. $newentry->reevaluate = (String) $application_xml->reevaluate;
  785. $newentry->editingbehavior = (String) $application_xml->editingbehavior;
  786. $newentry->submissionbehavior = (String) $application_xml->submissionbehavior;
  787. $newentry->action_buttons = (String) $application_xml->action_buttons;
  788. $newentry->parent = $iassign_ilm->id;
  789. //MOOC 2016 $newentry->id = $DB->insert_record("iassign_ilm", $newentry);
  790. $iassign_ilmid = $DB->insert_record("iassign_ilm", $newentry);
  791. if ($application_xml->params->param) {
  792. foreach ($application_xml->params->param as $value) {
  793. $newentry = new stdClass();
  794. $newentry->iassign_ilmid = $iassign_ilmid;
  795. $newentry->param_type = (String) $value->type;
  796. $newentry->param_name = (String) $value->name;
  797. $newentry->param_value = (String) $value->value;
  798. $newentry->description = html_entity_decode((String) $value->description);
  799. $newentry->visible = (String) $value->visible;
  800. $newentry->id = $DB->insert_record("iassign_ilm", $newentry);
  801. if (!$newentry->id) {
  802. print_error('error_add_param', 'iassign');
  803. }
  804. }
  805. } // if ($application_xml->params->param)
  806. } // else if (empty($file_jar))
  807. print($OUTPUT->notification(get_string('ok_import_ilm_version', 'iassign'), 'notifysuccess'));
  808. }
  809. $fs->delete_area_files($contextuser->id, 'user', 'draft', $itemid);
  810. } // public static function import_ilm($itemid, $files_extract, $application_xml, $contextuser, $fs)
  811. // static function export_update_ilm($ilm_id) //MOOC 2016
  812. /// Function for save iLM from XML descriptor
  813. // @see html5.php : copy_new_version_ilm($param,$files_extract); edit_ilm($param,$itemid,$files_extract,$contextuser); new_ilm($itemid,$files_extract,$application_xml,$contextuser,$fs); import_ilm($itemid,$files_extract,$application_xml,$contextuser,$fs);
  814. // @param array $application_xml Data of XML descriptor
  815. // @param array $files_extract Filenames of extract files
  816. // @return string with the iLM path (since ./ilm/...)
  817. static function save_ilm_by_xml ($application_xml, $files_extract) {
  818. global $CFG, $USER, $OUTPUT;
  819. $source = "";
  820. $diretorio = "";
  821. // Check if the iLM directory is writable
  822. if (!is_writable("ilm/")) {
  823. print($OUTPUT->notification(get_string('error_folder_permission_denied', 'iassign'), 'notifyproblem'));
  824. exit;
  825. // return null; // Is safer to stop the processing in order to allow the reader of this error!
  826. }
  827. // The filter 'filename_from_iLM_name(...)' is essential to clear the name for directory from the iLM original name
  828. $application_file_name = iassign_utils::filename_from_iLM_name($application_xml->name, false); //2019
  829. // Check if iLM directory already exists
  830. if (!file_exists("ilm/" . $application_file_name)) {
  831. mkdir("ilm/" . $application_file_name, 0755, true); // 755 = rwxr-xr-x
  832. touch("ilm/" . $application_file_name . DIRECTORY_SEPARATOR . "index.html");
  833. }
  834. // Check if iLM version already exists in directory
  835. if (!file_exists("ilm/" . $application_file_name . "/" . $application_xml->version)) {
  836. mkdir("ilm/" . $application_file_name . DIRECTORY_SEPARATOR . $application_xml->version, 0755, true);
  837. touch("ilm/" . $application_file_name . DIRECTORY_SEPARATOR . $application_xml->version . DIRECTORY_SEPARATOR . "index.html");
  838. }
  839. else {
  840. $diretorio = "./" . "ilm/" . $application_file_name . DIRECTORY_SEPARATOR . $application_xml->version;
  841. //RR echo $diretorio."<br/>";
  842. print($OUTPUT->notification(get_string('error_import_ilm_version', 'iassign'), 'notifyproblem'));
  843. //RR return null;
  844. return $diretorio;
  845. }
  846. $root_ilm = "ilm/" . $application_file_name . "/" . $application_xml->version;
  847. // Extract iLM files to directory
  848. foreach ($files_extract as $key => $value) {
  849. $file = $CFG->dataroot . '/temp/' . $key;
  850. if (is_dir($file)) {
  851. $source = $file;
  852. $diretorio = $root_ilm . "/" . basename($file);
  853. // mkdir($diretorio, 0777, true);
  854. mkdir($diretorio, 0755, true);
  855. touch($diretorio . DIRECTORY_SEPARATOR . "index.html");
  856. break;
  857. }
  858. } // foreach ($files_extract as $key => $value)
  859. // Write in the MoodleData 'temp' directory, also in the WWW 'mod/iassign/ilm/'
  860. //D foreach ($iterator = new \RecursiveIteratorIterator(new \RecursiveDirectoryIterator($source, \RecursiveDirectoryIterator::SKIP_DOTS), \RecursiveIteratorIterator::SELF_FIRST) as $item
  861. foreach ($iterator = new RecursiveIteratorIterator(
  862. new RecursiveDirectoryIterator($source, RecursiveDirectoryIterator::SKIP_DOTS), RecursiveIteratorIterator::SELF_FIRST) as $item) {
  863. $directory_name = $diretorio . DIRECTORY_SEPARATOR . $iterator->getSubPathName();
  864. if ($item->isDir()) {
  865. mkdir($directory_name);
  866. touch($directory_name . DIRECTORY_SEPARATOR . "index.html");
  867. }
  868. else {
  869. copy($item, $directory_name);
  870. }
  871. }
  872. self::delete_dir($source);
  873. return "./" . $diretorio;
  874. } // static function save_ilm_by_xml($application_xml, $files_extract)
  875. /// Function for delete directory where the iLM is allocated.
  876. // @param string $dirPath
  877. // @throws InvalidArgumentException
  878. public static function delete_dir ($dirPath) {
  879. if (substr($dirPath, strlen($dirPath) - 1, 1) != '/') {
  880. $dirPath .= '/';
  881. }
  882. $files = glob($dirPath . '*', GLOB_MARK); //TODO This option 'glob' do not get file with dot (like '.versions'), chang to 'scandir($dir)'...
  883. foreach ($files as $file) {
  884. if (is_dir($file)) { //TODO if ($file != '.' && $file != '..')
  885. self::delete_dir($file);
  886. }
  887. else {
  888. unlink($file);
  889. }
  890. }
  891. if (is_dir($dirPath))
  892. rmdir($dirPath); //TODO Warning: rmdir(/var/data/moodle_data_saw/temp/ivprog-html/js/semantic/): Directory not empty in /var/www/html/saw_clone/mod/iassign/ilm_handlers/html5.php on line 962
  893. else
  894. print($OUTPUT->notification(get_string('error_file_jar_exists', 'iassign'), 'notifyproblem')); // just warning the user
  895. }
  896. } // class html5 implements ilm_handle
  897. ?>