special_param1==1) $lTA=true;' to call '$ilm->view_iLM(...lTA)' * * - v 4.9 2017/03/13 * + Great number of changes to allow the use o iVProgH5 (e.g. function changed: from 'applet_ilm' to 'build_ilm_tags') * * - v 4.8 2016/05/12 * + Function add_to_log() is deprecated it was then rewritten to the new events API * + Resolved: the field "description" table "iassign_ilm" was being filled with the codes in HTML when importing magnet package and * due to this the language field was not being displayed because in place of the quotes was recorded in the & quot field. * ("$description_str = htmlentities(str_replace(array('',''), array('',''), $application_xml->description->asXML()));" * replaced by * "description_str = str_replace(array('',''), array('',''), $application_xml->description->asXML());") * - v 4.7 2016/02/17 * + Moodle 3.X: now iAssign is working fine under version 3.X (iassign/version.php: '$module->' changed to '$plugin->'; iassign/locallib.php: 'format_text(...)' replaced 'filter_text(...)') * + Improved: now is possible to see the iGeom menus in preview (from iAssign Repository) - it depends on the version 1.3 of iAssign filter! * + Improved: new names for 'form.input.MA_POST_Archive' and 'form.input.MA_POST_Value', now: 'iLM_PARAM_ArchiveContent' and 'iLM_PARAM_ActivityEvaluation' * + BUG fixed: now it is fine the "online" edition of activities (in iAssign Repository) - inserted 'iLM_PARAM_Authoring' (iLM 2) and 'MA_POST_ArchiveTeacher' (iLM 1) * + BUG fixed: it is possible to change the name of any file in iAssign Repository - problems was in 'optional_param(...)', 'PARAM_TEXT' replaced 'PARAM_ALPHANUMEXT' * + BUG fixed: it is possible to duplicate any file in iAssign Repository - problems also in 'optional_param(...)', 'PARAM_TEXT' replaced 'PARAM_ALPHANUMEXT' * + BUG fixed: now is possible to edit an iAssign activity with no new object been created (in iGeom: turn an example in exercise) * * --------------- (code bellow was used at our MOOC 2014) * - v 4.6 2014/02/25 * + Fix bugs in filter function for open applets. * - v 4.5 2014/02/24 * + Fix bugs in params. * + Insert new param type. * - v 4.4 2014/01/24 * + Allow select type of params. * + Insert the use of applet params specific for activities. * - v 4.3 2014/01/23 * + Insert function for move activities for other iLM (ilm_settings::confirm_move_iassign, ilm_settings::move_iassign). * - v 4.2 2016/02/13 * + Fixed API usage to work fine under Moodle 3.X: ilm_editor_new() * --------------- (above code used at our MOOC 2014) * * - v 4.1 2013/12/13 * + Insert log in iAssign actions. * + Allow use the language in iLM description (ilm_settings::new_file_ilm, ilm_settings::new_ilm, ilm_settings::edit_ilm, ilm_settings::copy_new_version_ilm, ilm_settings::add_edit_copy_ilm, iassign_language::get_description_lang, iassign_language::get_all_lang). * + Insert class for Log actions in system. * - v 4.0 2013/10/31 * + Insert support of export iLM in zip packages (ilm_settings::export_ilm). * + Insert support of import iLM from zip packages (ilm_settings::import_ilm). * + Fix bugs in message alert in iassign title and remove message alert of the description by cache error. * - v 3.9 2013/10/25 * + Insert support of upgrade iLM. * + Insert support for more than one extension in iLM. * + Fix bugs in verion control. * - v 3.8 2013/09/19 * + Get data of general fields in iassign statement table (iassign::add_edit_iassign). * - v 3.7 2013/09/12 * + Change tag APPLET in all functions of module (ilm::view_iLM, ilm_manager::ilm_editor_new, ilm_manager::ilm_editor_update). * + Insert tool for manage aditional params for iLM (ilm_settings::add_edit_copy_param, ilm_settings::visible_param, ilm_settings::add_param, ilm_settings::edit_param, ilm_settings::copy_param, ilm_settings::delete_param). * - v 3.6 2013/09/05 * + Insert function ilm_settings::applet_ilm for create APPLET html tag. * + Insert function ilm_settings::applet_filetime for get modified date of iLM file. * + Change tag APPLET in function ilm_settings::view_ilm. * - v 3.5 2013/08/26 * + Fix bug in download package iassign without answers (iassign::report). * - v 3.4 2013/08/23 * + Fix bug in export package iassign. * - v 3.3 2013/08/22 * + Insert functions for export users answer in iassign (iassign::export_file_answer, iassign::export_package_answer, iassign::view_iassign_current, iassign::report). * + Insert function for rename iassign file (ilm_manager::rename_file_ilm, ilm_manager::view_files_ilm). * - v 3.2 2013/08/21 * + Change title link with message for get file for donwload file (ilm_manager::view_files_ilm). * + Change functions for import files for ilm_manager.php. * + Create static utils class for functions system utils (iassign_utils::format_filename, iassign_utils::version_filename). * - v 3.1 2013/08/15 * + Change return file selected (ilm_manager::add_ilm). * + Insert functions for import files, export files and remove selected files (ilm_manager::view_files_ilm, ilm_manager::import_files_ilm, ilm_manager::export_files_ilm, ilm_manager::delete_selected_ilm). * - v 3.0 2013/08/02 * + Insert link for view informations of iLMs in teacher view, same screen of admin view but wiht some features hide (ilm_settings::list_ilm, ilm_settings::view_ilm, iassign::view_iassigns). * - v 2.9 2013/08/01 * + Fix bugs in functions ilm_settings::new_file_ilm, ilm_settings::copy_new_version_ilm, ilm_settings::add_edit_copy_ilm. * - v 2.8 2013/07/25 * + Insert the activity name in header of view (activity::view_dates). * + Set function default iLM in view iLMs versions (ilm_settings::default_ilm and ilm_settings::confirm_default_ilm). * - v 2.7 2013/07/24 * + Create link previous and next for student view in one activity (activity::view_dates). * + Fix bugs for view error in iLM not on DB in function iassign::view_iassign_current. * - v 2.6 2013/07/23 * + Fix bugs for view files in function ilm_manager::view_files_ilm. * + Fix bugs for comment on teacher view in function iassign::view_iassign_current. * - v 2.5 2013/07/12 * + Change iLM settings for accept versions (ilm_settings::new_file_ilm, ilm_settings::new_ilm, ilm_settings::edit_ilm, ilm_settings::copy_new_version_ilm). * + Insert new informations in iLMs table: created date, modified date, author, version, modified date of JAR (ilm_settings::view_ilm). * + Added support for PHP 7.0 Constructors and fallback for previous Moodle Versions (<3.1) - Márcio * * @author Patricia Alves Rodrigues * @author Leônidas O. Brandão * @contributor Igor Moreira Félix (2018-) * @contributor Márcio de Lima Passos (2014) * @version v 4.9.2 2019/03/13 * @version v 4.8 2016/05/12 * @package mod_iassign_lib * @since 2010/09/27 * @copyright iMath (http://www.matematica.br) and LInE (http://line.ime.usp.br) - Computer Science Dep. of IME-USP (Brazil) * * License * - http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later */ //TODO Review: eliminate iLM JAR under MoodleData? It is necessary to HTML5 packages (like iVProgH5), anyway //TODO Whenever under HTTPS, verify if MoodleData is working, if it is not, please use iLM JAR under WWW setting $CONF_WWW = 1 //TODO (under HTTPS could fail 'pluginfile', like 'https://saw.atp.usp.br/pluginfile.php/1/mod_iassign/ilm/182563135/iassign/ilm/igeom/5920/iGeom.jar"' $CONF_WWW = 1; //TODO get iLM (JAR) from WWW, avoiding MoodleData /** * Standard base class for all iAssign */ class iassign { var $cm; var $course; var $iassign; var $striassign; var $striassigns; var $context; var $activity; var $iassign_up; var $iassign_down; var $action; var $iassign_submission_current; var $userid_iassign; var $bottonPost; var $write_solution; var $view_iassign; // 3.1 update PHP 7.0 compatibility for all moodle versions //D public function iassign($iassign, $cm, $course) { self::__construct($iassign, $cm, $course); } /// Constructor for the base iassign class // @calledby ./mod/iassign/view.php : $iassigninstance = new iassign($iassign, $cm, $course) // @calledby ./mod/iassign/grade.php : $iassigninstance = new iassign($iassign, $cm, $course); // @calledby ./mod/iassign/renderer.php : return $this->render(new iassign_files($context, $itemid, $filearea)); function __construct ($iassign, $cm, $course) { global $COURSE, $CFG, $USER, $DB; $botton = optional_param('botton', NULL, PARAM_TEXT); $this->userid_iassign = optional_param('userid_iassign', 0, PARAM_INT); if (!is_null($botton)) $USER->iassignEdit = $botton; // The Moodle function 'optional_param(...)' allow to filter GET parameters over a click that launches, e.g., './mod/iassign/view.php&userid_iassign=6' // If "$var1 = optional_param('userid_iassign', 'NOT', PARAM_TEXT);", $var1 will be set to 6 (if 'userid_iassign' is not present, $var1 will be set to 'NOT' $this->iassign_up = optional_param('iassign_up', 0, PARAM_INT); // if parameter 'iassign_up' does not exists or it is not integer => use 0 as "default" $this->iassign_down = optional_param('iassign_down', 0, PARAM_INT); $this->iassign_submission_current = optional_param('iassign_submission_current', 0, PARAM_INT); $this->write_solution = optional_param('write_solution', 0, PARAM_INT); $this->action = optional_param('action', NULL, PARAM_TEXT); $this->cm = $cm; $this->context = context_module::instance($this->cm->id); if (!has_capability('mod/iassign:evaluateiassign', $this->context, $USER->id)) $this->userid_iassign = $USER->id; if ($course) { $this->course = $course; } else if ($this->cm->course == $COURSE->id) { $this->course = $COURSE; } else if (!$this->course = $DB->get_record('course', array('id' => $this->cm->course))) { print_error('invalidid', 'iassign'); } $this->coursecontext = context_course::instance($this->course->id); if ($iassign) { $this->iassign = $iassign; } else if (!$this->iassign = $DB->get_record('iassign', array('id' => $this->cm->instance))) { print_error('invalidid', 'iassign'); } $USER->context = context_module::instance($this->cm->id); $USER->cm = $this->cm->id; $this->iassign->cmidnumber = $this->cm->idnumber; // compatibility with modedit ia obj $this->iassign->courseid = $this->course->id; // compatibility with modedit ia obj $this->context = context_module::instance($this->cm->id); $this->striassign = get_string('modulename', 'iassign'); $this->striassigns = get_string('modulenameplural', 'iassign'); $this->return = $CFG->wwwroot . "/mod/iassign/view.php?id=" . $this->cm->id; $this->bottonPost = 0; $this->view_iassign = optional_param('action', false, PARAM_BOOL); $this->activity = new activity(optional_param('iassign_current', NULL, PARAM_TEXT)); // this is the activity inside iAssign block $this->view(); } // function __construct($iassign, $cm, $course) /// Show iAssign by using the security filter (temporary data on '*_iassign_security') // This method provides the page to view each iLM with any interactive activity // @calledby view.php : $iassigninstance->view($id); that instantiate 'iassign' (constructor above) function view () { // This is an standard function for each iAssign instance (to not use parameters, it is ignored) global $USER, $DB, $OUTPUT; // $iassign_statementid = $this->iassign->iassign_statementid; if ($this->activity!=null && $this->activity->get_activity()!=null && isset($this->activity->get_activity()->id)) $iassign_statementid = $this->activity->get_activity()->id; else $iassign_statementid = ""; // '$this' has : iassign Object = cm ; course ; iassign ; striassign ; striassigns ; context ; activity ; iassign_up ; iassign_down ; action ; ... ; coursecontext ; return // If this user has no capability to View 'iassign': stop here require_capability('mod/iassign:view', $this->context); // Trigger module view event $event = \mod_iassign\event\course_module_viewed::create(array( 'objectid' => $this->iassign->id, 'context' => $this->context )); $event->add_record_snapshot('course', $this->course); $event->trigger(); if ($this->action) { // when student do/redo activity or teacher see student solution $this->action(); // calls '$this->view_iLM();' } else { print $OUTPUT->header(); $this->view_iassigns(); // show the iLM with the content print $OUTPUT->footer(); } // Security: delete all records with an error loading iLM - 'iassign_security : id iassign_statementid userid file timecreated view' //D $DB->delete_records("iassign_security", array("userid" => $USER->id, "view" => 1)); //D $iassign_iLM_security = $DB->get_record("iassign_security", array("iassign_statementid" => $iassign_statementid)); //D foreach ($iassign_iLM_security as $item) { echo $iassign_iLM_security->id . " ; " . $iassign_iLM_security->iassign_statementid . " ; " . $iassign_iLM_security->userid . " ; " . $iassign_iLM_security->timecreated . " ; " . $iassign_iLM_security->view . " ; " . $iassign_iLM_security->file . "
\n" } $DB->delete_records("iassign_security", array("userid" => $USER->id, "iassign_statementid" => $iassign_statementid)); //D $iassign_iLM_security = $DB->get_record("iassign_security", array("iassign_statementid" => $iassign_statementid)); //D if ($iassign_iLM_security) foreach ($iassign_iLM_security as $item) { echo $iassign_iLM_security->id . " ; " . $iassign_iLM_security->iassign_statementid . " ; " . $iassign_iLM_security->userid . " ; " . $iassign_iLM_security->timecreated . " ; " . $iassign_iLM_security->view . " ; " . $iassign_iLM_security->file . "
\n" } //D else echo "Apagou!
"; die(); } // function view() /// Execute the action from Moodle (move, make visible, register the exercise (teacher) or its answer (learner)...) function action () { global $USER; // action: // up - move up activity (mover atividade para cima) // down - move down activity (mover atividade para baixo) // visible - view/hide activity (exibir/ocultar atividade) // delete - delete activity (excluir atividade) // deleteyes - confirms exclusion of activity (confirma exclusão de atividade) // deleteno - does not erase activity (não apaga atividade) // add - add activity (adicionar atividade) // edit - edit activity (modificar atividade) $action_iassign = array( 'newcomment' => '$this->add_comment();', 'view' => '$this->view_iassign_current();', 'get_answer' => '$this->get_answer();', 'repeat' => '$this->view_iassign_current();', 'overwrite' => '$this->get_answer();', 'stats_student' => '$this->stats_students();', 'download_answer' => '$this->export_file_answer();', 'download_all_answer' => '$this->export_package_answer();', 'notifications' => '$this->view_notifications();'); $action_iassign_limit = array( 'view' => '$this->view_iassign_current();', //'newcomment' => '$this->get_answer();', 'viewsubmission' => '$this->view_iassign_current();', 'edit_status' => '$this->edit_status();', 'edit_grade' => '$this->edit_grade();', 'export_csv' => '$this->export_csv();', 'report' => '$this->report();', 'print' => '$this->report();', 'stats' => '$this->stats();', 'printstats' => '$this->stats();'); $restricted = array('firstdown' => '$this->activity->move_iassign("firstdown", $this->iassign_down, $this->return);', 'up' => '$this->activity->move_iassign("up", $this->iassign_up, $this->return);', 'down' => '$this->activity->move_iassign("down", $this->iassign_down, $this->return);', 'visible' => '$this->activity->visible_iassign($this->return);', 'delete' => '$this->activity->delete($this->return);', 'deleteno' => '$this->return_home_course("confirm_not_delete_iassign");', 'deleteyes' => '$this->activity->deleteyes($this->return, $this);', 'add' => '$this->add_edit_iassign();', 'edit' => '$this->add_edit_iassign();', 'get_answer' => '$this->get_answer();', 'duplicate_activity' => '$this->duplicate_activity();', 'move_activity' => '$this->move_activity();', 'auto_evaluate' => '$this->auto_evaluate();', 'all_submissions' => '$this->all_submissions();', 'delete_submissions' => '$this->delete_submissions();', 'download_submissions' => '$this->download_submissions();', 'open_individual_submission' => '$this->open_individual_submission();', 'get_individual_submission' => '$this->get_individual_submission();', 'get_student_submission' => '$this->get_student_submission();', 'get_teacher_exercise' => '$this->get_teacher_exercise();', 'post_auto_eval_result' => '$this->post_auto_eval_result();', 'import_activity' => '$this->import_activity();', 'import_activity_confirm' => '$this->import_activity_confirm();' ); $action_iassign_restricted = array_merge($restricted, $action_iassign_limit, $action_iassign); // On depends the user's capability: precedence to edit power ('editiassign'); after to analyse ('evaluateiassign'); otherwise only view (any other). if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) { //xxxxxxxxxxxxxxxxxxxxxxxxxxx // When teacher is seeing student solution. By 'viewsubmission' goes to the function 'view_iassign_current()' eval($action_iassign_restricted[$this->action]); // Now load 'view_iassign_current()' with 'viewsubmission' or 'new_iassign($param)' by '$this->add_edit_iassign()' } elseif (has_capability('mod/iassign:evaluateiassign', $this->context, $USER->id)) { eval($action_iassign_limit[$this->action]); } else { // Student reaches this point // When student do/redo activity: do => action = "view"; redo => action = "repeat" // Arrive here with: "get_answer"; "view" if (isset($action_iassign[$this->action])) // avoid error if non capable user try direct acess eval($action_iassign[$this->action]); // Now load 'view_iassign_current()' with 'view' } } // function action() /// This method prints the student submission to a specific exercise function get_student_submission () { global $DB; $student = optional_param('iassign_student', NULL, PARAM_TEXT); $exercise = optional_param('iassign_exercise', NULL, PARAM_TEXT); if (!$student || !$exercise) exit; $iassign_submission = $DB->get_record("iassign_submission", array("iassign_statementid" => $exercise, "userid" => $student)); if ($iassign_submission) print($iassign_submission->answer); die(); } /// This method prints the teacher exercise function get_teacher_exercise () { global $DB, $COURSE; $ilmid = optional_param('iassign_exercise', NULL, PARAM_INT); $iassign_statement = $DB->get_record("iassign_statement", array("id" => $ilmid)); $fs = get_file_storage(); // Get reference to all files in Moodle data //2021/12: $files = $fs->get_area_files(context_module::instance($this->cm->id)->id, 'mod_iassign', 'exercise', $iassign_statement->filesid); //TODO 2022: trocar "$iassign_statement->id" por "$iassign_statement->file"??? $files = $fs->get_area_files(context_module::instance($this->cm->id)->id, 'mod_iassign', 'exercise', $iassign_statement->id); foreach ($files as $file) { if ($file->get_filename() != ".") { print($file->get_content()); } } die(); } /// This method receives the data from auto_eval event /// @see auto_evaluate() function post_auto_eval_result () { global $COURSE, $CFG, $USER, $DB; if (!has_capability('mod/iassign:runautoevaluate', $USER->context, $USER->id)) exit; //$exercise="+exercises[actual_exercise]+"&student="+students[actual_student]+"&grade="+(grade * actual_value), $exercise = optional_param('iassign_exercise', -1, PARAM_INT); $student = optional_param('student', -1, PARAM_INT); $grade = optional_param('grade', 0, PARAM_FLOAT); // 1: Recuperar a nota atual: $actual = $DB->get_record('iassign_submission', array('iassign_statementid' => $exercise, 'userid' => $student)); // 2: Atualizar a tabela: $update_entry = new stdClass(); $update_entry->id = $actual->id; $update_entry->previous_grade = $actual->grade; $update_entry->grade = $grade; // Update the iassign_submission $DB->update_record("iassign_submission", $update_entry); } /// Function to help download all_submissions files function download_submissions_help ($list) { global $DB, $CFG, $OUTPUT; // Get list of iLMs $ilm_list = $DB->get_records("iassign_ilm"); // Get list of enrolled students: $params_temp = array('shortname' => 'student'); $role = $DB->get_record_sql("SELECT s.id, s.shortname FROM {role} s WHERE s.shortname = :shortname", $params_temp); $context = context_course::instance($this->course->id); $params_temp = array('contextid' => $context->id, 'roleid' => $role->id); $students_list = $DB->get_records_sql( "SELECT s.userid, a.firstname, a.lastname FROM {role_assignments} s, {user} a " . " WHERE s.contextid = :contextid AND s.userid = a.id AND s.roleid = :roleid " . " ORDER BY a.firstname ASC,a.lastname ASC", $params_temp); $json_obj = new stdclass(); $json_obj->submissions = []; $csvfields = []; $csvfields[] = 'submissionid'; $csvfields[] = 'file'; $csvfields[] = 'filesize'; $csvfields[] = 'timestamp'; $csvfields[] = 'humandate'; $csvfields[] = 'grade'; $csvfields[] = 'userid'; $csvfields[] = 'exerciseid'; $json_obj->submissions[] = $csvfields; $exercise_dir = []; $exercises_list = []; foreach ($list as $item) { if (!in_array($item->iassign_statementid, $exercise_dir)) { $temp = $DB->get_record("iassign_statement", array("id" => $item->iassign_statementid)); $exercises_list[] = $temp; $exercise_dir[] = $temp->id; } } $student_dir = []; $students_list = []; foreach ($list as $item) { if (!in_array($item->userid, $student_dir)) { $temp = $DB->get_record("user", array("id" => $item->userid)); $students_list[] = $temp; $student_dir[] = $temp->id; } } //2021 $diretorio = $CFG->dataroot . DIRECTORY_SEPARATOR . 'temp' . DIRECTORY_SEPARATOR . 'files' . DIRECTORY_SEPARATOR; //TODO: tem que criar moodledata/temp/iassign_files // Create $CFG->dataroot/temp/iassign_files $tempfilespath = $CFG->dataroot . DIRECTORY_SEPARATOR . 'temp'; if (!file_exists($tempfilespath)) { mkdir($tempfilespath, 0777, true); } $iassignfilespath = $tempfilespath . DIRECTORY_SEPARATOR . 'iassign_files'; if (!file_exists($iassignfilespath)) { mkdir($iassignfilespath, 0777, true); } $diretorio = $CFG->dataroot . DIRECTORY_SEPARATOR . 'temp' . DIRECTORY_SEPARATOR . 'iassign_files' . DIRECTORY_SEPARATOR; if (!file_exists($diretorio)) { echo 'Não foi possível criar o diretório para preparar o arquivo com as submissões. Possivelmente o caminho está bloqueado para escrita.'; exit; } $zip_filename = $diretorio . 'package_iassign_'.time().'.zip'; $zip = new zip_archive(); // create ZIP if (!$zip->open($zip_filename)) { echo 'Não foi possível criar o arquivo zip com as submissões dos alunos, pois o diretório no servidor está bloqueado para escrita: ' . $diretorio; exit; } ; foreach ($exercises_list as $exercise) { $dir_ex = iassign_utils::format_filename($exercise->name); $zip->add_directory($dir_ex); $extension_ilm = ''; foreach ($ilm_list as $ilm) { if ($exercise->iassign_ilmid == $ilm->id) { $extension_ilm = $ilm->extension; break; } } foreach ($students_list as $student) { $individual_dir = $dir_ex . DIRECTORY_SEPARATOR . iassign_utils::format_filename($student->firstname . ' ' . $student->lastname); $zip->add_directory($individual_dir); $i = 1; foreach($list as $item) { if ($item->userid == $student->id && $item->iassign_statementid == $exercise->id) { $date = new DateTime(); $date->setTimestamp($item->timecreated); $new_file = $individual_dir . DIRECTORY_SEPARATOR . iassign_utils::format_filename('submission_' . ($i++) . '_' . date_format($date, 'Y-m-d_H-i-s')) . '.' . $extension_ilm; $zip->add_file_from_string($new_file, $item->answer); $temp_json = []; $temp_json[] = intval($item->id); $temp_json[] = $new_file; $temp_json[] = strlen($new_file); $temp_json[] = intval($item->timecreated); $temp_json[] = date_format($date, 'Y-m-d H-i-s'); $temp_json[] = doubleval($item->grade); $temp_json[] = intval($item->userid); $temp_json[] = intval($exercise->id); $json_obj->submissions[] = $temp_json; } } } } $csv_str = ""; foreach($json_obj->submissions as $sub) { $csv_str .= $this->csvstr($sub) . "\n"; } $zip->add_file_from_string('index.csv', $csv_str); $zip->close(); iassign_utils::download_file($zip_filename); exit; } function csvstr(array $fields) : string { $f = fopen('php://memory', 'r+'); if (fputcsv($f, $fields) === false) { return false; } rewind($f); $csv_line = stream_get_contents($f); return rtrim($csv_line); } /// Download submissions from table iassign_allsubmissions function download_submissions () { global $COURSE, $CFG, $USER, $DB, $OUTPUT, $PAGE; if (!has_capability('mod/iassign:runautoevaluate', $this->context, $USER->id)) exit; $type = optional_param('type', NULL, PARAM_TEXT); $item = optional_param('item', NULL, PARAM_TEXT); $exercise = optional_param('exercise', NULL, PARAM_TEXT); $iassign_id = optional_param('iassign', NULL, PARAM_TEXT); $sub_list = []; if ($type == 'individual') { $sub_list[] = $DB->get_record( 'iassign_allsubmissions', array('id' => $item)); } elseif ($type == 'student') { $sub_list = $DB->get_records( 'iassign_allsubmissions', array('userid' => $item, 'iassign_statementid' => $exercise)); } elseif ($type == 'exercise') { $sub_list = $DB->get_records( 'iassign_allsubmissions', array('iassign_statementid' => $item)); } elseif ($type == 'block') { $exercises_in_block = $DB->get_records( 'iassign_statement', array('iassignid' => $iassign_id)); foreach ($exercises_in_block as $exercise) { $temp = $DB->get_records( 'iassign_allsubmissions', array('iassign_statementid' => $exercise->id)); $sub_list = array_merge($sub_list, $temp); } } $this->download_submissions_help($sub_list); } /// Delete submissions in table iassign_allsubmissions function delete_submissions () { global $COURSE, $CFG, $USER, $DB, $OUTPUT, $PAGE; if (!has_capability('mod/iassign:runautoevaluate', $this->context, $USER->id)) exit; $type = optional_param('type', NULL, PARAM_TEXT); $item = optional_param('item', NULL, PARAM_TEXT); $exercise = optional_param('exercise', NULL, PARAM_TEXT); if ($type == 'individual') { $DB->delete_records('iassign_allsubmissions', array('id' => $item)); } elseif ($type == 'student') { $DB->delete_records('iassign_allsubmissions', array('userid' => $item, 'iassign_statementid' => $exercise)); } elseif ($type == 'exercise') { $DB->delete_records('iassign_allsubmissions', array('iassign_statementid' => $item)); } } function get_individual_submission () { global $DB, $USER; if (!has_capability('mod/iassign:runautoevaluate', $this->context, $USER->id)) exit; $submissionid = optional_param('submissionid', NULL, PARAM_TEXT); $submission = $DB->get_record("iassign_allsubmissions", array("id" => $submissionid)); print $submission->answer; } /// Open individual submission function open_individual_submission () { global $DB, $USER, $CFG; if (!has_capability('mod/iassign:runautoevaluate', $this->context, $USER->id)) exit; $submissionid = optional_param('item', NULL, PARAM_TEXT); $id = $this->cm->id; $param_aux = "id=" . $id . "&userid_iassign=" . $USER->id; $url = "" . $CFG->wwwroot . "/mod/iassign/view.php?action=get_individual_submission&" . $param_aux . "&submissionid=" . $submissionid; $atual_submission = $DB->get_record('iassign_allsubmissions', array('id' => $submissionid)); $atual_statement = $DB->get_record("iassign_statement", array("id" => $atual_submission->iassign_statementid)); $all_submissions = $DB->get_records('iassign_allsubmissions', array('iassign_statementid' => $atual_submission->iassign_statementid, 'userid' => $atual_submission->userid)); $user = $DB->get_record('user', array('id' => $atual_submission->userid)); $previous = null; $next = null; $i = 0; $found = false; foreach($all_submissions as $individual) { if (!$found && $individual->id != $submissionid) { $previous = $individual; } if ($found) { $next = $individual; break; } if ($individual->id === $submissionid) { $found = true; } $i++; } print '
' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '
' . get_string('exercise', 'iassign') . ':' . $atual_statement->name . '
' . get_string('student', 'iassign') . '' . $user->firstname . ' ' . $user->lastname . '
' . get_string('grade_student', 'iassign') . ':' . $atual_submission->grade . '
' . get_string('all_submissions_manager_date', 'iassign') . ':' . userdate($atual_submission->timecreated) . '
' . "\n"; if ($previous) { $url_prev = "" . $CFG->wwwroot . "/mod/iassign/view.php?action=open_individual_submission&" . $param_aux . "&item=" . $previous->id; print ' ' . get_string('all_submissions_manager_previous', 'iassign') . ' '; } else { print ' ' . get_string('all_submissions_manager_previous', 'iassign') . ' '; } print ' (' . $i . '/' . count($all_submissions) . ')'; if ($next) { $url_next = "" . $CFG->wwwroot . "/mod/iassign/view.php?action=open_individual_submission&" . $param_aux . "&item=" . $next->id; print '' . get_string('all_submissions_manager_next', 'iassign') . ' ' . "\n"; } else { print '' . get_string('all_submissions_manager_next', 'iassign') . ' ' . "\n"; } $statement = $DB->get_record('iassign_statement', array('id' => $atual_submission->iassign_statementid)); //array("type" => "editor_new", "notSEND" => "true") print ilm_settings::build_ilm_tags($statement->iassign_ilmid, ['type' => "activity", 'Proposition' => $url, "notSEND" => "false"]); print '
' . "\n"; } // function open_individual_submission() //2021/12 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx - inicio 1 function import_activity_confirm () { global $USER, $DB; if (!has_capability('mod/iassign:runautoevaluate', $this->context, $USER->id)) exit; if (!isset($_REQUEST['statements'])) exit; $iassign_destiny = $this->iassign->id; $activities_list = $_REQUEST['statements']; foreach ($activities_list as $activity) { $activity_source = $DB->get_record('iassign_statement', array('id' => $activity)); $activity_source->id = 0; $iassign_id_from = $activity_source->iassignid; $filesid_from = $activity_source->filesid; $activity_source->iassignid = $iassign_destiny; $author = $DB->get_record("user", array('id' => $USER->id)); $activity_source->author_modified_name = $author->firstname . ' ' . $author->lastname; $activity_source->author_modified = $activity_source->author_modified_name; if ($id_ = $DB->insert_record("iassign_statement", $activity_source)) { $fs = get_file_storage(); // Duplicate activity file $files_ids = $DB->get_records_sql('SELECT id FROM {files} WHERE component="mod_iassign" AND itemid=' . $filesid_from); print 'Arquivos a serem copiados: '; print_r($files_ids); foreach ($files_ids as $fileid) { $source_file = $fs->get_file_by_id($fileid->id); $newfile = $fs->create_file_from_storedfile(array('contextid' => $this->context->id, 'component' => 'mod_iassign', 'filearea' => 'exercise', 'itemid' => $id_), $source_file); $updateentry = new stdClass(); $updateentry->id = $id_; $updateentry->filesid = $id_; // Update the duplicated iLM iAssign with new file id $DB->update_record("iassign_statement", $updateentry); } } } // foreach ($activities_list as $activity) $destiny_url = new moodle_url('/mod/iassign/view.php', array('id' => $this->context->id)); $str_index = count($activities_list) > 1 ? 'import_activities_success' : 'import_activity_success'; redirect($this->return, get_string($str_index, 'iassign'), null, \core\output\notification::NOTIFY_SUCCESS); exit; } function import_activity () { global $COURSE, $CFG, $USER, $DB, $OUTPUT, $PAGE; if (!has_capability('mod/iassign:runautoevaluate', $this->context, $USER->id)) exit; print ''; // " $destiny_url = new moodle_url('/mod/iassign/view.php', array('id' => $this->cm->id, 'action' => 'import_activity_confirm')); print $OUTPUT->header(); $this->print_main_menu(); print '

' . get_string('import_activity', 'iassign') . '

' . "\n"; print '
' . "\n"; $courses_as_teacher = $this->get_courses_enroled_as_teacher($USER->id); foreach ($courses_as_teacher as $course) { print ' ' . $course->fullname . ' ' . "\n"; print '
' . "\n"; $iassigns = $this->get_iassign_items_by_course($course->id); if ($iassigns) { foreach ($iassigns as $iassign) { print ' ' . $iassign->name . '' . "\n"; print '
' . "\n"; $statements = $this->get_iassign_statement_by_iassign($iassign->id); print '' . "\n"; if ($statements) { foreach ($statements as $statement) { print '' . "\n"; } } else { print '' . "\n"; } print '
' . "\n"; print '
' . get_string('no_activity', 'iassign') . '
' . "\n"; } } else { print '
' . get_string('import_statement_empty', 'iassign') . '
' . "\n"; } print '
' . "\n"; } print '
' . "\n"; print '
' . get_string('import_statement_no_exercise', 'iassign') . '
' . "\n"; print "
\n"; print $OUTPUT->footer(); } // function post_auto_eval_result() function get_iassign_items_by_course ($courseid) { global $DB; return $DB->get_records("iassign", array("course" => $courseid)); } function get_iassign_statement_by_iassign ($iassignid) { global $DB; return $DB->get_records("iassign_statement", array("iassignid" => $iassignid)); } function get_courses_enroled_as_teacher($userid) { $all_enroled = enrol_get_users_courses($userid); $return = array(); foreach ($all_enroled as $enroled) { $context_course = context_course::instance($enroled->id); if (has_capability('mod/iassign:runautoevaluate', $context_course, $userid, false) ) { array_push($return, $enroled); } } return $return; } //2021/12 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx - final 1 /// Manage all submissions in exercises to table iassign_allsubmissions function all_submissions () { global $COURSE, $CFG, $USER, $DB, $OUTPUT, $PAGE; if (!has_capability('mod/iassign:runautoevaluate', $this->context, $USER->id)) exit; print $OUTPUT->header(); $this->print_main_menu(); $id = $this->cm->id; $param_aux = "id=" . $id . "&userid_iassign=" . $USER->id; $enderecoPOST = "" . $CFG->wwwroot . "/mod/iassign/view.php?" . $param_aux; print ' '; // " print ' ' . chr(13); // ' // Get list of exercises in the instance: $iassignid = optional_param('iassignid', NULL, PARAM_TEXT); $exercises_list = $DB->get_records("iassign_statement", array("iassignid" => $iassignid)); print '

' . get_string('all_submissions_manager', 'iassign') . ''; print '

'; // Get list of enrolled students: $params_temp = array('shortname' => 'student'); $role = $DB->get_record_sql("SELECT s.id, s.shortname FROM {role} s WHERE s.shortname = :shortname", $params_temp); $context = context_course::instance($this->course->id); $params_temp = array('contextid' => $context->id, 'roleid' => $role->id); $students_list = $DB->get_records_sql( "SELECT s.userid, a.firstname, a.lastname FROM {role_assignments} s, {user} a " . " WHERE s.contextid = :contextid AND s.userid = a.id AND s.roleid = :roleid " . " ORDER BY a.firstname ASC,a.lastname ASC", $params_temp); print '
'; foreach ($exercises_list as $exercise) { $submissions_list = $DB->get_records("iassign_allsubmissions", array("iassign_statementid" => $exercise->id)); $iassign_ilm = $DB->get_record("iassign_ilm", array("id" => $exercise->iassign_ilmid)); print ' ' . $exercise->name . ' - ' . $iassign_ilm->name . '' . ' ' . '' . count($submissions_list) . '' . ''; print '
'; foreach ($students_list as $student) { $total = 0; $student_submissions = []; foreach ($submissions_list as $submission) { if ($submission->userid == $student->userid) { $student_submissions[] = $submission; $total++; } } print ' ' . $student->firstname . ' ' . $student->lastname . '' . ' ' . '' . $total . '' . ' '; print '
'; print ''; // " $i = 1; foreach ($student_submissions as $individual) { $date = new DateTime(); $date->setTimestamp($individual->timecreated); print ''; print ''; print ''; print ''; print ''; print " \n"; } print '
# '.get_string('all_submissions_manager_date', 'iassign').' '.get_string('grade_student', 'iassign').' '.get_string('config_param_actions', 'iassign').'
' . ($i++) . '' . date_format($date, 'd/m/Y H:i:s') . '' . $individual->grade . '
'; //print 'Item 1.1.1'; print '
'; } print '
'; } print '
'; print $OUTPUT->footer(); } // function all_submissions() /// This method runs activities auto evaluation in teacher area function auto_evaluate () { global $COURSE, $CFG, $USER, $DB, $OUTPUT, $PAGE; if (!has_capability('mod/iassign:runautoevaluate', $USER->context, $USER->id)) exit; $actual_link = (isset($_SERVER['HTTPS']) && $_SERVER['HTTPS'] === 'on' ? "https" : "http") . "://$_SERVER[HTTP_HOST]$_SERVER[REQUEST_URI]"; $PAGE->navbar->add(get_string('auto_evaluate_title', 'iassign'), $actual_link); // Get list of exercises in the instance: $iassignid = optional_param('iassignid', NULL, PARAM_TEXT); $exercises_list = $DB->get_records("iassign_statement", array("iassignid" => $iassignid)); // Get list of enrolled students: $params_temp = array('shortname' => 'student'); $role = $DB->get_record_sql("SELECT s.id, s.shortname FROM {role} s WHERE s.shortname = :shortname", $params_temp); $context = context_course::instance($this->course->id); $params_temp = array('contextid' => $context->id, 'roleid' => $role->id); $students_list = $DB->get_records_sql( "SELECT s.userid, a.firstname, a.lastname FROM {role_assignments} s, {user} a " . " WHERE s.contextid = :contextid AND s.userid = a.id AND s.roleid = :roleid " . " ORDER BY a.firstname ASC,a.lastname ASC", $params_temp); print $OUTPUT->header(); $this->print_main_menu(); print '
' . get_string('auto_evaluate_select', 'iassign') . '
'; print '
'; // close " print '
' . "\n"; print ' '; print ' '; // print ''; print ''; // " foreach ($students_list as $student) { $user = $DB->get_record('user', array('id' => $student->userid)); $avatar = new user_picture($user); $avatar->courseid = $COURSE->id; $avatar->link = true; print ' ' . "\n"; // " } print "
'.get_string('students', 'iassign').'
' . $OUTPUT->render($avatar) . ' ' . $user->firstname . ' ' . $user->lastname . '
\n"; print $OUTPUT->footer(); } // function auto_evaluate() /// This method moves an iAssign activity function move_activity () { global $USER, $CFG, $DB, $COURSE; $iassign_id = optional_param('iassign_current', NULL, PARAM_TEXT); $iassign_destiny = optional_param('iassign_destiny', NULL, PARAM_TEXT); $update_entry_new_iassign = new stdClass(); $update_entry_new_iassign->id = $iassign_id; $update_entry_new_iassign->iassignid = $iassign_destiny; // Update the iassign_statement $DB->update_record("iassign_statement", $update_entry_new_iassign); // Update file context $c_i = context_module::instance($this->cm->id); $ret = get_coursemodule_from_id("iassign", $c_i->instanceid); $course_module_info = $DB->get_record("course_modules", array("course" => $COURSE->id, "module" => $ret->module, "instance" => $iassign_destiny)); $path_module = context_course::instance($COURSE->id); $context_file = $DB->get_record_sql('SELECT * FROM {context} WHERE instanceid="' . $course_module_info->id . '" AND path like "'.$path_module->path.'%"'); $course_module = get_coursemodule_from_instance('iassign', $iassign_destiny); //2021/12 if ($context_file) { $id_context = $context_file->id; $iassign_statement = $DB->get_record("iassign_statement", array("id" => $iassign_id)); $fs = get_file_storage(); // Get reference to all files in Moodle data $context = context_module::instance($USER->cm); //2021/12 //2021/12 $files = $fs->get_area_files(context_module::instance($this->cm->id)->id, 'mod_iassign', 'exercise', $iassign_statement->filesid); //TODO 2022: trocar "$iassign_statement->id" por "$iassign_statement->file"??? $files = $fs->get_area_files($context->id, 'mod_iassign', 'exercise', $iassign_statement->id); foreach ($files as $value) { if ($value->get_filename() != ".") { //2021/12 $last_id = $DB->get_record_sql('SELECT itemid FROM {files} WHERE component="mod_iassign" ORDER BY itemid DESC LIMIT 1')->itemid; //2021/12 $newfile = $fs->create_file_from_storedfile(array('contextid' => $id_context, 'component' => 'mod_iassign', 'filearea' => 'exercise', 'itemid' => $iassign_id), $value); $fs->delete_area_files(context_module::instance($this->cm->id)->id, 'mod_iassign', 'exercise', $value->get_itemid()); $destiny_context = context_module::instance($course_module->id); $newfile = $fs->create_file_from_string(array('contextid' => $destiny_context->id, 'component' => 'mod_iassign', 'filearea' => 'exercise', 'itemid' => $iassign_id, 'filepath' => '/', 'filename' => $value->get_filename()), $value->get_content()); $updateentry = new stdClass(); $updateentry->id = $iassign_id; $updateentry->filesid = $iassign_id; //2021/12 $newfile->get_itemid(); //TODO: esta' correto? $newfile definido 3 linhas acima NAO mais usado? $DB->update_record("iassign_statement", $updateentry); //2021/12 $fs->delete_area_files(context_module::instance($this->cm->id)->id, 'mod_iassign', 'exercise', $value->get_itemid()); break; } } } //2021/12 $this->return_home_course('moved_activity'); $destiny_url = new moodle_url('/mod/iassign/view.php', array('id' => $course_module->id)); redirect($this->return, get_string('moved_activity', 'iassign').' ' . get_string('move_activity_access', 'iassign') . '\'' . $course_module->name . '\'', null, \core\output\notification::NOTIFY_SUCCESS); exit; } // function move_activity() /// This method duplicates an iAssign activity function duplicate_activity () { global $USER, $CFG, $COURSE, $DB, $OUTPUT; $id = $this->cm->id; $iassignid = optional_param('iassign_current', NULL, PARAM_TEXT); $context = context_module::instance($this->cm->id); $contextuser = context_user::instance($USER->id); // Get the the iAssign acitivity to be duplicated $iassign_statement = $DB->get_record("iassign_statement", array("id" => $iassignid)); // Remove the current id of activity $id_source_copy = $iassign_statement->id; $iassign_statement->id=0; // Include prefix (Copy of ...) $iassign_statement->name = get_string('duplicate_iassign_prefix', 'iassign') . ' ' . $iassign_statement->name; // Get the information about current author, and add this information in author_modified field $author = $DB->get_record("user", array('id' => $USER->id)); $iassign_statement->author_modified_name = $author->firstname . ' ' . $author->lastname; $iassign_statement->author_modified = $iassign_statement->author_modified_name; // Store the activity in the table if ($id_ = $DB->insert_record("iassign_statement", $iassign_statement)) { // Duplicate activity file $fs = get_file_storage(); // Get reference to all files in Moodle data //2021/12 $files = $fs->get_area_files($context->id, 'mod_iassign', 'exercise', $iassign_statement->filesid); $files = $fs->get_area_files($context->id, 'mod_iassign', 'exercise', $id_source_copy); foreach ($files as $value) { if ($value->get_filename() != ".") { $last_id = $DB->get_record_sql('SELECT itemid FROM {files} WHERE component="mod_iassign" ORDER BY itemid DESC LIMIT 1')->itemid; //2021/12 $newfile = $fs->create_file_from_storedfile(array('contextid' => $context->id, 'component' => 'mod_iassign', 'filearea' => 'exercise', 'itemid' => ($last_id + 1)), $value); $newfile = $fs->create_file_from_storedfile(array('contextid' => $context->id, 'component' => 'mod_iassign', 'filearea' => 'exercise', 'itemid' => $id_), $value); $updateentry = new stdClass(); $updateentry->id = $id_; //2021/12 $updateentry->filesid = $newfile->get_itemid(); $updateentry->filesid = $id_; // Update the duplicated iLM iAssign with new file id $DB->update_record("iassign_statement", $updateentry); } } } // log event -------------------------------------------------------------------------------------- iassign_log::add_log('duplicate_iassign_exercise', 'name: ' . $author->firstname, $id_, $this->cm->id); $this->return_home_course('duplicated_activity'); exit; } // / This method gets the content from comment and register it function add_comment () { global $USER, $DB; $submission_comment = optional_param('submission_comment', NULL, PARAM_TEXT); $comment = false; if ($submission_comment) $comment = $this->write_comment_submission(); $id_submission = optional_param('iassign_submission_current', NULL, PARAM_TEXT); if (!$id_submission) { $iassign_submission = $DB->get_record("iassign_submission", array("iassign_statementid" => $this->activity->get_activity()->id, "userid" => $USER->id)); if ($iassign_submission) { $id_submission = $iassign_submission->id; } } $content = $this->search_comment_submission($id_submission); ob_end_clean(); header("Connection: close\r\n"); header("Content-Encoding: none\r\n"); header('Content-Type: text/html'); ob_start(); print $this->search_comment_submission($id_submission); $size = ob_get_length(); header("Content-Length: $size"); ob_end_flush(); flush(); ob_end_clean(); // Send email to users: $iassign_submission = $DB->get_record("iassign_submission", array("id" => $id_submission)); $this->send_alert_new_comment($submission_comment, $iassign_submission->userid); } /// This method alerts envolved to new comment sent function send_alert_new_comment ($comment, $student_id = -1) { global $USER, $DB, $COURSE, $SITE; $subject = $COURSE->shortname . ": " . get_string('new_comment_mail_subject', 'iassign') . " "; $iassign_ilm = $DB->get_record("iassign_ilm", array("id" => $this->activity->get_activity()->iassign_ilmid)); //leo 2021/12 $subject .= $iassign_ilm->name . ' ' . get_string('new_comment_mail_at', 'iassign') . ' ' . get_string("iassign", "iassign") . '/Moodle'; //leo 2021/12 // $url_curso; $url_submissao; $text = "

\n"; $text .= " $COURSE->id)) . "\">" . $COURSE->shortname . " " . " ≫ \n"; $modinfo = get_fast_modinfo($COURSE); for ($i = 0; $i < count($modinfo->sections); $i++) { if ($modinfo->get_section_info($i) && $modinfo->get_section_info($i)->id == $this->cm->section) { $url_curso = new moodle_url('/course/view.php', array('id' => $COURSE->id)); $text .= "get_section_info($i)->section . "\">" . get_section_name($COURSE, $modinfo->get_section_info($i)->section) . " ≫ \n"; break; } } $iassign = $DB->get_record('iassign', array('id' => $this->activity->get_activity()->iassignid)); $text .= " $this->cm->id)) . "\">" . $iassign->name . " ≫ \n"; $url_submissao = new moodle_url('/mod/iassign/view.php', array( 'id' => $this->cm->id, 'action' => 'viewsubmission', 'iassign_current' => $this->activity->get_activity()->id, 'userid_iassign' => $USER->id)); $text .= "" . $this->activity->get_activity()->name . "

\n"; $text .= "
\n"; $text .= get_string('new_comment_mail_course', 'iassign') . ": " . $COURSE->fullname . "\n"; $text .= "
\n"; $text .= get_string('exercise', 'iassign') . ": " . $this->activity->get_activity()->name . "\n"; $text .= "
\n"; $text .= get_string('new_comment_mail_sent_by', 'iassign') . ': ' . " $USER->id, 'course' => $COURSE->id)) . "\">" . $USER->firstname . " " . $USER->lastname . "\n"; $text .= " - " . userdate(time()); $text .= "
\n"; $text .= $comment; $text .= "
\n"; $text .= "" . get_string('new_comment_mail_open_exercise', 'iassign') . " | \n"; $text .= "" . get_string('new_comment_mail_answer', 'iassign') . "\n"; $text .= "
\n"; // Who has to receive? $teachers = get_users_by_capability($this->context, 'mod/iassign:evaluateiassign'); $userfrom = \core_user::get_noreply_user(); if (has_capability('mod/iassign:evaluateiassign', $this->context, $USER->id)) { // a teacher has sent the comment: // other teachers receive also: (excepts the sender) foreach ($teachers as $teacher) { if ($teacher->id != $USER->id) { email_to_user( $teacher, $USER->firstname . " " . $USER->lastname . " (via " . $SITE->shortname . ")", $subject, "", $text, '', '', false, $userfrom->email, 'Não responda a esta mensagem' //TODO: internacionalizar ); $message = new \core\message\message(); $message->component = 'mod_iassign'; $message->name = 'message'; $message->userfrom = core_user::get_noreply_user(); $message->userto = $teacher; $message->subject = $subject; $message->fullmessage = $text; $message->fullmessageformat = FORMAT_MARKDOWN; $message->fullmessagehtml = $text; $message->smallmessage = $subject; $message->notification = 1; $message->contexturl = $url_submissao . '#comments'; $message->contexturlname = $this->activity->get_activity()->name; $messageid = message_send($message); } } // foreach ($teachers as $teacher) // and student: $student = $DB->get_record('user', array('id' => $student_id)); $formated_text = str_replace("viewsubmission", "view", $text); email_to_user( $student, $USER->firstname . " " . $USER->lastname . " (via " . $SITE->shortname . ")", $subject, "", $formated_text, '', '', false, $userfrom->email, 'Não responda a esta mensagem' //TODO: internacionalizar ); $url_student = new moodle_url('/mod/iassign/view.php', array( 'id' => $this->cm->id, 'action' => 'view', 'iassign_current' => $this->activity->get_activity()->id)); $message = new \core\message\message(); $message->component = 'mod_iassign'; $message->name = 'message'; $message->userfrom = core_user::get_noreply_user(); $message->userto = $student; $message->subject = $subject; $message->fullmessage = $formated_text; $message->fullmessageformat = FORMAT_MARKDOWN; $message->fullmessagehtml = $formated_text; $message->smallmessage = $subject; $message->notification = 1; $message->contexturl = $url_student . '#comments'; $message->contexturlname = $this->activity->get_activity()->name; $messageid = message_send($message); } // if (has_capability('mod/iassign:evaluateiassign', $this->context, $USER->id)) else { // a student has sent the comment: foreach ($teachers as $teacher) { email_to_user( $teacher, $USER->firstname . " " . $USER->lastname . " (via " . $SITE->shortname . ")", $subject, "", $text, '', '', false, $userfrom->email, 'Não responda a esta mensagem' //TODO: internacionalizar ); $message = new \core\message\message(); $message->component = 'mod_iassign'; $message->name = 'message'; $message->userfrom = core_user::get_noreply_user(); $message->userto = $teacher; $message->subject = $subject; $message->fullmessage = $text; $message->fullmessageformat = FORMAT_MARKDOWN; $message->fullmessagehtml = $text; $message->smallmessage = $subject; $message->notification = 1; $message->contexturl = $url_submissao . '#comments'; $message->contexturlname = $this->activity->get_activity()->name; $messageid = message_send($message); } // foreach ($teachers as $teacher) } } // function send_alert_new_comment($comment, $student_id = -1) /// This method gets the content from the iLM and register it // It could be the "exercise template" (teacher) or an answer (student) function get_answer () { global $USER, $CFG, $DB, $OUTPUT; $id = $this->cm->id; $submission_comment = optional_param('submission_comment', NULL, PARAM_TEXT); $submission_ajax = optional_param('iLM_ajax', NULL, PARAM_TEXT); if ($submission_ajax == 1) ob_start(); $comment = false; if ($submission_comment) $comment = $this->write_comment_submission(); // receives data of iLM using the current activity $iassign_ilm = $DB->get_record("iassign_ilm", array("id" => $this->activity->get_activity()->iassign_ilmid)); // has automatic evaluation? $iassign = $DB->get_record("iassign", array("id" => $this->activity->get_activity()->iassignid)); // activity // receives data of submission of current activity $iassign_submission = $DB->get_record("iassign_submission", array("iassign_statementid" => $this->activity->get_activity()->id, "userid" => $this->userid_iassign)); // data about student solution // receives post and get $iLM_PARAM_ActivityEvaluation = optional_param('iLM_PARAM_ActivityEvaluation', 0, PARAM_INT); // 1 - activity evaluated as correct / 0 - activity evaluated as incorrect $iLM_PARAM_RealGrade = optional_param('iLM_PARAM_RealGrade', 0, PARAM_FLOAT); //2016/02/16: IMPORTANTE trocar formatador para "nao formatado", pois esta destruindo o conteudo do arquivo $iLM_PARAM_ArchiveContent = optional_param('iLM_PARAM_ArchiveContent', NULL, PARAM_RAW); // answer file (ATTENTION: do not change format, use RAW in order to ensure the correct content) $MA_POST_Info = optional_param('MA_POST_Info', NULL, PARAM_FORMAT); $MA_POST_SystemData = optional_param('MA_POST_SystemData', NULL, PARAM_FORMAT); $return_get_answer = optional_param('return_get_answer', 0, PARAM_INT); $msg = ''; if ($this->activity->get_activity()->store_all_submissions == 1) { $newentry = new stdClass(); $newentry->iassign_statementid = $this->activity->get_activity()->id; $newentry->userid = $this->userid_iassign; $newentry->timecreated = time(); $newentry->grade = round($iLM_PARAM_RealGrade, 2); $newentry->answer = $iLM_PARAM_ArchiveContent; $DB->insert_record("iassign_allsubmissions", $newentry); } // Feedback // Activity status: 0 => not post 1; => post; 2 => evaluated as incorrect; 3 => evaluated as correct $str_action = "view"; // repeat if (strtolower($iassign_ilm->name) == "igeom") { } $title = get_string('evaluate_iassign', 'iassign'); print $OUTPUT->header(); print $OUTPUT->box_start(); // Action = { view ; repeat ; viewsubmission } // * 'view' => it is impossible to re-send answer (this is correct with iGeom because its model to ensure security - do not allow the learner's access to the "answer model") // * 'repeat' => student explicitly requested to redo the activiy or enter in the last submission under iLM other then iGeom // * 'viewsubmission' => teacher/non editing teacher seeing the learner's activity $return = $CFG->wwwroot . "/mod/iassign/view.php?action=view&id=" . $id . "&iassign_submission_current=" . $this->iassign_submission_current . "&userid_iassign=" . $this->userid_iassign . "&iassign_current=" . $this->activity->get_activity()->id; $return_last = " " . iassign_icons::insert('return_home') . ' ' . get_string('return_iassign', 'iassign') . ""; $link_return = " " . iassign_icons::insert('home') . ' ' . get_string('activities_page', 'iassign') . ""; print ''; if ($iLM_PARAM_ArchiveContent == - 1 || empty($iLM_PARAM_ArchiveContent)) { // if ($iLM_PARAM_ActivityEvaluation == -1) //TODO alterar aqui??? $this->write_solution = 0; // necessary in order to take note in Moodle 'grade' system // empty_answer_post = No solution was posted. if ($comment) print ''; else print ''; print ''; } else { if ($iassign_ilm->evaluate == 1 && $this->activity->get_activity()->automatic_evaluate == 1) { // iLM with automatic evaluator if (intval($iLM_PARAM_ActivityEvaluation) == 1) { // Correct answer!! //TODO apelei - o melhor e' alterar acima o 'write_solution=0'? $this->write_solution = 1; // $status = 3; $grade_student = $iLM_PARAM_RealGrade; // evaluated as correct solution submitted is assigned the note pattern of activity $msg = ''; // log record $info = $iassign->name . " - " . $this->activity->get_activity()->name . " - " . get_string('feedback_correct', 'iassign') . " - " . get_string('grade_iassign', 'iassign') . ":" . $grade_student; // Trigger module viewed event. $event = \mod_iassign\event\submission_created::create(array( 'objectid' => $this->iassign->id, 'context' => $this->context, 'other' => $info )); $event->add_record_snapshot('course', $this->course); $event->trigger(); } else { // else if (intval($iLM_PARAM_ActivityEvaluation) == 1) // Wrong answer...: get_answer_incorrect $status = 2; $grade_student = $iLM_PARAM_RealGrade; // evaluated as incorrect solution $msg = ''; // log record $info = $iassign->name . " - " . $this->activity->get_activity()->name . " - " . get_string('feedback_incorrect', 'iassign') . ' - ' . get_string('grade_iassign', 'iassign') . $grade_student; // Trigger module viewed event. $event = \mod_iassign\event\submission_created::create(array( 'objectid' => $this->iassign->id, 'context' => $this->context, 'other' => $info )); $event->add_record_snapshot('course', $this->course); $event->trigger(); } // else if (intval($iLM_PARAM_ActivityEvaluation) == 1) // Presents to the learner the result of the automatic evaluate? if ($this->activity->get_activity()->show_answer == 0) { // no... print ''; print ''; print ''; // log record $info = $iassign->name . " - " . $this->activity->get_activity()->name . " - " . get_string('get_answer', 'iassign'); // Trigger module viewed event. $event = \mod_iassign\event\submission_created::create(array( 'objectid' => $this->iassign->id, 'context' => $this->context, 'other' => $info )); $event->add_record_snapshot('course', $this->course); $event->trigger(); } else { // yes!!! print ''; print ''; print ''; print $msg; } } else { // if ($iassign_ilm->evaluate == 1 && $this->activity->get_activity()->automatic_evaluate == 1) $status = 1; $grade_student = $iLM_PARAM_RealGrade; // iLM not have automatic evaluator print ''; print ''; print ''; // log record $info = $iassign->name . " - " . $this->activity->get_activity()->name . " - " . get_string('get_answer_post', 'iassign'); $event = \mod_iassign\event\submission_created::create(array( 'objectid' => $this->iassign->id, 'context' => $this->context, 'other' => $info )); $event->add_record_snapshot('course', $this->course); $event->trigger(); } // if ($iassign_ilm->evaluate == 1) } // if ($iLM_PARAM_ActivityEvaluation == -1) print '

' . get_string('empty_answer_post', 'iassign') . '
' . get_string('confirm_add_comment', 'iassign') . '

' . get_string('empty_answer_post', 'iassign') . '
' . $return_last . ' ' . $link_return . '
' . iassign_icons::insert('feedback_correct') . '
' . get_string('get_answer_correct', 'iassign') . '
' . iassign_icons::insert('feedback_incorrect') . '
' . get_string('get_answer_incorrect', 'iassign') . '
' . iassign_icons::insert('post') . get_string('get_answer', 'iassign') . '
' . $return_last . ' ' . $link_return . '
' . get_string('auto_result', 'iassign') . '' . $return_last . ' ' . $link_return . '
' . iassign_icons::insert('post') . get_string('get_answer_post', 'iassign') . '
' . $return_last . ' ' . $link_return . '
'; print $OUTPUT->box_end(); // add or update evaluate if ($this->write_solution == 1) { $timenow = time(); // new record if (!$iassign_submission) { $newentry = new stdClass(); $newentry->userid = $this->userid_iassign; // $newentry->userid = $USER->id; $newentry->iassign_statementid = $this->activity->get_activity()->id; $newentry->timecreated = $timenow; $newentry->timemodified = $timenow; $newentry->answer = $iLM_PARAM_ArchiveContent; $newentry->grade = round($grade_student, 2); $newentry->status = $status; $newentry->experiment = 1; if (!$newentry->id = $DB->insert_record("iassign_submission", $newentry)) { print_error('error_insert', 'iassign'); } else { // Trigger module viewed event. $event = \mod_iassign\event\submission_created::create(array( 'objectid' => $this->iassign->id, 'context' => $this->context )); $event->add_record_snapshot('course', $this->course); $event->trigger(); $this->update_grade_student($newentry->userid, $newentry->iassign_statementid, $this->iassign->id); } } elseif ($iassign_submission->status != 3) { $newentry = new stdClass(); $newentry->id = $iassign_submission->id; $newentry->iassign_statementid = $iassign_submission->iassign_statementid; $newentry->userid = $iassign_submission->userid; $newentry->timecreated = $iassign_submission->timecreated; $newentry->timemodified = $timenow; $newentry->answer = $iLM_PARAM_ArchiveContent; $newentry->grade = round($grade_student, 2); $newentry->status = $status; $newentry->experiment = $iassign_submission->experiment + 1; if (!$DB->update_record("iassign_submission", $newentry)) { print_error('error_update', 'iassign'); //D depurar... //D $stringAux = "ia.class.php: ".$iLM_PARAM_ArchiveContent."
".utf8_encode($iLM_PARAM_ArchiveContent)."
".utf8_encode(utf8_encode($iLM_PARAM_ArchiveContent))."
"; //D $fp = fopen("teste1.txt","w"); //D fwrite($fp,$stringAux); } else { // Trigger module viewed event. $event = \mod_iassign\event\submission_updated::create(array( 'objectid' => $this->iassign->id, 'context' => $this->context )); $event->add_record_snapshot('course', $this->course); $this->update_grade_student($newentry->userid, $newentry->iassign_statementid, $this->iassign->id); } } else { if ($return_get_answer == 1) { $newentry = new stdClass(); $newentry->id = $iassign_submission->id; $newentry->iassign_statementid = $iassign_submission->iassign_statementid; $newentry->userid = $iassign_submission->userid; $newentry->timecreated = $iassign_submission->timecreated; $newentry->timemodified = $timenow; $newentry->answer = $iLM_PARAM_ArchiveContent; $newentry->grade = round($grade_student, 2); $newentry->status = $status; $newentry->experiment = $iassign_submission->experiment + 1; if (!$DB->update_record("iassign_submission", $newentry)) print_error('error_update', 'iassign'); else { $event = \mod_iassign\event\submission_updated::create(array( 'objectid' => $this->iassign->id, 'context' => $this->context )); $event->add_record_snapshot('course', $this->course); $event->trigger(); $this->update_grade_student($newentry->userid, $newentry->iassign_statementid, $this->iassign->id); print $OUTPUT->box_start(); print "

" . get_string('iassign_update', 'iassign') . "

"; print $OUTPUT->box_end(); } } elseif ($return_get_answer == 2) { print $OUTPUT->box_start(); print "

" . get_string('iassign_cancel', 'iassign') . "

"; print $OUTPUT->box_end(); } else { print $OUTPUT->box_start(); print " "; $param_aux = "action=overwrite&iassign_submission_current=" . $iassign_submission->id . "&id=" . $id . "&iassign_current=" . $this->activity->get_activity()->id . "&write_solution=" . $this->write_solution . "&userid_iassign=" . $USER->id; $get_answer_overwrite = $CFG->wwwroot . "/mod/iassign/view.php?" . $param_aux; print "
"; print "

" . get_string('last_iassign_correct', 'iassign') . "

"; print "

" . get_string('update_iassign', 'iassign') . "

"; print " "; print "  "; print ""; print "
"; print $OUTPUT->box_end(); } } } // if ($this->write_solution == 1) print $OUTPUT->footer(); if ($submission_ajax == 1) { ob_end_clean(); print 'OK'; } die(); } // function get_answer() /// Export in file the answer of student. function export_file_answer () { global $DB; $iassign_submission_id = optional_param('iassign_submission_id', NULL, PARAM_INT); $iassign_submission = $DB->get_record("iassign_submission", array("id" => $iassign_submission_id)); $iassign_statement = $DB->get_record("iassign_statement", array("id" => $iassign_submission->iassign_statementid)); $name = iassign_utils::format_filename(strip_tags($iassign_statement->name)); $iassign_ilm = $DB->get_record("iassign_ilm", array("id" => $iassign_statement->iassign_ilmid)); $extensions = explode(",", $iassign_ilm->extension); $iassign_user = $DB->get_record("user", array("id" => $iassign_submission->userid)); $username = iassign_utils::format_filename($iassign_user->firstname . ' ' . $iassign_user->lastname); $name_answer = $username . '-' . $name . '-' . userdate($iassign_submission->timemodified, '%Y%m%d-%H%M') . '.' . $extensions[0]; header("Pragma: public"); header("Expires: 0"); header("Cache-Control: must-revalidate, post-check=0, pre-check=0"); header("Cache-Control: private", false); header("Content-Type: document/unknown"); header("Content-Disposition: attachment; filename=\"" . $name_answer . "\";"); set_time_limit(0); print($iassign_submission->answer); exit; } // function export_file_answer() /// Prepare data to static exportation (with course name, iAsssing block name, and exercices names // @calledby $this->export_package_answer() //TODO Precisa terminar! //TODO_HTML function htmlcode_2_export ($course_fullname, $course_id, $iassign_block_id, $iassign_block_name, $array_iassign_name, $array_iassign_id, $userid, $username) { $str_html = " " . get_string('pluginname', 'iassign') . "\n"; // 'iAssign: interactive Learning Activities' $str_html .= " \n"; $tam = sizeof($array_iassign_name); for ($ii=0; $ii<$tam; $ii++) { //TODO_HTML completar construir HTML com titulo do exercicio e talvez legar com HTML para abri-lo com o iMA } $str_html .= " \n"; return $str_html; } /// Export an package (zip) with all answer of students // @calledby $this->action() function export_package_answer () { global $DB, $CFG, $OUTPUT; $iassign_id = optional_param('iassign_id', NULL, PARAM_INT); // ID of iAssign block of activities $iassign = $DB->get_record("iassign", array("id" => $iassign_id)); // all data from this block of iAssign activities (table '*_iassign') $iassign_block_name = iassign_utils::format_filename($iassign->name); //TODO_HTML $this->course: [fullname] => Curso teste [shortname] => cursoteste1 [idnumber] //TODO_HTML //echo "
" . $iassign->name . ":
"; $userid = optional_param('userid', NULL, PARAM_INT); $iassign_user = $DB->get_record("user", array("id" => $userid)); $username = iassign_utils::format_filename($iassign_user->firstname . '_' . $iassign_user->lastname); // user information //TODO_HTML echo "username=$username
"; exit; $current_date = date('Y_m_d_H'); $diretorio = $CFG->dataroot . DIRECTORY_SEPARATOR . 'temp' . DIRECTORY_SEPARATOR . 'files' . DIRECTORY_SEPARATOR; // /var//temp/files/ // If temporary directory under Moodle data does not exists => create it if (!is_dir($diretorio)) { mkdir($diretorio, 0755, true); // permissions: drwxr-xr-x // created directory with permissions to be seen by everyone } $zip_filename = $diretorio . 'package_iassign_' . $username . '-' . $iassign_block_name . '_' . $current_date . '.zip'; if (!is_writable($diretorio)) { // send a highlighted message! print_error('error_answer_export_dir', 'iassign'); // Error: the target directory has no permission! Please, send this message to the Moodle admin! exit; // just in case } //MOOC 2014: $zip_filename = $CFG->dataroot . '/temp/ilm-' . iassign_utils::format_pathname($iassign_ilm->name . '-v' . $iassign_ilm->version) . '.ipz'; $zip = new zip_archive(); // create ZIP $zip->open($zip_filename); // open ZIP using the temporary file/directory $iassign_statements = $DB->get_records("iassign_statement", array("iassignid" => $iassign_id)); //TODO $vet_exerc_title = array(); //TODO to be used with 'htmlcode_2_export(...)' - missing: build the HTML and directories linking files $vet_student_filename = array(); $vet_student_content = array(); foreach ($iassign_statements as $iassign_statement) { $activity_name = iassign_utils::format_filename(strip_tags($iassign_statement->name)); $iassign_ilm = $DB->get_record("iassign_ilm", array("id" => $iassign_statement->iassign_ilmid)); //TODO_HTML $vet_exerc_title[] = $iassign_statement->name; $extensions = explode(",", $iassign_ilm->extension); $iassign_submission = $DB->get_record("iassign_submission", array("iassign_statementid" => $iassign_statement->id, "userid" => $userid)); if ($iassign_submission) { $timemodified = '-' . userdate($iassign_submission->timemodified, '%Y_%m_%d_%H_%M'); $student_content = $iassign_submission->answer; $student_filename = iassign_utils::format_filename($activity_name) . $timemodified . '.' . $extensions[0]; $resp = $zip->add_file_from_string($student_filename, $student_content); // add file to ZIP //$resp = $zip->add_file_from_string($path_dir . $one_file, $destination . $ds . $one_file); //2 Esta versao funciona! if ($resp) { $vet_student_filename[] = $student_filename; $vet_student_content[] = $student_content; } else { // send a highlighted message! print_error('error_answer_export_file', 'iassign'); // Error: fail to insert content to the file exit; // just in case } } } // foreach ($iassign_statements as $iassign_statement) $zip->close(); // close the ZIP file if (count($vet_student_filename)>0) { $vet_result = iassign_utils::register_temporary_file($zip_filename, $vet_student_filename, $vet_student_content); $result_tf = $vet_result[0]; $filenameZip = $vet_result[1]->filename; } iassign_utils::download_file($zip_filename); // download the ZIP file exit; } // function export_package_answer() /// Editing status of interactive activities function edit_status () { global $USER, $DB, $OUTPUT; $newentry = new stdClass(); $newentry->id = $this->iassign_submission_current; $newentry->status = optional_param('return_status', 0, PARAM_INT); $iassign_submission = $DB->get_record('iassign_submission', array('id' => $this->iassign_submission_current)); if ($iassign_submission->status != 0 && $newentry->status == 0) $newentry->status = $iassign_submission->status; $newentry->teacher = $USER->id; if (!$DB->update_record('iassign_submission', $newentry)) print_error('error_update', 'iassign'); else { // Trigger module viewed event. $event = \mod_iassign\event\submission_updated::create(array( 'objectid' => $this->iassign->id, 'context' => $this->context )); $event->add_record_snapshot('course', $this->course); $event->trigger(); $this->action = 'viewsubmission'; $this->view_iassign_current(); } // if (!$DB->update_record('iassign_submission', $newentry)) } // function edit_status() /// Editing grade of interactive activities function edit_grade () { global $USER, $DB, $OUTPUT; $newgrade = optional_param('return_grade', 0, PARAM_INT); if ($newgrade && $newgrade >= 0) { $newentry = new stdClass(); $newentry->id = $this->iassign_submission_current; $newentry->grade = optional_param('return_grade', 0, PARAM_INT); $newentry->teacher = $USER->id; if (!$DB->update_record('iassign_submission', $newentry)) print_error('error_update', 'iassign'); else { // Trigger module viewed event. $event = \mod_iassign\event\submission_updated::create(array( 'objectid' => $this->iassign->id, 'context' => $this->context )); $event->add_record_snapshot('course', $this->course); $event->trigger(); } } // if ($newgrade >= 0) $this->action = 'viewsubmission'; $this->view_iassign_current(); } /// Add or Edit interactive activities // Get here when editing form and and submitted form data // @calledby $this->action() function add_edit_iassign () { global $USER, $CFG, $COURSE, $DB, $OUTPUT; require_once('iassign_form.php'); $id = $this->cm->id; // All iAssign statement => iassign_statement.iassignid $iassignid = $this->iassign->id; $param = new stdClass(); // parameters to build data to the form - see bellow "$mform = new mod_iassign_form(...); $mform->set_data($param); $param->action = $this->action; // hidden $param->id = $id; // hidden $param->special_param1 = 0; // 'special_param1 == 1' => script of iGeom $COURSE->cm = $id; $COURSE->iassignid = $iassignid; $COURSE->iassign_file_id = NULL; $context = context_module::instance($this->cm->id); $contextuser = context_user::instance($USER->id); $component = 'mod_iassign'; $filearea = 'exercise'; if (!empty($this->iassign_current)) $COURSE->iassign_id = $this->iassign_current; else $COURSE->iassign_id = 0; $total_of_activities = 0; // get the total number of activities in this iAssign block if ($this->action == 'add') { $iassign_data = $DB->get_record("iassign", array('id' => $iassignid)); $params_temp = array('iassignid' => $iassignid); $query_str = "SELECT s.id, s.name, s.dependency FROM {iassign_statement} s WHERE s.iassignid = :iassignid ORDER BY s.position ASC"; $iassign_statement = $DB->get_records_sql($query_str, $params_temp); // $total_of_activities = count($iassign_statement); $param->iassignid = $iassignid; $param->name = ""; $param->oldname = ""; $param->type_iassign = 3; $param->proposition = ""; $author = $DB->get_record("user", array("id" => $USER->id)); $param->author_name = $author->firstname . ' ' . $author->lastname; $param->author_modified_name = $author->firstname . ' ' . $author->lastname; $param->author = $param->author_name; $param->author_modified = $param->author_modified_name; $COURSE->iassign_list = array(); $param->iassign_list = array(); if ($iassign_statement) { foreach ($iassign_statement as $iassign) { $iassignid = $iassign->id; $param->iassign_list[$iassignid] = 0; $COURSE->iassign_list[$iassignid] = new stdClass(); $COURSE->iassign_list[$iassignid]->id = $iassignid; $COURSE->iassign_list[$iassignid]->name = $iassign->name; $COURSE->iassign_list[$iassignid]->enable = 1; } // foreach ($iassign_statement as $iassign) } $param->iassign_ilmid = 0; $param->file = 0; $param->fileold = 0; $param->filename = ""; $param->grade = $iassign_data->grade; $param->timemodified = time(); $param->timecreated = time(); $param->timeavailable = $iassign_data->timeavailable; $param->timedue = $iassign_data->timedue; $param->preventlate = $iassign_data->preventlate; $param->test = $iassign_data->test; $param->special_param1 = 0; $param->visible = 1; $param->max_experiment = $iassign_data->max_experiment; $param->dependency = 0; $param->automatic_evaluate = 1; $param->show_answer = 1; } // if ($this->action == 'add') elseif ($this->action == 'edit') { $COURSE->iassign_list = array(); $this_activity = $this->activity->get_activity(); if ($this_activity != null) { // first enter here: fill form data $iassign_statement_current = $this_activity; // $DB->get_record("iassign_statement", array("id" => $this_activity->id)); $param->iassign_id = $iassign_statement_current->id; // oculto $param->iassignid = $iassign_statement_current->iassignid; // oculto $param->name = $iassign_statement_current->name; $param->oldname = $iassign_statement_current->name; $param->type_iassign = $iassign_statement_current->type_iassign; $param->store_all_submissions = $iassign_statement_current->store_all_submissions; $param->proposition = array('text' => $iassign_statement_current->proposition, ''); //'format' => $instance->introformat $param->author_name = $iassign_statement_current->author_name; // oculto $param->author = $iassign_statement_current->author_name; $author = $DB->get_record("user", array('id' => $USER->id)); $param->author_modified_name = $author->firstname . ' ' . $author->lastname; $param->author_modified = $param->author_modified_name; $dependency = explode(';', $iassign_statement_current->dependency); $param->iassign_list = array(); // Select all other iAssign activities inside this block with dependency $str_query = "SELECT * FROM {iassign_statement} s WHERE s.iassignid = '" . $iassignid . "' AND s.id!='" . $iassign_statement_current->id . "' AND s.dependency!=0"; $iassign_statement_dependency = $DB->get_records_sql($str_query); $array_dependency = array(); $subdependency = ""; $sub_subdependency = ""; // Dependents on this exercise if ($iassign_statement_dependency) { $subdependency .= $this->search_dependency($iassign_statement_current->id, $iassign_statement_dependency); // to whom this exercise depends foreach ($inter as $tmp) $sub_subdependency .= $this->search_sub_dependency($tmp); $list_dependency = $subdependency . $sub_subdependency; $array_dependency = explode(";", $list_dependency); } // Get all activities in the same iAssigment block: $str_query = "SELECT id, name FROM {iassign_statement} WHERE iassignid = '" . $iassignid . "' AND id!='" . $iassign_statement_current->id . "' ORDER BY position ASC"; $all_others_iassign_statement = $DB->get_records_sql($str_query); $total_of_activities = count($all_others_iassign_statement) + 1; $inter = array(); if ($all_others_iassign_statement) { foreach ($all_others_iassign_statement as $iassign) if (in_array($iassign->id, $dependency)) $inter[] = $iassign->id; } if ($all_others_iassign_statement) { foreach ($all_others_iassign_statement as $iassign) { $iassignid = $iassign->id; $COURSE->iassign_list[$iassignid] = new stdClass(); $COURSE->iassign_list[$iassignid]->name = $iassign->name; $COURSE->iassign_list[$iassignid]->id = $iassignid; if (in_array($iassignid, $dependency)) $param->iassign_list[$iassignid] = 1; else $param->iassign_list[$iassignid] = 0; if (in_array($iassignid, $array_dependency)) $COURSE->iassign_list[$iassignid]->enable = 0; else $COURSE->iassign_list[$iassignid]->enable = 1; } // foreach ($all_others_iassign_statement as $iassign) } // if ($all_others_iassign_statement) $param->iassign_ilmid = $iassign_statement_current->iassign_ilmid; // define iLM ID to be used to define 'select' on 'iassign_form.php' $param->fileold = 0; $param->filesid = 0; $param->file = 0; //TODO Criar campo 'iassign_statement.filesid' para registar 'files.id' - abaixo faz '$file->get_id();' $param->filename = ''; $param->grade = $iassign_statement_current->grade; $param->timecreated = $iassign_statement_current->timecreated; // hidden $param->timeavailable = $iassign_statement_current->timeavailable; $param->timedue = $iassign_statement_current->timedue; $param->preventlate = $iassign_statement_current->preventlate; $param->test = $iassign_statement_current->test; $param->special_param1 = $iassign_statement_current->special_param1; // 'special_param1 == 1' => script of iGeom $param->position = $iassign_statement_current->position; // hidden $param->visible = $iassign_statement_current->visible; $param->max_experiment = $iassign_statement_current->max_experiment; $param->automatic_evaluate = $iassign_statement_current->automatic_evaluate; $param->show_answer = $iassign_statement_current->show_answer; $fs = get_file_storage(); // Get reference to all files in Moodle data //2021/12 $files = $fs->get_area_files($context->id, $component, $filearea, $iassign_statement_current->filesid); //2022/02 $files = $fs->get_area_files($context->id, $component, $filearea, $iassign_statement_current->id); // em alguns "_files.id" tem 'file' NAO 'id' $files = $fs->get_area_files($context->id, $component, $filearea, $iassign_statement_current->file); // It must have: {files}->id=$iassign_statement_current->file if ($files) { foreach ($files as $file) { if ($file->get_filename() != '.') { $param->filename = $file->get_filename(); $param->file = $file->get_id(); $param->fileold = $file->get_id(); $COURSE->iassign_file_id = $file->get_id(); } } } //TODO //MOOC2014 -- inicio //D $iassign_ilm_configs = $DB->get_records('iassign_statement_config', array('iassign_statementid' => $iassign_statement_current->id)); //D if ($iassign_ilm_configs) { //D foreach ($iassign_ilm_configs as $iassign_ilm_config) //D $param->{'param_'.$iassign_ilm_config->iassign_ilm_configid} = $iassign_ilm_config->param_value; //D } //MOOC2014 -- fim } // if ($this_activity != null) } // elseif ($this->action == 'edit') // Get all iActivity in the iAssign block with id = $this->iassign->id // It could be used to define dependency of the current activity (considering those list $iassign_list) $iassign_list = $DB->get_records_list('iassign_statement', 'iassignid', array($this->iassign->id), 'position ASC'); //D echo "locallib.php: add_edit_iassign(): this->iassign->id=" . $this->iassign->id . "
"; //D foreach ($iassign_list as $item) echo " - id=" . $item->id . ", name=" . $item->name . ", iassignid=" . $item->iassignid . ", type_iassign=" . $item->type_iassign . "
"; // if ($iassign_list) { $end_list = array_pop($iassign_list); $param->position = $end_list->position + 1; } else $param->position = 1; $param->position = $total_of_activities; // Create form and associate its data // 'mform1' is used in: ./mod/iassign/iassign_form.php, ./mod/iassign/settings_form.php // new mod_iassign_form(...) in ./mod/iassign/iassign_form.php extends /lib/formslib.php: // /lib/formslib.php: __construct($action=null, $customdata=null, $method='post', $target='', $attributes=null, $editable=true, $ajaxformdata=null) if (isset($param->iassign_ilmid)) { // array is additional atributes to 'form' // 'special_param1 == 1' => script of iGeom : ' with 'optgroup' by hand! But MoodleForm clear/do not register the 'iassign_ilmid' //TODO Then get it directly from the form data $_POST! //TODO See: 'iassign_form.php' field 'iassign_ilmid' and here 'function new_iassign($param)' if (!isset($result->iassign_ilmid) && isset($_POST['iassign_ilmid'])) $result->iassign_ilmid = $_POST['iassign_ilmid']; $iassign_ilm = $DB->get_record("iassign_ilm", array("id" => $result->iassign_ilmid)); if ($this->action == 'add') { $iassign_statement_name = $DB->get_records('iassign_statement', array('iassignid' => $result->iassignid, 'name' => $result->name)); if ($iassign_statement_name) { $this->return_home_course('error_iassign_name'); die(); } // Really insert the new iActivity in table '*_iassign_statement' $iassignid = $this->activity->new_iassign($result); // class activity : function new_iassign($param) $this->activity->add_calendar($iassignid); ///line 3584 of /mod/iassign/locallib.php: call to calendar_event::create() // Trigger module viewed event. $event = \mod_iassign\event\iassign_created::create(array( 'objectid' => $iassignid, 'context' => $context )); $event->add_record_snapshot('course', $this->course); $event->trigger(); $this->return_home_course('iassign_add'); } // if ($this->action == 'add') elseif ($this->action == 'edit') { $iassignid = $this->activity->update_iassign($result); $this->activity->update_calendar($iassignid, $result->oldname); // Trigger module viewed event. $event = \mod_iassign\event\iassign_updated::create(array( 'objectid' => $iassignid, 'context' => $context )); $event->add_record_snapshot('course', $this->course); $event->trigger(); $this->return_home_course('iassign_update'); } // elseif ($this->action == 'edit') die(); } // if ($result) } // else if ($mform->is_cancelled()) print $OUTPUT->header(); $mform->display(); print $OUTPUT->footer(); die(); } // function add_edit_iassign() /// Search for dependencies function search_dependency ($search_iassing_id, $iassign_statement) { global $DB, $OUTPUT; $dependency = ""; if ($iassign_statement) foreach ($iassign_statement as $iassign) { $inter_dependency = explode(';', $iassign->dependency); if (in_array($search_iassing_id, $inter_dependency)) { $dependency .= $iassign->id . ";"; $dependency .= $this->search_dependency($iassign->id, $iassign_statement); } // if (in_array($search_iassing_id, $inter_dependency)) } // foreach ($iassign_statement as $iassign) return $dependency; } /// Search for "sub"dependency function search_sub_dependency ($search_iassing_id) { global $DB, $OUTPUT; $iassign_statement = $DB->get_record("iassign_statement", array("id" => $search_iassing_id)); $dependency = ""; if ($iassign_statement) { $inter_dependency = explode(';', $iassign_statement->dependency); foreach ($inter_dependency as $tmp) { if ($tmp != 0) $dependency .= $tmp . ";"; $dependency .= $this->search_sub_dependency($tmp); } // foreach ($inter_dependency as $tmp) } // if ($iassign_statement) return $dependency; } // Warning message static function warning_message_iassign ($strcode) { return "
" . get_string($strcode, 'iassign') . "
\n"; } /// Update grade of iAssign // Called always any iAssign activity is created // @see /mod/iassign/view.php: call to iassign->iassign(): starting point static function update_grade_iassign ($iassignid) { global $USER, $CFG, $COURSE, $DB, $OUTPUT; require_once($CFG->libdir . '/gradelib.php'); //D $sum_grade = $DB->get_records_sql ( "SELECT SUM(grade) as total //D FROM {$CFG->prefix}iassign_statement s WHERE s.iassignid = '$iassignid' AND s.type_iassign=3" ); //TODO: REVIEW: wich one is more efficienty, '$DB->get_records' geting objects or '$DB->get_records' with 'foreach'? // Each iAssign item is associated with one item on the "gradebook" // Sum all '*_iassign_statement' associated with one item in '*_grade_items': iassignid AND type_iassign=3 //$sum_grade = 0; //$grade = $DB->get_records('iassign_statement', array('iassignid' => $iassignid, 'type_iassign' => 3)); //foreach($grade as $tmp) { // $sum_grade += $tmp->grade; // } //1 Solution 1 //1 $grade = $DB->get_records('iassign_statement', array('iassignid' => $iassignid, 'type_iassign' => 3)); //1 //1 $sum_grade = 0; //1 //1 foreach ($grade as $tmp) { $sum_grade += $tmp->grade; } //1 //2 Solution 2 $array_sum_grade = $DB->get_records_sql("SELECT SUM(grade) as total FROM {iassign_statement} s WHERE s.iassignid = '$iassignid' AND s.type_iassign=3"); //2 //2 foreach ($array_sum_grade as $array_item) { $sum_grade = $array_item->total; break; } // nao necessario, basta 'key(...)' abaixo if (key($array_sum_grade)) $sum_grade = key($array_sum_grade); //2 else $sum_grade = 0; //2 $grade_iassign = $DB->get_record("iassign", array("id" => $iassignid)); $grades = NULL; $params_temp = array('itemname' => $grade_iassign->name); $params_temp['iteminstance'] = $iassignid; $params_temp['gradetype'] = GRADE_TYPE_VALUE; //2016 if ($sum_grade != 0) { $params_temp['grademax'] = $sum_grade; $params_temp['rawgrademax'] = $sum_grade; //2016 } else { $params_temp['grademax'] = 0; $params_temp['rawgrademax'] = 0; } $params_temp['grademin'] = 0; // @calls /lib/gradelib.php: call to grade_item->insert() //TODO: is there any error here in Moodle version 3.0? //TODO: Incorrect property 'grademax' found when inserting grade object //TODO: line 899 of /mod/iassign/locallib.php: call to grade_update() grade_update('mod/iassign', $grade_iassign->course, 'mod', 'iassign', $iassignid, 0, $grades, $params_temp); } /// Update grade of student function update_grade_student ($userid, $iassign_statementid, $iassignid) { global $CFG, $DB, $OUTPUT; require_once($CFG->libdir . '/gradelib.php'); $grade_iassign = $DB->get_record('iassign', array('id' => $iassignid)); // Review all the student submission for this iAssign activity $grade_iassign_statements = $DB->get_records('iassign_statement', array('iassignid' => $iassignid)); $total_grade = 0; foreach ($grade_iassign_statements as $grade_iassign_statement) { $iassign_submission = $DB->get_record('iassign_submission', array('iassign_statementid' => $grade_iassign_statement->id, 'userid' => $userid)); if ($iassign_submission) $total_grade += $iassign_submission->grade; } // foreach ($grade_iassign_statements as $grade_iassign_statement) //D $sum_grade = $DB->get_records_sql("SELECT SUM(grade) as total //D FROM {$CFG->prefix}iassign_statement s WHERE s.iassignid = '$iassignid' AND s.type_iassign=3" ); //TODO: REVIEW: wich one is more efficienty, '$DB->get_records' geting objects or '$DB->get_records' with 'foreach'? //1 $sum_grade = 0; $grade = $DB->get_records('iassign_statement', array('iassignid' => $iassignid, 'type_iassign' => 3)); //1 foreach ($grade as $tmp) { $sum_grade += $tmp->grade; } $array_sum_grade = $DB->get_records_sql("SELECT SUM(grade) as total FROM {iassign_statement} s WHERE s.iassignid = '$iassignid' AND s.type_iassign=3"); //2 if (key($array_sum_grade)) $sum_grade = key($array_sum_grade); //2 else $sum_grade = 0; //2 $grades['userid'] = $userid; $grades['rawgrade'] = $total_grade; // sum of all submissions for this iAssign activity $params_temp = array('itemname' => $grade_iassign->name); $params_temp['iteminstance'] = $iassignid; $params_temp['gradetype'] = GRADE_TYPE_VALUE; //2016 if ($sum_grade != 0) { // depois eliminar comentario $params_temp['grademax'] = $sum_grade; $params_temp['rawgrademax'] = $sum_grade; //2016 } else { $params_temp['grademax'] = 0; $params_temp['rawgrademax'] = 0; } grade_update('mod/iassign', $grade_iassign->course, 'mod', 'iassign', $iassignid, 0, $grades, $params_temp); } /// Display caption of icons - to the bottom page of teacher's report function view_legend_icons () { global $USER, $CFG, $DB, $OUTPUT; $id = $this->cm->id; if ($this->action == 'print') print ''; else print '
'; print '' . "\n"; print '' . "\n"; } // if ($this->action != 'print') print '
'; if (has_capability('mod/iassign:viewreport', $this->context, $USER->id) && $this->action == 'report') { if ($this->action != 'print') { $link_print = "" . iassign_icons::insert('print') . ' ' . get_string('print', 'iassign') . "\n"; $link_export = "" . iassign_icons::insert('export_ilm') . ' ' . get_string('export_csv', 'iassign') . "\n"; print '' . $link_export . '' . $link_print . '
' . "\n"; } // if (has_capability('mod/iassign:viewreport', $this->context, $USER->id) && $this->action == 'report') print '' . "\n"; } // function view_legend_icons() /// Display activity current // @calledby view() -> action() : when student do/redo activity and teacher see student answer function view_iassign_current () { global $USER, $CFG, $COURSE, $DB, $OUTPUT, $PAGE; $id = $this->cm->id; $iassignid = $this->iassign->id; $only_one_send_button = 0; // to avoid to put 2 copies of comments (area to send and see comments between teacher and student) $iassign = $DB->get_record("iassign", array("id" => $iassignid)); // from table '*_iassign': id course name intro introformat activity_group grade timeavailable timedue preventlate test max_experiment // Get data of current activity : table '*_iassign_statement' = id name iassignid type_iassign proposition author_name author_modified_name iassign_ilmid file grade timemodified timecreated ... $iassign_statement_activity_item = $this->activity->get_activity(); // search data of current activity: the teacher activity model if (!$iassign_statement_activity_item) { print $OUTPUT->header(); \core\notification::error(get_string('activity_not_found', 'iassign')); print $OUTPUT->footer(); exit; } $ilm = new ilm($iassign_statement_activity_item->iassign_ilmid); $ilm_name = ''; if ($ilm->ilm) $ilm_name = strtolower($ilm->ilm->name); // class ilm has a unique property ('ilm'), get the iLM name // Do not allow the learner resent his solution only is iGeom iLM ("igeom") - why? iGeom acitivity "model answer" is not sent with the learner solution $allow_resubmission = (substr($ilm_name, 0, 5) != "igeom" ? 1 : 0); // log record $info = $iassign->name . ":" . $iassign_statement_activity_item->name; //Trigger module viewed event. $event = \mod_iassign\event\submission_viewed::create(array( 'objectid' => $iassign->id, 'context' => $this->context, 'other' => $info )); $event->add_record_snapshot('course', $this->course); $event->trigger(); // Search of iLM data used in the current activity $iassign_ilm = $DB->get_record("iassign_ilm", array("id" => $iassign_statement_activity_item->iassign_ilmid)); // Add actual activity to navbar: $actual_link = (isset($_SERVER['HTTPS']) && $_SERVER['HTTPS'] === 'on' ? "https" : "http") . "://$_SERVER[HTTP_HOST]$_SERVER[REQUEST_URI]"; $PAGE->navbar->add($iassign_statement_activity_item->name, $actual_link); print $OUTPUT->header(); if ($this->action == 'viewsubmission') { if (!empty($this->iassign_submission_current) || $this->iassign_submission_current != 0) $iassign_submission = $DB->get_record("iassign_submission", array("id" => $this->iassign_submission_current)); // data about activity current else $iassign_submission = $DB->get_record("iassign_submission", array("iassign_statementid" => $this->activity->get_activity()->id, "userid" => $this->userid_iassign)); // data about student solution } else { $iassign_submission = $DB->get_record("iassign_submission", array("iassign_statementid" => $this->activity->get_activity()->id, "userid" => $this->userid_iassign)); // data about student solution } if ($iassign_submission) $this->update_comment($iassign_submission->id); //2021/12 $file = $iassign_statement_activity_item->filesid; $file = $iassign_statement_activity_item->id; // 1 when open previous file; 2 when the activity is redone!; 3 when the teacher enter in the activity // 1 => locallib.php: view_iassign_current(): action=view will set write_solution=0!!!!! // 2 => locallib.php: view_iassign_current(): action=repeat will set write_solution=0!!!!! // 3 => locallib.php: view_iassign_current(): action=viewsubmission will set write_solution=0!!!!! $this->bottonPost = 0; // hide submit button //xxx $this->write_solution = 0; // disable recording solution (however, iVProg allow the learner to edit previou solution) $this->view_iassign = false; // disable visualization of activity $repeat = ""; $last_iassign = ""; $student_answer = ""; $comment = ""; // *** Teacher access (view learner's submission) if (($this->action != 'viewsubmission') && has_capability('mod/iassign:evaluateiassign', $USER->context, $USER->id)) { //TODO leo Verificar se o correto eh '$this->context' ou '$USER->context' como deixei // It is not 'viewsubmission' and it is teacher or 'non editing teacher'? // ---> access teacher for test if ($iassign_statement_activity_item->type_iassign != 1) // type_iassign=1 => activity of type "example" - not submit button for submission $this->bottonPost = 1; print $OUTPUT->box('

' . get_string('area_specific_teacher', 'iassign') . '

'); $this->activity->view_dates(); $USER->iassignEdit = $this->bottonPost; $this->activity->show_info_iassign(); if ($iassign_submission) { //xxx $param_aux = "action=get_answer&iassign_submission_current=" . $iassign_submission->id . "&id=" . $id . "&iassign_current=" . $this->activity->get_activity()->id . "&write_solution=" . $this->write_solution . "&userid_iassign=" . $USER->id; $param_aux = "action=get_answer&iassign_submission_current=" . $iassign_submission->id . "&id=" . $id . "&iassign_current=" . $this->activity->get_activity()->id . "&userid_iassign=" . $USER->id; } else { //xxx $param_aux = "action=get_answer&id=" . $id . "&iassign_current=" . $this->activity->get_activity()->id . "&write_solution=" . $this->write_solution . "&userid_iassign=" . $USER->id; $param_aux = "action=get_answer&id=" . $id . "&iassign_current=" . $this->activity->get_activity()->id . "&userid_iassign=" . $USER->id; } $enderecoPOST = "" . $CFG->wwwroot . "/mod/iassign/view.php?" . $param_aux; //if ($ilm->confirms_jar($iassign_statement_activity_item->file, $iassign_ilm->file_jar, $this->cm->id)) // Prepare tags to present the iLM print $OUTPUT->box($ilm->view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, true)); } // if (($this->action != 'viewsubmission') && has_capability('mod/iassign:evaluateiassign', $USER->context, $USER->id)) // *** (end) Teacher access (view the activity) // *** Teacher access (view learner's submission to the activity) elseif (($this->action == 'viewsubmission') && has_capability('mod/iassign:evaluateiassign', $USER->context, $USER->id)) { // It is teacher or 'nonediting teacher' that can evaluate // ----> area teacher evaluate $row = optional_param('row', 0, PARAM_INT); $column = optional_param('column', 0, PARAM_INT); $link_next = iassign_icons::insert('right_disable'); $link_previous = iassign_icons::insert('left_disable'); $link_up = iassign_icons::insert('up_disable'); $link_down = iassign_icons::insert('down_disable'); if (isset($USER->matrix_iassign[$row][$column])) { $has_row_column = True; $element_matrix_iassign = $USER->matrix_iassign[$row][$column]; } else { $has_row_column = False; $element_matrix_iassign = $USER->matrix_iassign[$row][$column]; } $msgViewAction = "view.php?action=viewsubmission&id=$id&iassign_submission_current="; $msgUserId_current = "&userid_iassign=" . $this->userid_iassign . "&iassign_current="; // next_activity if ($has_row_column && $element_matrix_iassign->iassign_next != - 1) { $url_next = $msgViewAction . $USER->matrix_iassign[$row][$column + 1]->iassign_submission_current . $msgUserId_current . $element_matrix_iassign->iassign_next . "&view_iassign=report&row=" . ($row) . "&column=" . ($column + 1); $link_next = "" . (iassign_icons::insert('next_activity')) . ""; } // previous_activity if ($has_row_column && $element_matrix_iassign->iassign_previous != - 1) { $url_previous = $msgViewAction . $USER->matrix_iassign[$row][$column - 1]->iassign_submission_current . $msgUserId_current . $element_matrix_iassign->iassign_previous . "&view_iassign=report&row=" . ($row) . "&column=" . ($column - 1); $link_previous = "" . (iassign_icons::insert('previous_activity')) . ""; } // previous_student if ($has_row_column && $element_matrix_iassign->user_next != - 1) { $url_down = $msgViewAction . $USER->matrix_iassign[$row + 1][$column]->iassign_submission_current . "&userid_iassign=" . $element_matrix_iassign->user_next . "&iassign_current=" . $this->activity->get_activity()->id . "&view_iassign=report&row=" . ($row + 1) . "&column=" . ($column); $link_down = "" . (iassign_icons::insert('previous_student')) . ""; } // next_student if ($has_row_column && $element_matrix_iassign->user_previous != - 1) { $url_up = $msgViewAction . $USER->matrix_iassign[$row - 1][$column]->iassign_submission_current . "&userid_iassign=" . $element_matrix_iassign->user_previous . "&iassign_current=" . $this->activity->get_activity()->id . "&view_iassign=report&row=" . ($row - 1) . "&column=" . ($column); $link_up = "" . (iassign_icons::insert('next_student')) . ""; } if ($iassign_submission) { $student_answer = $iassign_submission->answer; } $last_iassign = get_string('last_iassign', 'iassign'); $user_data = $DB->get_record("user", array('id' => $this->userid_iassign)); // Messages related to due date (and user role) $this->activity->view_dates(); print $OUTPUT->box_start(); print '' . "\n"; print '' . "\n"; print '
' . get_string('area_available', 'iassign') . '
' . "\n"; if ($user_data) // additional security (if occurs programming errors in $$url_next, $url_previous...) print $OUTPUT->user_picture($user_data); print ' ' . $user_data->firstname . ' ' . $user_data->lastname; print '
' . "\n"; print ''; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '
' . $link_up . '
' . $link_previous . '' . $link_next . '
' . $link_down . '
' . "\n"; print '
' . "\n"; print $OUTPUT->box_end(); print $OUTPUT->box_start(); print '' . "\n"; print ''; if ($iassign_statement_activity_item->type_iassign == 3) { // type_iassign=3 => activity of type "exercise" - submit button and automatic evaluation print ''; } // if ($iassign_statement_activity_item->type_iassign == 3) print '
' . "\n"; print '

' . get_string('proposition', 'iassign') . ':

' . "\n"; print '
' . $iassign_statement_activity_item->proposition . '
' . "\n"; if ($iassign_statement_activity_item->automatic_evaluate == 1) $resp = get_string('yes'); else $resp = get_string('no'); print '

' . get_string('automatic_evaluate', 'iassign') . ' ' . $resp . '

' . "\n"; if ($iassign_statement_activity_item->show_answer == 1) $resp = get_string('yes'); else $resp = get_string('no'); print '

' . get_string('show_answer', 'iassign') . ' ' . $resp . '

' . "\n"; print '
'; print '' . get_string('status', 'iassign') . '' . "\n"; // check status of solution sent by the student if ($iassign_submission) { switch ($iassign_submission->status) { case 3 : print iassign_icons::insert('correct') . ' ' . get_string('correct', 'iassign') . ' ' . $comment; break; case 2 : print iassign_icons::insert('incorrect') . ' ' . get_string('incorrect', 'iassign') . ' ' . $comment; break; case 1 : print iassign_icons::insert('post') . ' ' . get_string('post', 'iassign') . ' ' . $comment; break; default : print iassign_icons::insert('not_post') . ' ' . get_string('not_post', 'iassign') . ' ' . $comment; $last_iassign = get_string('no_iLM_PARAM_ArchiveContent', 'iassign'); } // switch ($iassign_submission->status) } else { // if ($iassign_submission) print iassign_icons::insert('not_post') . ' ' . get_string('not_post', 'iassign') . ' ' . $comment; $last_iassign = get_string('no_iLM_PARAM_ArchiveContent', 'iassign'); } // update_status if ($iassign_submission && $iassign_submission->experiment > 0) { $edit_status = $CFG->wwwroot . "/mod/iassign/view.php?action=edit_status&id=" . $id . "&userid_iassign=" . $this->userid_iassign . "&iassign_current=" . $this->activity->get_activity()->id . "&iassign_submission_current=" . $this->iassign_submission_current . "&row=" . ($row) . "&column=" . ($column); print " "; print "
\n"; print ' ' . get_string('changeto', 'iassign') . "\n"; print " \n"; print " \n"; print "
\n"; print '

' . get_string('grade_student', 'iassign') . ' ' . $iassign_submission->grade . "

\n"; print '

' . get_string('grade_iassign', 'iassign') . ' ' . $iassign_statement_activity_item->grade . "

\n"; $edit_grade = $CFG->wwwroot . "/mod/iassign/view.php?action=edit_grade&id=" . $id . "&userid_iassign=" . $this->userid_iassign . "&iassign_current=" . $this->activity->get_activity()->id . "&iassign_submission_current=" . $this->iassign_submission_current . "&row=" . ($row) . "&column=" . ($column); print " "; print "
\n"; print ' ' . get_string('changeto', 'iassign') . "" . "\n"; print " "; print " "; print " \n"; print "
"; $url_answer = "" . $CFG->wwwroot . "/mod/iassign/view.php?" . "action=download_answer&iassign_submission_id=" . $iassign_submission->id . "&id=" . $id; print '

' . get_string('experiment', 'iassign') . ' ' . $iassign_submission->experiment . ' ' . iassign_icons::insert('download_assign') . '

'; print '

' . get_string('timemodified', 'iassign') . ' ' . userdate($iassign_submission->timemodified) . '

'; $teacher = $DB->get_record("user", array('id' => $iassign_submission->teacher)); if ($teacher) print '

' . get_string('last_modification', 'iassign') . ' ' . $teacher->firstname . '

' . "\n"; } // if ($iassign_submission->experiment > 0) print '
'; print $OUTPUT->box_end(); $USER->iassignEdit = $this->bottonPost; print activity::toggle_columns_script(); if ($iassign_submission && $allow_resubmission) { // Put the iLM to print $OUTPUT->box_start(); print '

' . $last_iassign . '

'; //d if ($ilm->confirms_jar ( $iassign_statement_activity_item->file, $iassign_ilm->file_jar, $this->cm->id )) { $enderecoPOST = ""; // Prepare tags to present the iLM print $ilm->view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, false); //d } // if ($this->confirms_jar($iassign_statement_activity_item->file, $iassign_ilm->file_jar)) print $OUTPUT->box_end(); } // if ($iassign_submission && $allow_resubmission) else { // if ($iassign_submission && $allow_resubmission) - techer view student answer // If '$student_answer' is empty, then the student does not submit any solution to the exercice // ATTENTION: exception used by iGeom (exercise with "script") $loadTeacherActivity = false; // use 'true' whenever 'special_param1 == 1' if (substr($ilm_name, 0, 5)=="igeom") { if ($iassign_statement_activity_item->special_param1 == 1) // if 1 => use the teacher activity with some complement from the student (in iGeom = GEO + SCR) $loadTeacherActivity = true; } else if (!$student_answer) { //2022/01 this student does not submit any soluction => load the teacher content $loadTeacherActivity = true; } print $OUTPUT->box('

' . $last_iassign . '

' . "\n"); if (!isset($enderecoPOST)) $enderecoPOST = ""; print activity::toggle_columns_script(); // Prepare tags to present the iLM print $OUTPUT->box($ilm->view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, $loadTeacherActivity)); } //2020 Eliminei daqui o codigo para colocar o quadro com area para enivar e ler comentarios //2020 Estava subordinado ao: elseif (($this->action == 'viewsubmission') && has_capability('mod/iassign:evaluateiassign', $USER->context, $USER->id)) //2020 e com isso NAO permitia aluno ter o quadro para envio! //2020 Foi para final dessa funcao 'view_iassign_current()' } // elseif (($this->action == 'viewsubmission') && has_capability('mod/iassign:evaluateiassign', $USER->context, $USER->id)) // *** (end) Teacher access (view learner's submission to the activity) // *** Student access (view the activity) elseif (has_capability('mod/iassign:submitiassign', $USER->context, $USER->id)) { // It could be the learner (he could send or resend the activity) // ---> access student $time_now = time(); if ($iassign_statement_activity_item->type_iassign == 1) { // type_iassign=1 => activity of type "exemple" - no submit button // activity of type example - not submit button for submission $this->view_iassign = true; //TODO rever esta condicao para iMA que nao fazem autoavaliacao } elseif ($iassign_statement_activity_item->type_iassign == 2 && $iassign_ilm->evaluate == 1) { // activity of type test - iLM automatic evaluator - submit button for submission if ($iassign_statement_activity_item->timeavailable < $time_now && $iassign_statement_activity_item->timedue > $time_now) { // activity within of deadline $this->bottonPost = 1; $this->view_iassign = true; } else $this->view_iassign = false; } elseif ($iassign_statement_activity_item->type_iassign == 3) { // type_iassign=3 => activity of type "exercise" - submit button and automatic evaluation // activity of type exercise (learner can send his answer, if yet open...) $this->view_iassign = true; if ($iassign_statement_activity_item->timeavailable > $time_now) // due date expired $this->view_iassign = false; elseif ($iassign_statement_activity_item->timedue > $time_now || $iassign_statement_activity_item->preventlate == 1) { // activity within due date $this->bottonPost = 1; // allow the submit button // Look at table 'iassign_submission' ('iassign_submission.experiment' is the number of submissions) $repeat_title = ' title="' . get_string('repeat_alt', 'iassign') . '" '; // 'Use this button to redo the activity' if (!$iassign_submission || $this->action == 'repeat' || ($iassign_submission && $allow_resubmission)) { if (!$iassign_submission) { $str_iassign_submission_id = ''; $str_iassign_submission_answer = ''; } else { $str_iassign_submission_id = $iassign_submission->id; $str_iassign_submission_answer = $iassign_submission->answer; } if ($this->action != 'repeat') { $repeat = "" . iassign_icons::insert('repeat') . ' ' . get_string('repeat', 'iassign') . "\n"; } $this->bottonPost = 1; $this->write_solution = 1; // can register his submission $student_answer = $str_iassign_submission_answer; } else { // if (!$iassign_submission || $this->action == 'repeat' || ($iassign_submission && $allow_resubmission)) // In 'class ilm : view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, $view)' $last_iassign = get_string('last_iassign', 'iassign'); if ($iassign_submission) { $repeat = "" . iassign_icons::insert('repeat') . ' ' . get_string('repeat', 'iassign') . "\n"; $student_answer = $iassign_submission->answer; } else { $repeat = "" . iassign_icons::insert('repeat') . ' ' . get_string('repeat', 'iassign') . "\n"; } } } elseif ($iassign_statement_activity_item->test == 1) { // allowed to test after expired due date if ($this->action == 'repeat' || ($iassign_submission && $iassign_submission->experiment < 1)) { $this->bottonPost = 1; $this->write_solution = 0; // if iVProg it is valid to the learner to edit previous solution } else { $last_iassign = get_string('last_iassign', 'iassign'); if ($iassign_submission) { $repeat = "" . iassign_icons::insert('repeat') . ' ' . get_string('repeat', 'iassign') . "\n"; $student_answer = $iassign_submission->answer; } else { // Symbol of "redo activity" $repeat = "" . iassign_icons::insert('repeat') . ' ' . get_string('repeat', 'iassign') . "\n"; } } } // elseif ($iassign_statement_activity_item->test == 1) elseif ($iassign_statement_activity_item->test == 0) $this->view_iassign = false; } // elseif ($iassign_statement_activity_item->type_iassign == 3) if ($iassign_submission) $param_aux = "action=get_answer&iassign_submission_current=" . $iassign_submission->id . "&id=" . $id . "&iassign_current=" . $this->activity->get_activity()->id . "&write_solution=" . $this->write_solution . "&userid_iassign=" . $USER->id; else $param_aux = "action=get_answer&id=" . $id . "&iassign_current=" . $this->activity->get_activity()->id . "&write_solution=" . $this->write_solution . "&userid_iassign=" . $USER->id; $enderecoPOST = "" . $CFG->wwwroot . "/mod/iassign/view.php?" . $param_aux; $this->activity->view_dates(); if ($this->view_iassign) { // Box 5 to 'proposition' - open print $OUTPUT->box_start(); print '' . "\n"; print '
' . "\n"; $flag_dependency = true; if ($iassign_statement_activity_item->type_iassign == 3) { if ($iassign_statement_activity_item->dependency == 0) { print '' . get_string('independent_activity', 'iassign') . '' . "\n"; } else { $dependencys = explode(';', $iassign_statement_activity_item->dependency); print '

' . get_string('dependency', 'iassign') . '

' . "\n"; foreach ($dependencys as $dependency) { if ($dependency) { $dependencyiassign = $DB->get_record("iassign_statement", array("id" => $dependency)); $dependencysubmissions = $DB->get_record("iassign_submission", array("iassign_statementid" => $dependencyiassign->id, 'userid' => $USER->id)); if ($dependencysubmissions) { if ($dependencysubmissions->status == 3) $icon = iassign_icons::insert('correct'); elseif ($dependencysubmissions->status == 2) { $icon = iassign_icons::insert('incorrect'); $flag_dependency = false; } elseif ($dependencysubmissions->status == 1) { $icon = iassign_icons::insert('post'); $flag_dependency = false; } elseif ($dependencysubmissions->status == 0) { $icon = iassign_icons::insert('not_post'); $flag_dependency = false; } } else { $icon = iassign_icons::insert('not_post'); $flag_dependency = false; } // if ($dependencysubmissions) print '

 ' . $icon . $dependencyiassign->name . '

' . "\n"; } // if ($dependency) } // foreach ($dependencys as $dependency) } // if ($iassign_statement_activity_item->dependency == 0) } // if ($iassign_statement_activity_item->type_iassign == 3) if ($flag_dependency == false) { print '' . get_string('message_dependency', 'iassign') . '' . "\n"; $this->view_iassign = false; print '
' . "\n"; } else { $this->view_iassign = true; print '' . "\n"; } // if ($flag_dependency == false) if ($this->view_iassign) { // it is already inside 'if ($this->view_iassign)' but the dependency check could had change its value (above) if ($iassign_statement_activity_item->type_iassign == 3) { // activity is present only if exercise // receiver=1 - message to teacher // receiver=2 - message to student if ($iassign_submission) { $verify_message = $DB->get_record('iassign_submission_comment', array('iassign_submissionid' => $iassign_submission->id, 'return_status' => 0, 'receiver' => 2)); if ($verify_message) $comment = iassign_icons::insert('comment_unread'); } print ''; print '' . get_string('status', 'iassign') . '' . "\n"; if ($iassign_statement_activity_item->show_answer == 1) { // check status of solution sent by the student if ($iassign_submission) { switch ($iassign_submission->status) { case 3 : print iassign_icons::insert('correct') . ' ' . get_string('correct', 'iassign') . ' ' . $comment; break; case 2 : print iassign_icons::insert('incorrect') . ' ' . get_string('incorrect', 'iassign') . ' ' . $comment; break; case 1 : print iassign_icons::insert('post') . ' ' . get_string('post', 'iassign') . ' ' . $comment; break; default : print iassign_icons::insert('not_post') . ' ' . get_string('not_post', 'iassign') . ' ' . $comment; $repeat = ""; $last_iassign = ""; } // switch ($iassign_submission->status) } else { print iassign_icons::insert('not_post') . ' ' . get_string('not_post', 'iassign') . ' ' . $comment; $repeat = ""; $last_iassign = ""; } if ($iassign_submission && $iassign_submission->experiment > 0) { print '

' . get_string('grade_student', 'iassign') . ': ' . $iassign_submission->grade; print '  (' . get_string('grade_iassign', 'iassign') . ': ' . $iassign_statement_activity_item->grade . ')

' . "\n"; print '

' . get_string('experiment_student', 'iassign') . ' ' . $iassign_submission->experiment; if ($iassign_statement_activity_item->max_experiment == 0) print '  (' . get_string('experiment_iassign', 'iassign') . ' ' . get_string('ilimit', 'iassign') . ')

' . "\n"; else { print '  (' . get_string('experiment_iassign', 'iassign') . ' ' . $iassign_statement_activity_item->max_experiment . ')

' . "\n"; if ($iassign_submission->experiment >= $iassign_statement_activity_item->max_experiment) { $repeat = ""; $last_iassign .= " " . get_string('attempts_exhausted', 'iassign') . '' . "\n"; $this->bottonPost = 0; $this->write_solution = 0; } } // else if ($iassign_statement_activity_item->max_experiment == 0) print '

' . get_string('timemodified', 'iassign') . ' ' . userdate($iassign_submission->timemodified) . '

' . "\n"; $teacher = $DB->get_record("user", array('id' => $iassign_submission->teacher)); if ($teacher) print '

' . get_string('last_modification', 'iassign') . ' ' . $teacher->firstname . '

' . "\n"; } // if ($iassign_submission && $iassign_submission->experiment > 0) } // if ($iassign_statement_activity_item->show_answer==1) else { if (!isset($iassign_submission) || $iassign_submission->status == 0) { print iassign_icons::insert('not_post') . ' ' . get_string('not_post', 'iassign') . ' ' . $comment; $repeat = ""; $last_iassign = ""; } elseif ($iassign_submission->status == 1) { print iassign_icons::insert('post') . ' ' . get_string('post', 'iassign') . ' ' . $comment; } } print ''; } // if ($iassign_statement_activity_item->type_iassign == 3) print '' . "\n"; // Presents the iLM print '' . "\n"; print '' . "\n"; // If you want to do this activity from the beginning again, use the \"Redo button\". print '
'; print '' . $last_iassign . ' ' . get_string('repeat_msg', 'iassign') . ''; //D $ilm_name = strtolower($this->ilm->name); //if (substr($ilm_name, 0, 5) == "igeom") ; // is iGeom exercise print $repeat; // symbol of "redo activity" print '
' . "\n"; //2019 print $OUTPUT->box_end(); // closing Box 5 but sometimes it does reach this point - see it at the end of 'if ($this->view_iassign)' print activity::toggle_columns_script(); print '

' . get_string('proposition', 'iassign') . '

' . "\n"; print '
' . $iassign_statement_activity_item->proposition . '
' . "\n"; $output = ''; if (!$iassign_ilm) { $iassign_ilm = new stdClass(); $iassign_ilm->file_jar = ""; } $output .= $OUTPUT->box_start(); $USER->iassignEdit = $this->bottonPost; // --- // Presents the iLM // Prepare tags to present the iLM if (!$iassign_submission || $this->action == 'repeat') { // or $iassign_submission->answer==0 $student_answer = ""; //? $output .= $ilm->view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, true); // presents iLM and true => see the teacher file } elseif ($iassign_submission && $iassign_submission->answer == '0') { $student_answer = ""; $output .= $ilm->view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, true); // presents iLM } else { // When student is redoing his activity // ATTENTION: exception used by iGeom (exercise with "script") $loadTeacherActivity = false; // trocar para 'true' se 'special_param1 == 1' if (substr($ilm_name, 0, 5)=="igeom") { if ($iassign_statement_activity_item->special_param1 == 1) // if 1 => use the teacher activity with some complement from the student (in iGeom = GEO + SCR) $loadTeacherActivity = true; } $output .= $ilm->view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, $loadTeacherActivity); // presents iLM } //1 Desse modo entre area para comentario, mas nao seu botao separado - deixar para o final com botao! //1 if ($iassign_statement_activity_item->type_iassign == 3) { //1 $history_comment = ''; //1 if ($iassign_submission) { //1 $history_comment = $this->search_comment_submission($iassign_submission->id); //1 } //1 if (!empty($history_comment)) { //1 $output .= "\n \n" . //1 " \n"; // //1 $output .= $history_comment; //1 $output .= "
" . get_string('history_comments', 'iassign') . "
\n"; //1 } //1 $output .= "\n"; //1 $only_one_send_button = 1; // avoid put comment frame again (bellow) //1 } $output .= $OUTPUT->box_end(); print $output; } // if ($this->view_iassign) print $OUTPUT->box_end(); // Box 5 to 'proposition' - close } // if ($this->view_iassign) } // elseif (has_capability('mod/iassign:submitiassign', $USER->context, $USER->id)) else if (isguestuser()) { // else of elseif (has_capability('mod/iassign:submitiassign', $USER->context, $USER->id)) print($OUTPUT->notification(get_string('no_permission_iassign', 'iassign'), 'notifyproblem')); print '' . "\n"; print '
' . "\n"; print '' . get_string('proposition', 'iassign') . '' . "\n"; print '

' . $iassign_statement_activity_item->proposition . '

' . "\n"; print '
' . "\n"; $student_answer = ""; $enderecoPOST = ""; // Prepare tags to present the iLM $output = $ilm->view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, true); print $output; } //2020 Frame with area to send and read comments (in this point to allow everyone read) // $only_one_send_button is to avoid to put 2 copies of comments (area to send and see comments between teacher and student) if ($only_one_send_button==0 && $iassign_statement_activity_item->type_iassign == 3) { // type_iassign=3 => activity of type "exercise" - submit button and automatic evaluation // Put a block with area to sent/answer comments $output = ''; $history_comment = ''; $row = optional_param('row', 0, PARAM_INT); $column = optional_param('column', 0, PARAM_INT); if ($iassign_submission) { $enderecoPOSTcomment = "" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&action=newcomment&iassign_current=" . $this->activity->get_activity()->id . "&iassign_submission_current=" . $iassign_submission->id . "&userid_iassign=" . $this->userid_iassign . "&row=" . ($row) . "&column=" . ($column); $history_comment = $this->search_comment_submission($iassign_submission->id); } else { $enderecoPOSTcomment = "" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&action=newcomment&iassign_current=" . $this->activity->get_activity()->id . "&userid_iassign=" . $this->userid_iassign . "&row=" . ($row) . "&column=" . ($column); } $output .= $OUTPUT->box_start(); //if (!empty($history_comment)) { $output .= ""; $output .= " \n"; $output .= " "; $output .= "
" . get_string('history_comments', 'iassign') . "
"; print " "; $output .= "
\n"; $output .= "

\n"; $output .= "

\n"; $output .= "
\n"; $output .= "".$history_comment."
"; // } $output .= $OUTPUT->box_end(); print $output; } // if ($iassign_statement_activity_item->type_iassign == 3) // final block 'studant' print $OUTPUT->footer(); die(); } // function view_iassign_current() /// Export the data from performance report into CSV file format function export_csv () { global $USER, $CFG, $DB, $OUTPUT; $str = ""; $fields = "student_id, student_name"; // Finding all iassign activities for the iassign: $id = $this->cm->id; $iassign_list = $DB->get_records_list('iassign_statement', 'iassignid', array('iassignid' => $this->iassign->id), "position ASC"); $c = 1; foreach ($iassign_list as $iassign) { $fields .= ", activity_id_" . $c . ", activity_name_" . $c . ", total_submissions_activity_" . $c . ", grade_activity_" . $c . "" . ", status_activity_" . $c . ", ilm_id_activity_" . $c . ", ilm_name_activity_" . $c; $c++; } // Finding enrolled students: $params_temp = array('shortname' => 'student'); $role = $DB->get_record_sql("SELECT s.id, s.shortname FROM {role} s WHERE s.shortname = :shortname", $params_temp); $context = context_course::instance($this->course->id); $params_temp = array('contextid' => $context->id, 'roleid' => $role->id); $students = $DB->get_records_sql( "SELECT s.userid, a.firstname, a.lastname FROM {role_assignments} s, {user} a " . " WHERE s.contextid = :contextid AND s.userid = a.id AND s.roleid = :roleid " . " ORDER BY a.firstname ASC,a.lastname ASC", $params_temp); foreach ($students as $student) { $str .= $student->userid . ','; $str .= '"' . $student->firstname . ' ' . $student->lastname . '"'; foreach ($iassign_list as $iassign) { $str .= ',' . $iassign->id . ','; $str .= '"' . $iassign->name . '",'; $student_submissions = $DB->get_record("iassign_submission", array('iassign_statementid' => $iassign->id, 'userid' => $student->userid)); if ($student_submissions) { $str .= $student_submissions->experiment . ','; $str .= $student_submissions->grade . ','; switch ($student_submissions->status) { case 3: $str .= '"correct",'; break; case 2: $str .= '"incorrect",'; break; case 1: $str .= '"post",'; break; case 0: $str .= '"not_post",'; break; } } else { $str .= ',,"not_post",'; } $str .= $iassign->iassign_ilmid . ','; $ilm_activity = $DB->get_record("iassign_ilm", array('id' => $iassign->iassign_ilmid)); $str .= '"' . $ilm_activity->name . '"'; } $str .= "\n"; } $str = $fields . "\n" . $str; header("Content-type: text/csv"); header("Content-disposition: attachment; filename=report.csv"); header("Pragma: no-cache"); header("Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0"); header('Content-Length: ' . strlen($str)); header('Connection: close'); print $str; flush(); } // function export_csv() /// Display report of performance function report () { global $USER, $CFG, $DB, $OUTPUT; $id = $this->cm->id; $iassign_list = $DB->get_records_list('iassign_statement', 'iassignid', array('iassignid' => $this->iassign->id), "position ASC"); if ($this->action != 'print') { $title = get_string('report', 'iassign'); print $OUTPUT->header(); } // if ($this->action != 'print') $this->print_main_menu(); print $OUTPUT->box_start(); $this->view_legend_icons(); print $OUTPUT->box_end(); if ($this->action == 'print') print '' . "\n"; else print '
' . "\n"; print '' . "\n"; // $num = array(); $i = 1; $num = array(); $stylebutton = "background: none; -webkit-box-shadow: 2px 2px 5px 0px rgba(0,0,0,0.75);-moz-box-shadow: 2px 2px 5px 0px rgba(0,0,0,0.75);box-shadow: 2px 2px 5px 0px rgba(0,0,0,0.75); min-width: 4.5rem;"; foreach ($iassign_list as $iassign) { // for all exercise in this block $test_exercise = ""; $iassign_submission = $DB->get_records("iassign_submission", array("iassign_statementid" => $iassign->id)); if (($iassign_submission) && $iassign->type_iassign < 3) { $test_exercise = " (" . get_string('iassign_exercise', 'iassign') . ")"; } // if (($iassign_submission) && $iassign->type_iassign < 3) if ($iassign->type_iassign == 3 || ($iassign_submission)) { $num[$i] = new stdClass(); $num[$i]->name = $iassign->name; $num[$i]->id = $i; $num[$i]->iassignid = $iassign->id; print ' ' . "\n"; print " \n"; print ""; print ' ' . "\n"; $i++; } // if ($iassign->type_iassign == 3 || ($iassign_submission)) } // foreach ($iassign_list as $iassign) $num_exerc = $i; // total of exercises print "
' . iassign_utils::remove_code_message($this->iassign->name) . '
" . $num[$i]->id . ""; print ' ' . $num[$i]->name . ' ' . $test_exercise . "
"; print "

"; if ($this->action == 'print') print '' . "\n"; else // ./theme/boost/style/moodle.css: .generaltable print '
' . "\n"; $context = context_course::instance($this->course->id); if ($num_exerc > 1) { // $role = $DB->get_record_sql("SELECT s.id, s.shortname FROM {$CFG->prefix}role s WHERE s.shortname = 'student'"); $params_temp = array('shortname' => 'student'); $role = $DB->get_record_sql( "SELECT s.id, s.shortname FROM {role} s " . " WHERE s.shortname = :shortname", $params_temp); // $students = $DB->get_records_sql("SELECT s.userid, a.firstname, a.lastname FROM {$CFG->prefix}role_assignments s, {$CFG->prefix}user a WHERE s.contextid = '$context->id' AND s.userid = a.id AND s.roleid = '$role->id' ORDER BY a.firstname ASC,a.lastname ASC"); $params_temp = array('contextid' => $context->id, 'roleid' => $role->id); $students = $DB->get_records_sql( "SELECT s.userid, a.firstname, a.lastname FROM {role_assignments} s, {user} a " . " WHERE s.contextid = :contextid AND s.userid = a.id AND s.roleid = :roleid " . " ORDER BY a.firstname ASC,a.lastname ASC", $params_temp); print '' . "\n"; $width = 90/$num_exerc; for ($j=1; $j<$num_exerc; $j++) { // all exercises on this block $sum_iassign_correct[$j] = 0; print '' . "\n"; // '; $sum_iassign = $j - 1; print '' . "\n"; $total = 0; $sum_student = 0; $comment = iassign_icons::insert('comment_read'); $sum_comment = 0; $sum_correct_iassign = array(); $sum_correct_student = array(); $USER->matrix_iassign = array(); if ($students) { $w = 0; foreach ($students as $tmp) { // count students $users_array[$w] = $tmp; $w++; } for ($x=0; $x<$w; $x++) { // for all students print '' . "\n"; $sum_student++; $name = $users_array[$x]->firstname . ' ' . $users_array[$x]->lastname; print ' ' . "\n"; $total_student = 0; $tentativas = 0; for ($j=1; $j<$num_exerc; $j++) { // for all exercise $sum_comment = $sum_verify_message = 0; $student_submissions = $DB->get_record("iassign_submission", array('iassign_statementid' => $num[$j]->iassignid, 'userid' => $users_array[$x]->userid)); // data about student solution if ($student_submissions) { $last_solution_submission = " title=\"" . userdate($student_submissions->timemodified) . "\" "; // timemodified: time of the last student solution $tentativas = $student_submissions->experiment; // Get student comments // $student_submissions_comment = $DB->get_record_sql("SELECT COUNT(iassign_submissionid) FROM {$CFG->prefix}ia_assign_submissions_comment WHERE iassign_submissionid = '$student_submissions->id'"); $params_temp = array('iassign_submissionid' => $student_submissions->id); $student_submissions_comment = $DB->get_record_sql( "SELECT COUNT(iassign_submissionid) FROM {iassign_submission_comment} " . "WHERE iassign_submissionid = :iassign_submissionid", $params_temp); if ($student_submissions_comment) // student has comment foreach ($student_submissions_comment as $tmp) $sum_comment = $tmp; // informations to previous activities if ($j - 1 < 1 || $j == $num_exerc) $iassign_previous = "-1"; else $iassign_previous = $num[$j - 1]->iassignid; if ($x - 1 < 0 || $x == $w) $user_previous = "-1"; else $user_previous = $users_array[$x - 1]->userid; // next if ($i - 1 > $j) $iassign_next = $num[$j + 1]->iassignid; else $iassign_next = "-1"; if ($w - 1 > $x) $user_next = $users_array[$x + 1]->userid; else $user_next = "-1"; $position = "&row= $x&column=$j"; $url = "" . $CFG->wwwroot . "/mod/iassign/view.php?action=viewsubmission&id=" . $id . "&iassign_submission_current=" . $student_submissions->id . "&userid_iassign=" . $users_array[$x]->userid . "&iassign_current=" . $num[$j]->iassignid . "&view_iassign=" . $this->view_iassign; $url .= $position; // receiver=1 - message to teacher // receiver=2 - message to student // $verify_message = $DB->get_record_sql("SELECT COUNT(iassign_submissionid) FROM {$CFG->prefix}ia_assign_submissions_comment " . // "WHERE iassign_submissionid = '$student_submissions->id' AND return_status='0' AND receiver='1'"); $params_temp = array('iassign_submissionid' => $student_submissions->id, 'return_status' => '0', 'receiver' => '1'); $verify_message = $DB->get_record_sql( "SELECT COUNT(iassign_submissionid) FROM {iassign_submission_comment} " . "WHERE iassign_submissionid = :iassign_submissionid " . " AND return_status= :return_status " . " AND receiver= :receiver", $params_temp); if ($verify_message) foreach ($verify_message as $tmp) $sum_verify_message = $tmp; if ($sum_verify_message > 0) $comment = ''; else $comment = ''; if ($student_submissions->status == 3) { $sum_iassign_correct[$j]++; $total_student++; $feedback = ''; } elseif ($student_submissions->status == 2) { $feedback = ''; } elseif ($student_submissions->status == 1) { $feedback = ''; } elseif ($student_submissions->status == 0) { $feedback = ''; } if ($this->action != 'print') { if ($tentativas > 0) print '' . "\n"; } if ($this->action == 'print') print $feedback . ' (' . $tentativas . ')
' . $comment . ' (' . $sum_comment . ') ' . "\n"; } // if ($student_submissions) else { // if ($student_submissions) // Student does not have any submission // informations to browse previous activities if ($j - 1 < 1 || $j == $i) $iassign_previous = "-1"; else $iassign_previous = $num[$j - 1]->iassignid; if ($x - 1 < 0 || $x == $w) $user_previous = "-1"; else $user_previous = $users_array[$x - 1]->userid; // next if ($i - 1 > $j) $iassign_next = $num[$j + 1]->iassignid; else $iassign_next = "-1"; if ($w - 1 > $x) $user_next = $users_array[$x + 1]->userid; else $user_next = "-1"; $position = "&row= $x&column=$j"; $url = $CFG->wwwroot . "/mod/iassign/view.php?action=viewsubmission&id=" . $id . "&userid_iassign=" . $users_array[$x]->userid . "&iassign_current=" . $num[$j]->iassignid . "&view_iassign=" . $this->view_iassign; $url .= $position; $feedback = ''; if ($this->action == 'print') print $feedback . ' (0)
' . $comment . ' (' . $sum_comment . ') ' . "\n"; else { print ''; if ($sum_comment > 0) print '' . $comment . '  (' . $sum_comment . ') ' . "\n"; // else print ''; print ''; } } // else if ($student_submissions) $USER->matrix_iassign[$x][$j] = new stdClass(); $USER->matrix_iassign[$x][$j]->iassign_previous = $iassign_previous; $USER->matrix_iassign[$x][$j]->user_previous = $user_previous; $USER->matrix_iassign[$x][$j]->iassign_next = $iassign_next; $USER->matrix_iassign[$x][$j]->user_next = $user_next; if ($student_submissions) $USER->matrix_iassign[$x][$j]->iassign_submission_current = $student_submissions->id; else $USER->matrix_iassign[$x][$j]->iassign_submission_current = 0; //print '' . "\n"; } // for ($j=1; $j<$num_exerc; $j++) $total = $total + $total_student; $porcentagem = ($total_student / ($j - 1)) * 100; if ($tentativas != 0 && $tentativas != null) { $url_answer = "" . $CFG->wwwroot . "/mod/iassign/view.php?" . "action=download_all_answer&iassign_id=" . $this->iassign->id . "&userid=" . $users_array[$x]->userid . "&id=" . $id; print ' ' . "\n"; } else { print ' ' . "\n"; } print '' . "\n"; $sum_correct_student[$sum_student] = new stdClass(); $sum_correct_student[$sum_student]->name = $name; $sum_correct_student[$sum_student]->sum = $total_student; } // for ($x = 0; $x < $w; $x++) for ($i = 1; $i < $j; $i++) { if (is_null($sum_iassign_correct[$i])) $sum_iassign_correct[$i] = 0; $sum_correct_iassign[$i] = new stdClass(); $sum_correct_iassign[$i]->sum = $sum_iassign_correct[$i]; $sum_correct_iassign[$i]->name = $num[$i]->name; } // print '
' . get_string('students', 'iassign') . '' . $num[$j]->id . ' } print ' ' . get_string('functions', 'iassign') . '
' . $name . ' ' . '' . '' . "\n"; else print ' ' . '' . '' . "\n"; if ($sum_comment > 0 && $sum_verify_message > 0) print ' ' . '' . ''; else if ($sum_comment > 0) print ' ' . '' . ''; print ' ' . '' . '' . "\n"; // print '    ' . iassign_icons::insert('download_all_assign') . '' . iassign_icons::insert('download_all_assign_disabled') . '
' . "\n"; } } // if ($i>1) else { print_string('no_activity', 'iassign'); } print "\n"; print '

' . get_string('ps_experiment', 'iassign') . "

\n"; // the number of atemps is... print '

' . get_string('ps_comment', 'iassign') . "

\n"; // the total number of messages is... if ($this->action != 'print') print $OUTPUT->footer(); die(); } // function report() /// Display graphics of performance function stats () { global $USER, $CFG, $DB, $OUTPUT; $id = $this->cm->id; $iassign_list = $DB->get_records_list('iassign_statement', 'iassignid', array('iassignid' => $this->iassign->id), "position ASC"); if ($this->action != 'printstats') $title = get_string('graphic', 'iassign'); $num = array(); $sum_correct_iassign = array(); $sum_correct_student = array(); $sum_student = 0; $i = 1; foreach ($iassign_list as $iassign) { $iassign_submission = $DB->get_records("iassign_submission", array("iassign_statementid" => $iassign->id)); if ($iassign->type_iassign == 3) { // || ($iassign_submission) $sum_iassign_correct[$i] = 0; $num[$i] = new stdClass(); $num[$i]->name = $iassign->name; $num[$i]->id = $i; $num[$i]->iassignid = $iassign->id; $i++; } // if ($iassign->type_iassign == 3) } // foreach ($iassign_list as $iassign) $sum_iassign = $i - 1; $context = context_course::instance($this->course->id); if ($i > 1) { // $role = $DB->get_record_sql("SELECT s.id, s.shortname FROM {$CFG->prefix}role s WHERE s.shortname = 'student'"); $params_temp = array('shortname' => 'student'); $role = $DB->get_record_sql( "SELECT s.id, s.shortname FROM {role} s " . " WHERE s.shortname = :shortname", $params_temp); // $students = $DB->get_records_sql("SELECT s.userid, a.firstname, a.lastname FROM {$CFG->prefix}role_assignments s, {$CFG->prefix}user a WHERE s.contextid = '$context->id' AND s.userid = a.id AND s.roleid = '$role->id' ORDER BY a.firstname ASC,a.lastname ASC"); $params_temp = array('contextid' => $context->id, 'roleid' => $role->id); $students = $DB->get_records_sql( "SELECT s.userid, a.firstname, a.lastname FROM {role_assignments} s, {user} a " . " WHERE s.contextid = :contextid AND s.userid = a.id AND s.roleid = :roleid " . " ORDER BY a.firstname ASC,a.lastname ASC", $params_temp); $total = 0; $sum_student = 0; $j = 0; $sum_correct_iassign = array(); $sum_correct_student = array(); $sum_experiment = array(); if ($students) { foreach ($students as $users) { $sum_student++; $name = $users->firstname . ' ' . $users->lastname; // rows $total_student = 0; for ($j = 1; $j < $i; $j++) { $total_experiment = 0; $student_submissions = $DB->get_record("iassign_submission", array('iassign_statementid' => $num[$j]->iassignid, 'userid' => $users->userid)); // data about student solution if ($student_submissions) { if ($student_submissions->status == 3) { $sum_iassign_correct[$j]++; $total_student++; } // if ($student_submissions->status == 3) $total_experiment += $student_submissions->experiment; } $sum_experiment[$j] = $total_experiment; } // for ($j=1; $j<$i; $j++) $total = $total + $total_student; $sum_correct_student[$sum_student] = new stdClass(); $sum_correct_student[$sum_student]->name = $name; $sum_correct_student[$sum_student]->sum = $total_student; } // foreach ($students as $users) } for ($i = 1; $i < $j; $i++) { if (is_null($sum_iassign_correct[$i])) $sum_iassign_correct[$i] = 0; $sum_correct_iassign[$i] = new stdClass(); $sum_correct_iassign[$i]->sum = $sum_iassign_correct[$i]; $sum_correct_iassign[$i]->name = $num[$i]->name; $sum_correct_iassign[$i]->experiment = $sum_experiment[$i]; } // for ($i = 1; $i < $j; $i++) } // if ($i > 1) print $OUTPUT->header(); $this->print_main_menu(); if ($this->action != 'printstats') { $title = get_string('graphic', 'iassign'); $link_report = "" . iassign_icons::insert('view_report') . ' ' . get_string('report', 'iassign') . ""; $link_print_stats = "" . iassign_icons::insert('print') . ' ' . get_string('print', 'iassign') . ""; print ''; print '' . "\n"; print ''; print '
' . $link_print_stats . '' . $link_report . '
' . "\n"; print "

"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; $sum_correct = 0; if ($sum_correct_iassign) { foreach ($sum_correct_iassign as $iassign) { if (is_null($iassign->experiment)) $iassign->experiment = 0; $bar = ""; $sum = $iassign->sum; $percent = ($sum / $sum_student) * 100; $text = number_format($percent, 1) . '%'; $sum_correct += $sum; if ($sum > 0) { for ($i = 1; $i < $percent * 2; $i++) $bar .= iassign_icons::insert('hbar_blue'); $bar .= iassign_icons::insert('hbar_blue_r'); } // if ($sum > 0) print '' . "\n"; print ' ' . "\n"; print ' ' . "\n"; print ' ' . "\n"; print ' ' . "\n"; print '' . "\n"; } // foreach ($sum_correct_iassign as $iassign) } print "
' . get_string('distribution_activity', 'iassign') . '
' . iassign_utils::remove_code_message($this->iassign->name) . '' . get_string('percentage_correct', 'iassign') . '' . get_string('proportion_correct', 'iassign') . '' . "\n"; print '' . get_string('sum_experiment', 'iassign') . '' . get_string('avg_experiment', 'iassign') . '
' . $iassign->name . '' . $bar . ' ' . $text . '' . $sum . '/' . $sum_student . '' . $iassign->experiment . '' . number_format($iassign->experiment / $sum_iassign, 1) . '
"; print "

"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print ' '; print ' '; print '' . "\n"; $sum_correct = 0; foreach ($sum_correct_student as $student) { $bar = ""; $sum = $student->sum; $percent = ($sum / $sum_iassign) * 100; $text = number_format($percent, 1) . '%'; $sum_correct += $sum; if ($sum > 0) { for ($i = 1; $i < $percent * 2; $i++) $bar .= iassign_icons::insert('hbar_blue'); $bar .= iassign_icons::insert('hbar_blue_r'); } // if ($sum > 0) print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; } // foreach ($sum_correct_student as $student) print "
' . get_string('distribution_student', 'iassign') . '
' . iassign_utils::remove_code_message($this->iassign->name) . '' . get_string('percentage_correct', 'iassign') . '' . get_string('sum_correct', 'iassign') . '
' . $student->name . '' . $bar . ' ' . $text . '' . $sum . '/' . $sum_iassign . '
\n"; print "

\n"; $var = 0; $cv = 0; $dv = 0; $avg = 0; if ($sum_correct_student) { $avg = $sum_correct / $sum_student; if ($avg > 0) { foreach ($sum_correct_student as $student) $var += pow($student->sum - $avg, 2); $var = $var / $sum_student; $dv = sqrt($var); $cv = ($dv / $avg) * 100; } } print '' . "\n"; print '' . "\n"; print '' . "\n"; print ' ' . "\n"; print ' ' . "\n"; print ' ' . "\n"; print ' ' . "\n"; print '' . "\n"; print ' ' . "\n"; print ' ' . "\n"; print ' ' . "\n"; print ' ' . "\n"; print "
' . get_string('statistics', 'iassign') . '
' . get_string('sum_activity', 'iassign') . '' . get_string('sum_student', 'iassign') . '' . get_string('mean_score', 'iassign') . '' . get_string('standard_deviation', 'iassign') . '' . get_string('coefficient_variation', 'iassign') . '
' . $sum_iassign . '' . $sum_student . '' . number_format($avg, 1) . '' . number_format($dv, 1) . '' . number_format($cv, 1) . '%
\n"; print $OUTPUT->footer(); } else { print "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print ''; print ''; print '' . "\n"; $sum_correct = 0; foreach ($sum_correct_iassign as $iassign) { $bar = ""; $sum = $iassign->sum; $percent = ($sum / $sum_student) * 100; $text = number_format($percent, 1) . '%'; $sum_correct += $sum; if ($sum > 0) { for ($i = 1; $i < $percent * 2; $i++) $bar .= iassign_icons::insert('hbar_blue'); $bar .= iassign_icons::insert('hbar_blue_r'); } // if ($sum > 0) print '' . "\n"; print ''; print ''; print '' . "\n"; } // foreach ($sum_correct_iassign as $iassign) print "
' . get_string('distribution_activity', 'iassign') . '
' . iassign_utils::remove_code_message($this->iassign->name) . '' . get_string('percentage_correct', 'iassign') . '' . get_string('sum_correct', 'iassign') . '
' . $iassign->name . '' . $bar . ' ' . $text . '' . $sum . '/' . $sum_student . '
"; print "

"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print ''; print ''; print '' . "\n"; $sum_correct = 0; foreach ($sum_correct_student as $student) { $bar = ""; $sum = $student->sum; $percent = ($sum / $sum_iassign) * 100; $text = number_format($percent, 1) . '%'; $sum_correct += $sum; if ($sum > 0) { for ($i = 1; $i < $percent * 2; $i++) $bar .= iassign_icons::insert('hbar_blue'); $bar .= iassign_icons::insert('hbar_blue_r'); } // if ($sum > 0) print "\n"; print ' ' . "\n"; print ' ' . "\n"; print '' . "\n"; } // foreach ($sum_correct_student as $student) print "
' . get_string('distribution_student', 'iassign') . '
' . iassign_utils::remove_code_message($this->iassign->name) . '' . get_string('percentage_correct', 'iassign') . '' . get_string('sum_correct', 'iassign') . '
" . $student->name . "' . $bar . ' ' . $text . '' . $sum . '/' . $sum_iassign . '
\n"; print "

\n"; $var = 0; $cv = 0; $dv = 0; $avg = 0; if ($sum_correct_student) { $avg = $sum_correct / $sum_student; if ($avg > 0) { foreach ($sum_correct_student as $student) $var += pow($student->sum - $avg, 2); $var = $var / $sum_student; $dv = sqrt($var); $cv = ($dv / $avg) * 100; } } print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print "
' . get_string('statistics', 'iassign') . '
' . get_string('sum_activity', 'iassign') . '' . get_string('sum_student', 'iassign') . '' . get_string('mean_score', 'iassign') . '' . get_string('standard_deviation', 'iassign') . '' . get_string('coefficient_variation', 'iassign') . '
' . $sum_iassign . '' . $sum_student . '' . number_format($avg, 1) . '' . number_format($dv, 1) . '' . number_format($cv, 1) . '%
\n"; } // if ($this->action != 'printstats') die(); } /// Display graphics of performance for students function stats_students () { global $USER, $CFG, $DB, $OUTPUT; $id = $this->cm->id; $iassign_statement_list = $DB->get_records_sql("SELECT * FROM {iassign_statement} s " . " WHERE s.iassignid = '{$this->iassign->id}' AND s.type_iassign=3 ORDER BY s.position"); $title = get_string('results', 'iassign'); $sum_correct = 0; $sum_incorrect = 0; $sum_post = 0; $sum_nopost = 0; $sum_iassign = count($iassign_statement_list); $bar_nopost = ""; $bar_correct = ""; $bar_incorrect = ""; $bar_post = ""; $text_nopost = ""; $text_correct = ""; $text_incorrect = ""; foreach ($iassign_statement_list as $iassign_statement_activity_item) { $iassign_submission = $DB->get_record("iassign_submission", array('iassign_statementid' => $iassign_statement_activity_item->id, 'userid' => $USER->id)); // data about student solution if ($iassign_submission) { if ($iassign_submission->status == 3) $sum_correct++; elseif ($iassign_submission->status == 2) $sum_incorrect++; elseif ($iassign_submission->status == 1) $sum_post++; elseif ($iassign_submission->status == 0 || !$iassign_submission) $sum_nopost++; } // if ($iassign_submission) } // foreach ($iassign_statement_list as $iassign_statement_activity_item) if ($sum_iassign > 0) { $percent_correct = ($sum_correct / $sum_iassign) * 100; $text_correct = number_format($percent_correct, 1) . '%'; } if ($sum_correct > 0) { for ($i = 1; $i < $percent_correct * 2; $i++) $bar_correct .= iassign_icons::insert('hbar_green'); $bar_correct .= iassign_icons::insert('hbar_green_r'); } // if ($sum_correct > 0) if ($sum_iassign > 0) { $percent_incorrect = ($sum_incorrect / $sum_iassign) * 100; $text_incorrect = number_format($percent_incorrect, 1) . '%'; } if ($sum_incorrect > 0) { for ($i = 1; $i < $percent_incorrect * 2; $i++) $bar_incorrect .= iassign_icons::insert('hbar_red'); $bar_incorrect .= iassign_icons::insert('hbar_red_r'); } // if ($sum_incorrect > 0) if ($sum_iassign > 0) { $percent_post = ($sum_post / $sum_iassign) * 100; $text_post = number_format($percent_post, 1) . '%'; } if ($sum_post > 0) { for ($i = 1; $i < $percent_post * 2; $i++) $bar_post .= iassign_icons::insert('hbar_blue'); $bar_post .= iassign_icons::insert('hbar_blue_r'); } // if ($sum_post > 0) if ($sum_iassign > 0) { $percent_nopost = ($sum_nopost / $sum_iassign) * 100; $text_nopost = number_format($percent_nopost, 1) . '%'; } if ($sum_nopost > 0) { for ($i = 1; $i < $percent_nopost * 2; $i++) $bar_nopost .= iassign_icons::insert('hbar_orange'); $bar_nopost .= iassign_icons::insert('hbar_orange_r'); } // if ($sum_nopost > 0) print $OUTPUT->header(); $this->print_main_menu(); //2021/12 $link_return = " " . iassign_icons::insert('home') . get_string('activities_page', 'iassign') . ""; //2021/12 print ''; //2021/12 print '' . "\n"; //2021/12 print '
' . $link_return . '
' . "\n"; print "

\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print ''; print ''; print '' . "\n"; print '' . "\n"; print ''; print ''; print '' . "\n"; if ($sum_post) { print '' . "\n"; print ''; print ''; print '' . "\n"; } // if ($sum_post) print '' . "\n"; print ''; print ''; print '' . "\n"; print "
' . "\n"; // helpbutton('legend', get_string('legend', 'iassign'), 'iassign', $image = true, $linktext = false, $text = '', $return = false, // $imagetext = ''); print iassign_utils::remove_code_message($this->iassign->name) . '
' . get_string('correct', 'iassign') . '' . $bar_correct . ' ' . $text_correct . '' . $sum_correct . '/' . $sum_iassign . '
' . get_string('incorrect', 'iassign') . '' . $bar_incorrect . ' ' . $text_incorrect . '' . $sum_incorrect . '/' . $sum_iassign . '
' . get_string('post', 'iassign') . '' . $bar_post . ' ' . $text_post . '' . $sum_post . '/' . $sum_iassign . '
' . get_string('not_post', 'iassign') . '' . $bar_nopost . ' ' . $text_nopost . '' . $sum_nopost . '/' . $sum_iassign . '
"; print "

"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; $sum_grade = 0; $sum_grade_student = 0; $avg = 0; foreach ($iassign_statement_list as $iassign_statement_activity_item) { $iassign_submission = $DB->get_record("iassign_submission", array('iassign_statementid' => $iassign_statement_activity_item->id, 'userid' => $USER->id)); if (!$iassign_submission) { $iassign_submission = new stdClass(); $iassign_submission->grade = 0; } print '' . "\n"; print ''; print ''; print '' . "\n"; $sum_grade += $iassign_statement_activity_item->grade; $sum_grade_student += $iassign_submission->grade; } // foreach ($iassign_statement_list as $iassign_statement_activity_item) if ($sum_grade > 0) $avg = $sum_grade_student / $sum_grade * 100; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print '' . "\n"; print "
' . get_string('grades', 'iassign') . '
' . iassign_utils::remove_code_message($this->iassign->name) . '' . get_string('grade_student', 'iassign') . '' . get_string('grade_iassign', 'iassign') . '
' . $iassign_statement_activity_item->name . '' . $iassign_submission->grade . '' . $iassign_statement_activity_item->grade . '
' . get_string('total', 'iassign') . '' . $sum_grade_student . '' . $sum_grade . '
' . get_string('percentage_correct', 'iassign') . '' . number_format($avg, 1) . '%
"; print $OUTPUT->footer(); die(); } // function stats_students() function get_total_notifications () { global $DB, $USER, $COURSE; $total_messages = 0; if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) { $params = array('userid' => $USER->id, 'course' => $COURSE->id, 'receiver' => '1'); $total_messages = $DB->get_record_sql("SELECT COUNT(*) AS total FROM {iassign_submission_comment} AS c, {iassign_submission} AS s, {iassign_statement} AS st, {iassign} AS ias " . " WHERE c.return_status=0 AND c.receiver=:receiver AND c.iassign_submissionid=s.id AND s.iassign_statementid=st.id AND st.iassignid=ias.id AND ias.course=:course", $params); } else { $params = array('userid' => $USER->id, 'course' => $COURSE->id, 'receiver' => '2'); $total_messages = $DB->get_record_sql("SELECT COUNT(*) AS total FROM {iassign_submission_comment} AS c, {iassign_submission} AS s, {iassign_statement} AS st, {iassign} AS ias " . " WHERE c.return_status=0 AND c.receiver=:receiver AND c.iassign_submissionid=s.id AND s.userid=:userid AND s.iassign_statementid=st.id AND st.iassignid=ias.id AND ias.course=:course", $params); } return $total_messages->total; } function get_iassign_statement_messages () { global $DB, $USER, $COURSE; if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) { $params = array('userid' => $USER->id, 'course' => $COURSE->id, 'receiver' => '1'); $totais = array(); $messages = $DB->get_records_sql("SELECT c.id AS commentid, st.id AS stid, s.userid AS user, ias.id AS iasid, s.id AS subid, st.name AS stname, ias.name AS iasname FROM {iassign_submission_comment} AS c, {iassign_submission} AS s, {iassign_statement} AS st, {iassign} AS ias " . " WHERE c.return_status=0 AND c.receiver=:receiver AND c.iassign_submissionid=s.id AND s.iassign_statementid=st.id AND st.iassignid=ias.id AND ias.course=:course", $params); foreach($messages as $item) { if (isset($totais[$item->subid])) { $totais[$item->subid]->total++; } else { $totais[$item->subid] = new stdclass(); $item->total = 1; $totais[$item->subid] = $item; } } return $totais; } else { $params = array('userid' => $USER->id, 'course' => $COURSE->id, 'receiver' => '2'); $totais = array(); $messages = $DB->get_records_sql("SELECT c.id as commentid, s.id AS subid, st.id AS stid, ias.id AS iasid, s.userid AS userid, st.name AS stname, ias.name AS iasname FROM {iassign_submission_comment} AS c, {iassign_submission} AS s, {iassign_statement} AS st, {iassign} AS ias " . " WHERE c.return_status=0 AND c.receiver=:receiver AND c.iassign_submissionid=s.id AND s.userid=:userid AND s.iassign_statementid=st.id AND st.iassignid=ias.id AND ias.course=:course", $params); foreach($messages as $item) { if (isset($totais[$item->subid])) { $totais[$item->subid]->total++; } else { $totais[$item->subid] = new stdclass(); $item->total = 1; $totais[$item->subid] = $item; } } return $totais; } } function view_notifications_teachers () { global $OUTPUT, $USER, $DB; $messages = $this->get_iassign_statement_messages(); print ''; // 1º. listar as mensagens recebidas no bloco atual: $actual_block = $this->iassign->id; $id = $this->cm->id; $total_include = 0; $activities_actual_block = array(); if ($messages) foreach ($messages as $item) if ($item->iasid == $actual_block) if (!in_array($item->stid, $activities_actual_block)) array_push($activities_actual_block, $item->stid); if ($activities_actual_block) foreach ($activities_actual_block as $activity_id) { $printed = false; foreach ($messages as $item) { if ($item->stid == $activity_id) { if (!$printed) { $student_url = "view.php?id=$id&userid_iassign=$USER->id&action=view&iassign_current=$item->stid"; $link_student = "" . $item->stname . ""; print '
' . $link_student . ''; print ''; $printed = true; } $submission_url = "view.php?id=$id&userid_iassign=$item->user&action=viewsubmission&iassign_current=$item->stid"; $user = $DB->get_record('user', array('id' => $item->user)); $label = $item->total > 1 ? get_string('comment_unread', 'iassign') : get_string('comment_unread_one', 'iassign'); print ''. '' .''; $total_include++; } } print '
' . $user->firstname . ' ' . $user->lastname . ' ' . $label . ' '.$item->total.'
'; } print '
'; if (count($activities_actual_block) == 0) { print '
'.get_string('empty_new_messages_block', 'iassign').'
'; print '
'; } if ($messages && $total_include == count($messages)) { print $OUTPUT->footer(); return; } print '

'.get_string('new_messages_other_blocks', 'iassign').'

'; $iassign_ids = array(); if ($messages) foreach ($messages as $item) if (!in_array($item->iasid, $iassign_ids) && $item->iasid != $actual_block) array_push($iassign_ids, $item->iasid); foreach ($iassign_ids as $id_iassign) { $printed = false; $activities_in_block = array(); foreach ($messages as $subitem) if ($subitem->iasid == $id_iassign) if (!in_array($item->stid, $activities_in_block)) array_push($activities_in_block, $item->stid); foreach ($messages as $item) { if ($item->iasid == $id_iassign) { if (!$printed) { $printed = true; print ' ' . $item->iasname . '
'; print ''; } foreach ($activities_in_block as $id_activity) { $print = false; foreach ($messages as $subitem) { if ($subitem->stid == $id_activity) { if (!$print) { $student_url = "view.php?id=$id&userid_iassign=$USER->id&action=view&iassign_current=$subitem->stid"; $link_student = "" . $subitem->stname . ""; print '
' . $link_student . ''; print ''; $print = true; } foreach ($messages as $comment_student) { if ($comment_student->stid == $id_activity) { $submission_url = "view.php?id=$id&userid_iassign=$comment_student->user&action=viewsubmission&iassign_current=$comment_student->stid"; $user = $DB->get_record('user', array('id' => $comment_student->user)); $label = $comment_student->total > 1 ? get_string('comment_unread', 'iassign') : get_string('comment_unread_one', 'iassign'); print ''. '' .''; } } break; } } } print '
' . $user->firstname . ' ' . $user->lastname . ' ' . $label . ' '.$comment_student->total.'
'; break; } } } print $OUTPUT->footer(); } function view_notifications () { global $OUTPUT, $USER; print $OUTPUT->header(); $this->print_main_menu(); print '

'.get_string('new_messages', 'iassign').'

'; if ($this->get_total_notifications() == 0) { print '
'.get_string('empty_new_messages', 'iassign').'
'; print '
'; print $OUTPUT->footer(); return; } if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) { $this->view_notifications_teachers(); return; } $messages = $this->get_iassign_statement_messages(); print ''; // 1º. listar as mensagens recebidas no bloco atual: $actual_block = $this->iassign->id; $id = $this->cm->id; $total_include = 0; if ($messages) foreach ($messages as $item) { if ($item->iasid == $actual_block) { $student_url = "view.php?id=$id&userid_iassign=$USER->id&action=view&iassign_current=$item->stid#comments"; $link_student = "" . $item->stname . ""; $label = $item->total > 1 ? get_string('comment_unread', 'iassign') : get_string('comment_unread_one', 'iassign'); print ''; $total_include++; } } print '
' . $link_student . ' ' . $label . ' '.$item->total.'
'; if ($total_include == 0) { print '
'.get_string('empty_new_messages_block', 'iassign').'
'; print '
'; } if ($messages && $total_include == count($messages)) { print $OUTPUT->footer(); return; } print '

'.get_string('new_messages_other_blocks', 'iassign').'

'; // 2º. listar as mensagens recebidas nos demais blocos do curso: $iassign_ids = array(); if ($messages) foreach ($messages as $item) if (!in_array($item->iasid, $iassign_ids) && $item->iasid != $actual_block) array_push($iassign_ids, $item->iasid); foreach ($iassign_ids as $id_iassign) { $printed = false; foreach ($messages as $item) { if ($item->iasid == $id_iassign) { if (!$printed) { $printed = true; print ' ' . $item->iasname . '
'; print ''; } $student_url = "view.php?id=$id&userid_iassign=$USER->id&action=view&iassign_current=$item->stid#comments"; $link_student = "" . $item->stname . ""; $label = $item->total > 1 ? get_string('comment_unread', 'iassign') : get_string('comment_unread_one', 'iassign'); print ''; } } print '
' . $link_student . ' ' . $label . ' '.$item->total.'
'; } print $OUTPUT->footer(); } function print_main_menu () { global $USER; $id = $this->cm->id; $actual_action = optional_param('action', '', PARAM_TEXT); $url_help = new moodle_url('/mod/iassign/settings_ilm.php', array('action' => 'list', 'ilm_id' => 1)); $url_report = new moodle_url('/mod/iassign/view.php', array('action' => 'report', 'id' => $id, 'iassignid' => $this->iassign->id)); $url_add = new moodle_url('/mod/iassign/view.php', array('id' => $id, 'action' => 'add', 'iassignid' => $this->iassign->id)); $url_stats = new moodle_url('/mod/iassign/view.php', array('id' => $id, 'action' => 'stats_student', 'iassignid' => $this->iassign->id)); $url_home = new moodle_url('/mod/iassign/view.php', array('id' => $id)); $url_notifications = new moodle_url('/mod/iassign/view.php', array('id' => $id, 'action' => 'notifications', 'iassignid' => $this->iassign->id)); $url_auto_evaluate = new moodle_url('/mod/iassign/view.php', array('id' => $id, 'action' => 'auto_evaluate', 'iassignid' => $this->iassign->id)); $url_sub_stats = new moodle_url('/mod/iassign/view.php', array('id' => $id, 'action' => 'stats', 'iassignid' => $this->iassign->id)); $url_all_submissions = new moodle_url('/mod/iassign/view.php', array('id' => $id, 'action' => 'all_submissions', 'iassignid' => $this->iassign->id)); $url_import_activity = new moodle_url('/mod/iassign/view.php', array('id' => $id, 'action' => 'import_activity', 'iassignid' => $this->iassign->id)); print '
'; print '' . "\n"; print ' ' . get_string('activities_page', 'iassign') . "\n"; if (has_capability('mod/iassign:viewiassignall', $this->context, $USER->id)) { // could be "has_capability('mod/iassign:viewiassignall', $this->context, $USER->id)" // Has capability to see "report": teacher or up print ' '.get_string('help_ilm', 'iassign').''; print '
'; if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) { print ' ' . get_string('add_iassign', 'iassign') . "\n"; print ' '; // " } // if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) print '
' . "\n"; } /// Display page of iAssign's block of activities function view_iassigns () { global $USER, $CFG, $COURSE, $DB, $OUTPUT; $id = $this->cm->id; $iassign_list = $DB->get_records_list('iassign_statement', 'iassignid', array('iassignid' => $this->iassign->id), 'position ASC'); $notice = optional_param('notice', '', PARAM_TEXT); if (strpos($notice, 'error')) print($OUTPUT->notification(get_string($notice, 'iassign'), 'notifyproblem')); else if ($notice != '') print($OUTPUT->notification(get_string($notice, 'iassign'), 'notifysuccess')); $this->print_main_menu(); // teachers' menu: Page of activities; About iLM; Report; Results; Reevaluation; Notifications print $OUTPUT->box_start(); if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) { print '
' . "\n"; if ($iassign_list) { // $USER->iassignEdit == 0 view 'Turn editing off' // $USER->iassignEdit == 1 view 'Turn editing on' if (!isset($USER->iassignEdit)) $USER->iassignEdit = 0; if ($USER->iassignEdit == 0) { $bottonEdit_message = get_string('turneditingon', 'iassign'); $botton = 1; } elseif ($USER->iassignEdit == 1) { $bottonEdit_message = get_string('turneditingoff', 'iassign'); $botton = 0; } $editPost = "" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&botton=" . $botton; print "\n
\n"; print " \n"; print "
\n"; } // if ($iassign_list) print "
\n"; } // if (has_capability('mod/iassign:submitiassign', $this->context, $USER->id)) // $this->view_legend_icons(); print $OUTPUT->box_end(); $iassign_array_exercise = array(); $i_exercise = 0; // count total number of activities of type 'exercise' inside the block $iassign_array_test = array(); $i_test = 0; // count total number of activities of type 'test' inside the block $iassign_array_example = array(); $i_example = 0; // count total number of activities of type 'example' inside the block $iassign_array_general = array(); $i_general = 0; if ($iassign_list) { if ($this->iassign->activity_group == 0) { foreach ($iassign_list as $iassign) { $iassign_array_general[$i_general] = $iassign; $i_general++; } } // if ($this->iassign->activity_group == 0) else { foreach ($iassign_list as $iassign) { if ($iassign->type_iassign == 3) { $iassign_array_exercise[$i_exercise] = $iassign; $i_exercise++; } // if ($iassign->type_iassign == 3) if ($iassign->type_iassign == 2) { $iassign_array_test[$i_test] = $iassign; $i_test++; } // if ($iassign->type_iassign == 2) if ($iassign->type_iassign == 1) { $iassign_array_example[$i_example] = $iassign; $i_example++; } // if ($iassign->type_iassign == 1) } } if ($iassign_array_exercise) { $title = get_string('exercise', 'iassign').(count($iassign_array_exercise)>1?'s':''); $this->show_iassign($title, $iassign_array_exercise, $i_exercise); } if ($iassign_array_test) { $title = get_string('test', 'iassign').(count($iassign_array_test)>1?'s':''); $this->show_iassign($title, $iassign_array_test, $i_test); } if ($iassign_array_example) { $title = get_string('example', 'iassign').(count($iassign_array_example)>1?'s':'');; $this->show_iassign($title, $iassign_array_example, $i_example); } if ($iassign_array_general) { $title = ""; $this->show_iassign($title, $iassign_array_general, $i_general); } } else { // if ($iassign_list) print $OUTPUT->notification(get_string('no_activity', 'iassign'), 'notifysuccess'); } if (count($iassign_list) > 5 && !(has_capability('mod/iassign:submitiassign', $this->context, $USER->id))) { if (has_capability('mod/iassign:viewiassignall', $this->context, $USER->id)) { print $OUTPUT->box_start(); print '' . "\n"; print '' . "\n"; print '
' . "\n"; print $link_report; print '
' . "\n"; print $OUTPUT->box_end(); } // if (has_capability('mod/iassign:viewiassignall', $this->context, $USER->id)) if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) { print $OUTPUT->box_start(); print '' . "\n"; print '' . "\n"; print '
' . "\n"; print $link_add; print '
' . "\n"; print $OUTPUT->box_end(); } // if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) } // if (count($iassign_list) > 5 && !(has_capability('mod/iassign:submitiassign', $this->context, $USER->id))) // if (has_capability('mod/iassign:submitiassign', $this->context, $USER->id)) // $this->view_legend_icons(); } // function view_iassigns() /// Display all iAssigns: the list of activities inside the iAssign block // HTTP: ./mod/iassign/view.php?id= <$id> function show_iassign ($title, $iassign_array, $total_of_activities) { global $USER, $CFG, $DB, $OUTPUT, $PAGE; $id = $this->cm->id; // ID of iAssign block (accessed throgh table "couse_module") print $OUTPUT->box_start(); print " \n"; print " \n"; print " "; $action_links = ""; if (has_capability('mod/iassign:viewiassignall', $this->context, $USER->id)) { print '
' . $title . "
\n"; print '' . "\n"; for ($j=0; $j<$total_of_activities; $j++) { $iassign_current = $iassign_array[$j]->id; // receiver=1 - message to teacher // receiver=2 - message to student $sum_comment = 0; $iassign_submissions = $DB->get_records('iassign_submission', array('iassign_statementid' => $iassign_current)); foreach ($iassign_submissions as $iassign_submission) { $params_temp = array('iassign_submissionid' => $iassign_submission->id, 'return_status' => '0', 'receiver' => '1'); $verify_message = $DB->get_record_sql("SELECT COUNT(iassign_submissionid) FROM {iassign_submission_comment} " . " WHERE iassign_submissionid = :iassign_submissionid AND return_status= :return_status AND receiver= :receiver", $params_temp); if ($verify_message) foreach ($verify_message as $tmp) $sum_comment += $tmp; } // foreach ($iassign_submissions as $iassign_submission) if ($sum_comment == 0) $comment_unread = ""; else { $comment_unread_message = get_string('comment_unread', 'iassign'); if ($sum_comment == 1) $comment_unread_message = get_string('comment_unread_one', 'iassign'); $comment_unread = ' ' . ' ' . $comment_unread_message . ' ' . $sum_comment . ' ' . "\n"; } if ($j == $total_of_activities - 1) $iassign_down = $iassign_array[$j]->id; else $iassign_down = $iassign_array[$j + 1]->id; if ($j > 0) $iassign_up = $iassign_array[$j - 1]->id; else $iassign_up = $iassign_array[$j]->id; if ($iassign_array[$j]->visible == 0) $links = " " . $iassign_array[$j]->name . "\n"; else $links = " " . $iassign_array[$j]->name . "\n"; $links .= $comment_unread; if (has_capability('mod/iassign:editiassign', $this->context, $USER->id) && $USER->iassignEdit == 1) { $action_links = "\n"; print '\n"; } // for ($j=0; $j<$total_of_activities; $j++) //D echo "locallib.php: show_iassign():
"; //EXTRA: This for is to correct error in ordem inside the block, to detect (and fix it) 'iassign_statement.position' errors $vector_final_order = array(); // get the final order to be used to correct existent one for ($j=0; $j<$total_of_activities; $j++) { // List all iAssign activity inside this block //D echo $j . ": id=" . $iassign_array[$j]->id . ", position=" . $iassign_array[$j]->position . "
"; if ($iassign_array[$j]->position!=($j+1)) { activity::move_change_activity_position($DB, $iassign_array[$j]->id, $iassign_array[$j]->id, $j+1, $j+1); } } print "
' . $links . '' . $action_links . "
\n"; } // if (has_capability('mod/iassign:viewiassignall', $this->context, $USER->id)) elseif (has_capability('mod/iassign:submitiassign', $this->context, $USER->id)) { // student print '
' . $title . "
\n"; print '' . "\n"; for ($j=0; $j<$total_of_activities; $j++) { $icon_status = ""; $icon_comment = ""; if ($iassign_array[$j]->visible == 1) { $iassign_current = $iassign_array[$j]->id; $iassign_submission = $DB->get_record('iassign_submission', array('iassign_statementid' => $iassign_current, 'userid' => $USER->id)); $links = " " . $iassign_array[$j]->name . "\n"; $icon_status = ""; $icon_comment = ""; if ($iassign_submission) { // receiver=1 - message to teacher // receiver=2 - message to student // $verify_message = $DB->get_record_sql("SELECT COUNT(iassign_submissionid) FROM {$CFG->prefix}ia_assign_submissions_comment WHERE iassign_submissionid = '$iassign_submission->id' and return_status= 0 and receiver=2"); $params_temp = array('iassign_submissionid' => $iassign_submission->id, 'return_status' => '0', 'receiver' => '2'); $verify_message = $DB->get_record_sql( "SELECT COUNT(iassign_submissionid) FROM {iassign_submission_comment} " . " WHERE iassign_submissionid = :iassign_submissionid AND return_status= :return_status AND receiver= :receiver", $params_temp); if ($verify_message) foreach ($verify_message as $tmp) $sum_comment = $tmp; if ($sum_comment > 0) { $comment_unread_message = get_string('comment_unread', 'iassign'); if ($sum_comment == 1) $comment_unread_message = get_string('comment_unread_one', 'iassign'); $icon_comment = "\n" . ' ' . $comment_unread_message . "\n" . ' ' . $sum_comment . " \n"; } // $icon_comment = iassign_icons::insert('comment_unread'); if ($iassign_array[$j]->type_iassign == 3) { if ($iassign_array[$j]->show_answer == 1) { if ($iassign_submission->status == 3) $icon_status = '' . "\n"; elseif ($iassign_submission->status == 2) $icon_status = '' . "\n"; elseif ($iassign_submission->status == 1) $icon_status = '' . "\n"; //2021/12 $icon_status = iassign_icons::insert('post'); elseif ($iassign_submission->status == 0) $icon_status = '' . "\n"; } // if ($iassign_array[$j]->show_answer==1) else { if ($iassign_submission->status == 0) { //TODO: $icon_status = '' . "\n"; $icon_status = iassign_icons::insert('not_post'); } else { //TODO: $icon_status = '' . "\n"; $icon_status = iassign_icons::insert('post'); } } } // if ($iassign_array[$j]->type_iassign == 3) } // if ($iassign_submission) elseif ($iassign_array[$j]->type_iassign == 3) { $icon_status = '' . "\n"; //2021/12 $icon_status = iassign_icons::insert('not_post'); } // if ($iassign_array[$j]->type_iassign == 3) print '' . "\n"; //print '

' . $icon_status . ' ' . $links . ' ' . $icon_comment . '

' . "\n"; } // if ($iassign_array[$j]->visible == 1) } // for ($j=0; $j<$total_of_activities; $j++) print "
' . $icon_status . '' . $links . '' . $icon_comment . '
\n"; } // elseif (has_capability('mod/iassign:submitiassign', $this->context, $USER->id)) else if (isguestuser()) { print($OUTPUT->notification(get_string('no_permission_iassign', 'iassign'), 'notifyproblem')); print '' . "\n"; print "" . "\n"; print '
" . $title . "
' . "\n"; for ($j=0; $j<$total_of_activities; $j++) { $icon_status = ""; $icon_comment = ""; if ($iassign_array[$j]->visible == 1) { $iassign_current = $iassign_array[$j]->id; $links = " " . $iassign_array[$j]->name . "\n"; print '

' . $links . '

' . "\n"; } // if ($iassign_array[$j]->visible == 1) } } print $OUTPUT->box_end(); } // function show_iassign($title, $iassign_array, $total_of_activities) /// Show message of return function return_home_course ($message) { //D global $DB, $OUTPUT; //D $link_return = " " . iassign_icons::insert('home') . get_string('activities_page', 'iassign') . ""; //D echo $OUTPUT->box_start(); //D echo '' . "\n"; //D echo '' . "\n"; //D echo '
' . "\n"; //D print_string($message, 'iassign'); //D echo '' . "\n"; //D echo $link_return; //D echo '
' . "\n"; //D echo $OUTPUT->box_end(); //D // echo $OUTPUT->footer(); redirect(new moodle_url($this->return . '¬ice=' . $message)); exit; } /// Search comment of activity function search_comment_submission ($iassign_submissionid) { global $USER, $DB, $OUTPUT, $COURSE; // $context = context_course::instance($COURSE->id); $colorEdit1 = "#b7ceee"; // "#dce7ec" $colorEdit2 = "#d2e5fc"; $has_capability = 0; $comments = $DB->get_records_list('iassign_submission_comment', 'iassign_submissionid', array('iassign_submissionid' => $iassign_submissionid), 'timecreated DESC'); // 'ORDER BY "timecreated" ASC' $text = ""; if ($comments) { $even = 1; foreach ($comments as $tmp) { $user_data = $DB->get_record("user", array('id' => $tmp->comment_authorid)); // if (has_capability('mod/iassign:editiassign', $context, $tmp->comment_authorid)) { // $text .= " $user_data->firstname (" . userdate($tmp->timecreated) . ")
\n"; // $text .= $tmp->comment . ""; //} else { // $text .= "»" . $user_data->firstname . " (" . userdate($tmp->timecreated) . "
\n"; $avatar = new user_picture($user_data); $avatar->courseid = $COURSE->id; $avatar->link = true; $user_picture = $OUTPUT->render($avatar); $user_picture = str_replace('"35"', '"45"', $user_picture); if ($even) { $text .= "$user_picture" . $user_data->firstname . "  " . userdate($tmp->timecreated) . "
\n"; $even = 0; } else { $text .= "$user_picture" . $user_data->firstname . "  " . userdate($tmp->timecreated) . "
\n"; $even = 1; } $text .= "
" . $tmp->comment . "
\n"; } // foreach ($comments as $tmp) } return $text; } /// Update comment of activity function update_comment ($iassign_submissionid) { global $USER, $DB, $OUTPUT; if (!has_capability('mod/iassign:submitiassign', $this->context, $USER->id) || is_siteadmin()) $receiver = 1; // student message to teacher else $receiver = 2; // teacher message to student $verify_message = $DB->get_records('iassign_submission_comment', array('iassign_submissionid' => $iassign_submissionid)); // if ($verify_message) { foreach ($verify_message as $message) { if ($message->receiver == $receiver) { $newentry = new stdClass(); $newentry->id = $message->id; $newentry->return_status = 1; if (!$DB->update_record('iassign_submission_comment', $newentry)) { print_error('error_update', 'iassign'); } // if (!$DB->update_record('iassign_submission_comment', $newentry)) } // if ($message->receiver == $receiver) // Trigger module viewed event. $event = \mod_iassign\event\submission_comment_updated::create(array( 'objectid' => $this->iassign->id, 'context' => $this->context )); $event->add_record_snapshot('course', $this->course); $event->trigger(); } // foreach ($verify_message as $message) } } /// Record comment of activity function write_comment_submission () { global $USER, $CFG, $DB; $id = $this->cm->id; $submission_comment = optional_param('submission_comment', NULL, PARAM_TEXT); $row = optional_param('row', 0, PARAM_INT); $column = optional_param('column', 0, PARAM_INT); $sum_comment = 0; $return = "" . $CFG->wwwroot . "/mod/iassign/view.php?action=viewsubmission&id=" . $id . "&iassign_submission_current=" . $this->iassign_submission_current . "&userid_iassign=" . $this->userid_iassign . "&iassign_current=" . $this->activity->get_activity()->id . "&row=" . ($row) . "&column=" . ($column); $link_return = " " . iassign_icons::insert('return_home') . get_string('return', 'iassign') . ""; $str1 = trim($submission_comment); $str2 = trim(get_string('box_comment_message', 'iassign')); if (!empty($submission_comment) && (strcmp($str1, $str2) != 0)) { // there is comment and it is different from "previous" //D $iassign_submission = $DB->get_record("iassign_submission", array("id" => $this->iassign_submission_current)); //MOOC 2016 if (has_capability('mod/iassign:submitiassign', $this->context, $USER->id) && !is_siteadmin()) { //MOOC '&& !is_siteadmin()' $receiver = 1; // student message to teacher $this->action = 'view'; //D $iassign_statement_activity_item = $DB->get_record("iassign_statement", array("id" => $iassign_submission->iassign_statementid)); //MOOC 2016 //D $tousers = get_users_by_capability($this->context, 'mod/iassign:evaluateiassign'); //MOOC 2016 } else { $receiver = 2; // teacher message to student $this->action = 'viewsubmission'; //D $tousers = array(); //MOOC 2016 //MOOC 2016 //T $tousers[] = $DB->get_record("user", array("id" => $iassign_submission->userid)); //TODO Para registrar mensagem na area do Moodle - tem que ativar abaixo } //MOOC 2016: foi p/ 15 linhas acima: $iassign_submission = $DB->get_record("iassign_submission", array("id" => $this->iassign_submission_current)); // verificar se existe uma submissão para o exercício e aluno informados if (!$iassign_submission) { $iassign_submission = $DB->get_record("iassign_submission", array("iassign_statementid" => $this->activity->get_activity()->id, "userid" => $USER->id)); } if (!$iassign_submission) { $iassign_statement_activity_item = $DB->get_record("iassign_statement", array("id" => $this->activity->get_activity()->id)); $id_submission = $this->new_submission($iassign_statement_activity_item->id, $this->userid_iassign, $receiver); $this->iassign_submission_current = $id_submission; } else { $id_submission = $iassign_submission->id; } // if (!$iassign_submission) // $comments = $DB->get_record_sql("SELECT COUNT(iassign_submissionid) FROM {$CFG->prefix}ia_assign_submissions_comment // WHERE iassign_submissionid = '$id_submission' and comment='$submission_comment' and comment_authorid='$USER->id'"); // // Attention: this Moodle function 'get_record_sql' makes a replace in ':comment' $params_temp = array("iassign_submissionid" => $id_submission, "comment" => $submission_comment, "comment_authorid" => $USER->id); $comments = $DB->get_record_sql( "SELECT COUNT(iassign_submissionid) FROM {iassign_submission_comment} " . " WHERE iassign_submissionid = :iassign_submissionid AND comment= :comment AND comment_authorid= :comment_authorid", $params_temp); if ($comments) foreach ($comments as $tmp) $sum_comment = $tmp; if ($sum_comment == 0) { $newentry = new stdClass(); $newentry->iassign_submissionid = $id_submission; $newentry->comment_authorid = $USER->id; $newentry->timecreated = time(); $newentry->comment = $submission_comment; $newentry->receiver = $receiver; $ia_assign_submissions_comment_id = $DB->insert_record('iassign_submission_comment', $newentry); //T foreach ($tousers as $touser) { //TODO Para registrar mensagem na area do Moodle - tem que ativar '$tousers[] = $DB->get_record(...);' acima // Trigger module viewed event $event = \mod_iassign\event\submission_comment_created::create(array( 'objectid' => $this->iassign->id, 'context' => $this->context )); $event->add_record_snapshot('course', $this->course); $event->trigger(); } } // if (!empty($submission_comment) && (strcmp($str1, $str2) != 0)) // if ($this->action=='viewsubmission') { // echo $OUTPUT->header(); // $this->return_last('confirm_add_comment', $link_return); // die; // } return true; } // function write_comment_submission() /// Writes a new submission // The first student answer is under 'function get_answer()' function new_submission ($iassignid, $id_user, $receiver) { global $USER, $DB, $OUTPUT; $newentry = new stdClass(); $newentry->iassign_statementid = $iassignid; $newentry->userid = $id_user; $newentry->timecreated = time(); $newentry->timemodified = time(); $newentry->answer = 0; // student only submit message if ($receiver == 2) // teacher message to student (write id teacher) $newentry->teacher = $USER->id; if (!$newentry->id = $DB->insert_record("iassign_submission", $newentry)) return_home_course('error_insert_submissions'); else { // Trigger module view event $event = \mod_iassign\event\submission_created::create(array( 'objectid' => $this->iassign->id, 'context' => $this->context )); $event->add_record_snapshot('course', $this->course); $event->trigger(); } return $newentry->id; } /// Return to a specific address of page function return_last ($message, $link_return) { global $DB, $OUTPUT; print $OUTPUT->box_start(); print '' . "\n"; print '' . "\n"; print '
' . "\n"; print_string($message, 'iassign'); print '' . "\n"; print $link_return; print '
' . "\n"; print $OUTPUT->box_end(); print $OUTPUT->footer(); die(); } // function return_last($message, $link_return) } // class iassign /// Class for manage activities class activity { var $activity; /// Constructor of class. // @param int $id Id of activity // 3.1 update PHP 7.0 compatibility for all moodle versions //D public function activity($id) { self::__construct($id); } function __construct ($id) { global $DB; $this->activity = $DB->get_record("iassign_statement", array("id" => $id)); if (empty($this->activity)) $this->activity = null; } /// Get an activity // @return NULL function get_activity () { if ($this->activity != null) return $this->activity; else return null; } /// Delete interactive activities function delete ($return) { global $USER, $CFG, $DB, $OUTPUT; $iassign_submission_currents = $DB->get_records("iassign_submission", array("iassign_statementid" => $this->activity->id)); print $OUTPUT->header(); $output .= $OUTPUT->box_start(); $output .= "

" . get_string('delete_activity', 'iassign') . " " . $this->activity->name . "

"; if ($iassign_submission_currents) { $output .= "

" . get_string('number_submissions', 'iassign') . " " . count($iassign_submission_currents) . "

"; if (!has_capability('mod/iassign:deleteiassignnotnull', $USER->context, $USER->id)) { $output .= $OUTPUT->heading(get_string('delete_activity_permission_adm', 'iassign')); $output .= $OUTPUT->single_button($return, get_string('return', 'iassign'), 'get'); $output .= $OUTPUT->box_end(); $output .= $OUTPUT->footer(); print $output; die(); } // if (!has_capability('mod/iassign:deleteiassignnotnull', $this->context, $USER->id)) } // if ($iassign_submission_currents) else $output .= "

" . get_string('not_submissions_activity', 'iassign') . "

\n"; $output .= ''; $output .= '
'; $output .= "

" . get_string('what_do', 'iassign') . "

\n"; $output .= '
'; $bottonDelete_yes = get_string('delete_iassign', 'iassign'); $deleteiassignyes = $CFG->wwwroot . "/mod/iassign/view.php?id=" . $USER->cm . "&action=deleteyes&iassign_current=" . $this->activity->id; $output .= "
\n"; $output .= " \n"; $output .= "
\n"; $output .= '
'; $bottonDelete_no = get_string('delete_cancel', 'iassign'); $deleteiassignno = $CFG->wwwroot . "/mod/iassign/view.php?id=" . $USER->cm . "&action=deleteno&iassign_current=" . $this->activity->id; $output .= "
\n"; $output .= "

\n"; $output .= "
\n"; $output .= '
' . "\n"; $output .= $OUTPUT->box_end(); $output .= $OUTPUT->footer(); print $output; } // function delete($return) /// Function for confirm the delete of activity // @param String $return Url of return // @param Object $iassign Object content an activity function deleteyes ($return, $iassign) { global $USER, $CFG, $DB, $OUTPUT, $COURSE; $msg = ''; if (!empty($this->activity->id)) { $iassign_submission_currents = $DB->get_records("iassign_submission", array("iassign_statementid" => $this->activity->id)); if ($iassign_submission_currents) { if (has_capability('mod/iassign:deleteassignnull', $USER->context, $USER->id)) { foreach ($iassign_submission_currents as $iassign_submission) $DB->delete_records('iassign_submission_comment', array('iassign_submissionid' => $iassign_submission->id)); $delete_iassign_submission_currents = $DB->delete_records("iassign_submission ", array("iassign_statementid" => $this->activity->id)); } // if ($iassign_submission_currents) } //$delete_iassign_statement_config = $DB->delete_records('iassign_statement_config', array('iassign_statementid' => $this->activity->id)); //MOOC 2016 // Remove all files associated to this activity: $fs = get_file_storage(); //TODO 2022: nao deveria ser "$this->activity->file" no lugar de "$this->activity->id"? $fs->delete_area_files($iassign->context->id, 'mod_iassign', 'exercise', $this->activity->id); $this->delete_calendar($this->activity->id); $delete_iassign_current = $DB->delete_records('iassign_statement', array('id' => $this->activity->id)); iassign::update_grade_iassign($this->activity->iassignid); if ($delete_iassign_current) { $iassign->return_home_course('confirm_delete_iassign'); //$msg = get_string ( 'confirm_delete_iassign', 'iassign' ); } else { $iassign->return_home_course('error_confirm_delete_iassign'); //$msg = get_string ( 'error_confirm_delete_iassign', 'iassign' ); } // if (($this->action == 'deleteyes') && (has_capability('mod/iassign:deleteassignnull', $this->context, $USER->id))) } } // function deleteyes($return, $iassign) /// Change fields 'iassign_statement.position' between 2 activities // @calledby : class this->move_iassign($move_action, $target, $return) // @calledby : class iassign show_iassign($title, $iassign_array, $total_of_activities) - this is used only to fix 'position' erros (e.g. {1,2,2,3} to {1,2,3,4}) static function move_change_activity_position ($DB, $idFrom, $idTo, $posFrom, $posTo) { //1 $newentry = new stdClass(); // define a new object (activity) to receive only 2 fields: 'id' and 'position' $newentry->id = $idFrom; // ID of the "source activity" //1 $this->activity->id -> $idFrom $newentry->position = $posFrom; // final position to source //1 $final_position_source -> $posFrom if (!$DB->update_record('iassign_statement', $newentry)) { // modify 'position' of the activity with 'id'=$target print_error('error_update_move_iassign', 'iassign'); } // If $idFrom == $idTo then came here from 'this->show_iassign(.)' above, to correct order! if ($idFrom != $idTo) { // if $idFrom != $idTo then must update also the targe position $newentry->id = $idTo; //1 $iassign_target->id -> $idTo $newentry->position = $posTo; //1 $final_position_target -> $posTo if (!$DB->update_record('iassign_statement', $newentry)) print_error('error_update_move_iassign', 'iassign'); } } /// Changes position of activities (between those inside a group of interactive activities) // @param $move_action = must be "up" or "down" // @param $target = if 'down' => is 'iassign_statement.id' of the activity bellow the current one; if 'up' => is activity above the current one function move_iassign ($move_action, $target, $return) { global $DB, $OUTPUT; $initial_position_source = $this->activity->position; // the position of the "source activity" (that one to be moved) $iassign_target = $DB->get_record("iassign_statement", array("id" => $target)); // "target activity" = the activity in the position the receive "source activity" if ($move_action=="firstdown") { $final_position_source = 2; $final_position_target = 1; } else if ($move_action=="down") { $final_position_target = $this->activity->position; $final_position_source = $final_position_target + 1; } else if ($move_action=="up") { $final_position_target = $this->activity->position; $final_position_source = $final_position_target - 1; } else { // error: print_error('error_update_move_iassign', 'iassign'); exit; } activity::move_change_activity_position($DB, $this->activity->id, $iassign_target->id, $final_position_source, $final_position_target); // efectively exchange 'position' redirect($return); } // function move_iassign($move_action, $target, $return) /// Enable or disable the display of interactive activities function visible_iassign ($return) { global $DB; $newentry = new stdClass(); $newentry->id = $this->activity->id; $newentry->visible = $this->activity->visible == 0 ? 1 : 0; if (!$DB->update_record('iassign_statement', $newentry)) print_error('error_update_visible_iassign', 'iassign'); redirect($return); } /// Add news interactive activities (register in table 'iassign_statement') // @calledby this->add_edit_iassign() : $iassignid = $this->activity->new_iassign($result); // @see ilm_manager.php: $ilm_manager_instance->ilm_editor_new(); function new_iassign ($param) { global $DB; $newentry = new stdClass(); $newentry->iassignid = $param->iassignid; $newentry->name = $param->name; $newentry->type_iassign = $param->type_iassign; $newentry->store_all_submissions = $param->store_all_submissions; // $newentry->proposition = $param->proposition; // 2019/02/13 - With the use of 'editor' in 'mform', field 'proposition' is Array ( [text] => [format] => 1 ) $proposition = $param->proposition; if (is_array($proposition)) $proposition_text = $proposition['text']; else $proposition_text = $proposition; $newentry->proposition = $proposition_text; // Notice: Trying to get property of non-object //TODO I used in 'iassign_form.php' ''; if ($iassign_ilm) { foreach ($iassign_ilm as $ilm) { $url_view = new moodle_url('/mod/iassign/settings_ilm.php', array('action' => 'view', 'ilm_id' => $ilm->id)); $link_view = $OUTPUT->action_link($url_view, iassign_icons::insert('view_ilm') . ' ' . get_string('read_more', 'iassign')); $str .= ''; $str .= ''; $str .= ''; $str .= '' . "\n"; $str .= '' . "\n"; $str .= '' . "\n"; $str .= ''; $str .= ''; $str .= ''; $str .= '
' . get_string('name_ilm', 'iassign') . ': ' . $ilm->name . '' . get_string('version_ilm', 'iassign') . ': ' . $ilm->version . '' . $link_view . '
' . iassign_language::get_description_lang(current_language(), $ilm->description) . '
' . $ilm->url . '
'; $str .= ''; } } $str .= ''; return $str; } /// Function for download and install an upgrade of an iLM // @param int $ilm_id Id of iLM static function upgrade_ilm ($ilm_id) { global $DB, $CFG, $USER; $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilm_id)); $upgrade_file = $iassign_ilm->url . 'ilm-upgrade_' . strtolower($iassign_ilm->name) . '.xml'; $update_xml = @simplexml_load_file($upgrade_file, null, LIBXML_NOCDATA); $result = file_put_contents($CFG->dataroot . '/temp/' . $update_xml->file, fopen($iassign_ilm->url . $update_xml->file, 'r')); if (!$result) print_error('error_upgrade_ilm', 'iassign'); else { $zip_filename = $CFG->dataroot . '/temp/' . $update_xml->file; $extension = explode(".", $zip_filename); if ($extension[count($extension) - 1] != 'ipz') { print($OUTPUT->notification(get_string('error_upload_ilm', 'iassign'), 'notifyproblem')); die; } $zip = new zip_packer(); $fs = get_file_storage(); // Get reference to all files in Moodle data $contextuser = context_user::instance($USER->id); $files_extract = $zip->extract_to_pathname($zip_filename, $CFG->dataroot . '/temp/'); $application_xml = @simplexml_load_file($CFG->dataroot . '/temp/' . 'ilm-application.xml', null, LIBXML_NOCDATA); $description_str = htmlentities(str_replace(array('', ''), array('', ''), $application_xml->description->asXML())); $file_jar = self::save_ilm_by_xml($application_xml, $files_extract); if (file_exists($zip_filename)) unlink($zip_filename); if (empty($file_jar)) { $msg_error = get_string('error_add_ilm', 'iassign') . "
In upgrade_ilm(" . $ilm_id . ")
\n"; print_error($msg_error); //xx print_error('error_add_ilm', 'iassign'); } else { $newentry = new stdClass(); $newentry->name = (String) $application_xml->name; $newentry->version = (String) $application_xml->version; $newentry->url = (String) $application_xml->url; $newentry->description = $description_str; $newentry->extension = strtolower((String) $application_xml->extension); $newentry->file_jar = implode(",", $file_jar); $newentry->file_class = (String) $application_xml->file_class; $newentry->width = (String) $application_xml->width; $newentry->height = (String) $application_xml->height; $newentry->enable = 0; $newentry->timemodified = time(); $newentry->author = $USER->id; $newentry->timecreated = time(); $newentry->evaluate = (String) $application_xml->evaluate; $newentry->parent = $ilm_id; } } return $iassign_ilm->id; } // static function upgrade_ilm($ilm_id) //MOOC2014 -- inicio //TODO: REVIEW // static function confirm_move_iassign($ilmid, $ilm_parent) // static function move_iassign($ilm_id) //MOOC2014 -- final /// Function for list iLM versions with all informations, under "admin" plugin view: .../mod/iassign/settings_ilm.php?action=view&ilm_id=".$ilmid."&from=admin // @return string Return an string with a table of iLM static function view_ilm ($ilmid, $from) { global $DB; $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilmid)); // Get the iLM type and calls its correspondent handler ('Java' or 'HTML5') $typec = strtolower($iassign_ilm->type); require_once 'ilm_handlers/' . $typec . '.php'; $retorno = $typec::view_ilm($ilmid, $from); return $retorno; } /// Function for get form variables for add, edit, or copy iLM params // @param int $ilm_param_id Id of iLM param // @param string $action String with the action // @return object Return an object with forms variables static function add_edit_copy_param ($ilm_param_id, $action) { global $DB; require_once('params_form.php'); $iassign_ilm_config = $DB->get_record('iassign_ilm_config', array('id' => $ilm_param_id)); $param = new stdClass(); $param->action = $action; $param->ilm_param_id = $ilm_param_id; $type = optional_param('type', NULL, PARAM_TEXT); //MOOC2014 if ($type == NULL && $iassign_ilm_config) //MOOC2014 $type = $iassign_ilm_config->param_type; if ($action == 'add') { $param->title = get_string('add_ilm', 'iassign'); $param->iassign_ilmid = $ilm_param_id; $param->param_name = ""; $param->param_value = ""; $param->description = ""; $param->visible = 1; } elseif ($action == 'edit') { if ($iassign_ilm_config) { $param->title = get_string('edit_ilm', 'iassign'); $param->id = $iassign_ilm_config->id; $param->iassign_ilmid = $iassign_ilm_config->iassign_ilmid; $param->param_type = $type; //MOOC2014 $param->param_name = $iassign_ilm_config->param_name; if ($type != 'choice' && $type != 'multiple') //MOOC2014 $param->param_value = $iassign_ilm_config->param_value; else //MOOC2014 $param->param_value = str_replace(", ", "\n", $iassign_ilm_config->param_value); //MOOC2014 $param->param_value = $iassign_ilm_config->param_value; $param->description = $iassign_ilm_config->description; $param->visible = $iassign_ilm_config->visible; } } elseif ($action == 'copy') { if ($iassign_ilm_config) { $param->title = get_string('copy_ilm', 'iassign'); $param->iassign_ilmid = $iassign_ilm_config->iassign_ilmid; $param->param_type = $type; //MOOC2014 $param->param_name = $iassign_ilm_config->param_name; if ($type != 'choice' && $type != 'multiple') //MOOC2014 $param->param_value = $iassign_ilm_config->param_value; else //MOOC2014 $param->param_value = str_replace(", ", "\n", $iassign_ilm_config->param_value); //MOOC2014 $param->description = $iassign_ilm_config->description; $param->visible = $iassign_ilm_config->visible; } } return $param; } // static function add_edit_copy_param($ilm_param_id, $action) /// Function for change visibility of iLM param // @param int $ilm_param_id Id of iLM param // @param int $status Indicator of change vibility (0 = hide, 1 = show) static function visible_param ($ilm_param_id, $status) { global $DB, $CFG; if ($status == 0) $visible = 1; else $visible = 0; $newentry = new stdClass(); $newentry->id = $ilm_param_id; $newentry->visible = $visible; if (!$DB->update_record("iassign_ilm_config", $newentry)) error(get_string('error_edit_param', 'iassign')); } /// Function for save in database an new iLM param // @param object $param An object with iLM params static function add_param ($param) { global $DB; $newentry = new stdClass(); $newentry->iassign_ilmid = $param->iassign_ilmid; //MOOC2014 $newentry->param_name = $param->param_name; $newentry->param_type = $param->param_type; //MOOC2014 $newentry->param_name = iassign_utils::format_filename($param->param_name); //MOOC2014 if ($newentry->param_type != 'choice' && $newentry->param_type != 'multiple') //MOOC2014 $newentry->param_value = $param->param_value; else //MOOC2014 $newentry->param_value = str_replace("\r\n", ", ", $param->param_value); //MOOC2014 $newentry->description = $param->description; $newentry->visible = $param->visible; $newentry->id = $DB->insert_record("iassign_ilm_config", $newentry); if (!$newentry->id) { print_error('error_add_param', 'iassign'); } } /// Function for save in database a iLM param edit // @param object $param An object with iLM params static function edit_param ($param) { global $DB; $updentry = new stdClass(); $updentry->id = $param->id; $updentry->iassign_ilmid = $param->iassign_ilmid; $updentry->param_type = $param->param_type; //MOOC2014 // $updentry->param_name = $param->param_name; $newentry->param_name = iassign_utils::format_filename($param->param_name); //MOOC2014 if ($updentry->param_type != 'choice' && $updentry->param_type != 'multiple') //MOOC2014 $updentry->param_value = $param->param_value; else //MOOC2014 $updentry->param_value = str_replace("\r\n", ", ", $param->param_value); //MOOC2014 $updentry->description = $param->description; $updentry->visible = $param->visible; if (!$DB->update_record("iassign_ilm_config", $updentry)) { error(get_string('error_edit_param', 'iassign')); } } /// Function for save in database a iLM param copy // @param object $param An object with iLM params static function copy_param ($param) { global $DB; $newentry = new stdClass(); $newentry->iassign_ilmid = $param->iassign_ilmid; //$newentry->param_name = $param->param_name; $newentry->param_name = iassign_utils::format_filename($param->param_name); //MOOC2014 if ($newentry->param_type != 'choice' && $newentry->param_type != 'multiple') //MOOC2014 $newentry->param_value = $param->param_value; else //MOOC2014 $newentry->param_value = str_replace("\r\n", ", ", $param->param_value); //MOOC2014 $newentry->description = $param->description; $newentry->visible = $param->visible; $newentry->id = $DB->insert_record("iassign_ilm_config", $newentry); if (!$newentry->id) { print_error('error_add_param', 'iassign'); } } /// Function for delete iLM param of database // @param int $param_id Id of iLM param static function delete_param ($param_id) { global $DB; if (!$DB->delete_records("iassign_ilm_config", array('id' => $param_id))) { print_error('error_delete_param', 'iassign'); } } } // class ilm_settings /// Class for manage iLM files (editor). class ilm_manager { var $id; // course id var $url; var $from; /// Constructor for the base ilm_manager class // 3.1 update PHP 7.0 compatibility for all moodle versions //D public function ilm_manager($id, $url, $from) { self::__construct($iassign, $cm, $course); } function __construct ($id, $url, $from) { $this->id = $id; // course id $this->url = $url; $this->from = $from; } /// Function to get iAssign content file in Moodle data (exercise) // @calledby x function preview_ilm($iassign_ilm) : // @calledby ilm_manager.php : with 'action=get' in '$ilm_manager_instance->get_file_ilm($ilmid, $fileid)' function get_file_ilm () { $ilmid = optional_param('ilmid', NULL, PARAM_INT); $fileid = optional_param('fileid', NULL, PARAM_INT); //$filename = optional_param('filename', NULL, PARAM_TEXT); $fs = get_file_storage(); // Get reference to all files in Moodle data $md_file = $fs->get_file_by_id($fileid); $ilm_content_file = $md_file->get_content(); return $ilm_content_file; } /// Function for creating a new file from the iLM online editor // @calledby ilm_manager.php: case 'new': $ilm_manager_instance->ilm_editor_new(); function ilm_editor_new () { global $CFG, $DB, $OUTPUT, $PAGE; $ilmid = optional_param('ilmid', NULL, PARAM_INT); // iAssign ID $dirid = optional_param('dirid', NULL, PARAM_INT); $iassign = $DB->get_record("iassign_ilm", array("id" => $ilmid)); $context = context_course::instance($this->id); $returnurl = $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=$this->id&dirid=$dirid&ilmid=$ilmid"; // verify if the JAR file $PAGE->set_course($course); is registered in DB (table '*_iassign_ilm') if (!$iassign) { print $OUTPUT->notification(get_string('error_confirms_ilm', 'iassign'), 'notifysuccess'); die(); } $temp = explode(",", $iassign->extension); $extension = $temp[0]; // default extension for this iLM //2016/02/16: IMPORTANTE trocar formatador para "nao formatado", pois esta destruindo o nome do arquivo (e.g. limpa brancos) //2016/02/16: $stringArchiveContent = optional_param('iLM_PARAM_ArchiveContent', NULL, PARAM_ALPHANUMEXT); $stringArchiveContent = optional_param('iLM_PARAM_ArchiveContent', NULL, PARAM_RAW); // iLM 2 // $stringArchiveContent = optional_param('iLM_PARAM_ArchiveContent', NULL, PARAM_RAW); // iLM 1 if ($stringArchiveContent != NULL) { // $stringArchiveContent = $_POST['iLM_PARAM_ArchiveContent']; //2016/02/16: IMPORTANTE trocar formatador para "nao formatado", pois esta destruindo o conteudo do arquivo //2016/02/16: $filename = optional_param('filename', NULL, PARAM_ALPHANUMEXT); $filename = optional_param('filename', NULL, PARAM_RAW); //Leo $filename = iassign_utils::format_filename($filename); // $filename = iassign_utils::filter_filename_extension($filename, $extension); // here: class iassign_utils //2019/02 It is not necessary, since 'iassign_utils::filter_filename_extension(...)' does all the work! //2019/02 $arrayfilename = explode(".", $filename); //2019/02 // if (count($arrayfilename) == 1) $filename = $arrayfilename[0] . '.' . $extension; //2019/02 $count_dots = count($arrayfilename); //2019/02 if ($count_dots > 0) { // at least one dot mark //2019/02 $last_name = $arrayfilename[$count_dots - 1]; //2019/02 if ($last_name != $extension) //2019/02 $filename = $filename . '.' . $extension; //2019/02 } //2019/02 else { // no extension... //2019/02 $filename = $filename . '.' . $extension; //2019/02 } // Store the name of recent created file $_SESSION['file_name'] = $filename; //$this->write_file_iassign($string, $filename); // Register and (by JS.alet(.)) inform the user about the result (and the final name of the file) $this->write_file_iassign($stringArchiveContent, $filename); // class ilm_manager - inform the user about the file insertion result die(); } else { // if ($stringArchiveContent != NULL) // iLM On-line editor if ($extension == "html" || $extension == "ivph" || strtolower($iassign->type) == 'html5') { // if iLM is HTML5 is inside a frame $str_get_iLM = "window.frames.iLM"; $str_submitbutton_name = "javascript:window.submit_iLM_Answer()"; } else { // otherwise it is JAR named 'iLM' $str_get_iLM = "document.iLM"; $str_submitbutton_name = "submit_iLM_Answer()"; // to call 'submit_iLM_Answer()' } $fs = get_file_storage(); // Get reference to all files in Moodle data $files = $fs->get_area_files($context->id, 'mod_iassign', 'activity'); $files_array = ''; foreach ($files as $value) { if ($value->get_filename() != ".") $files_array .= "'" . $value->get_filename() . "',"; } $files_array .= "''"; $file = null; $ia_content = ""; $filename = ""; $error_files_exists = get_string('error_file_exists', 'iassign'); $output = "\n"; $output .= "
\n"; $output .= $OUTPUT->box_start(); // Put text "File name" and the corresponding "input" to enter the file nama: "File name: [ ]" $output .= "
" . get_string('label_file_iassign', 'iassign') . "
\n"; $output .= $OUTPUT->box_end(); $output .= "
\n"; // Prepare tag to load the iLM. In case of JAR it will prepare the tag "applet". In case of HTML5 will prepare an "iframe". // Since it is the activity file, it is not necessary to use 'ilm_security' $output_ilm = ilm_settings::build_ilm_tags($ilmid, array("type" => "editor_new", "notSEND" => "true")); $output .= $output_ilm; $output .= "
\n"; $title = get_string('title_editor_iassign', 'iassign') . " - " . $iassign->name . " " . $iassign->version; //MOOC2014 $PAGE->navbar->add($title); $PAGE->set_title($title); $PAGE->set_heading($title); // insert title above the navigation bar print $OUTPUT->header(); //print $OUTPUT->heading("  " . $title); // insert title below the navigation bar print $output; print $OUTPUT->footer(); } die(); } // function ilm_editor_new() /// Function for editing an file in online editor // @calledby ilm_manager.php: case 'update': $ilm_manager_instance->ilm_editor_update($security['content'], $security['token'], $security['secure_id']); function ilm_editor_update ($filename, $content_file, $token, $secure_id) { global $CFG, $DB, $OUTPUT, $PAGE; $ilmid = optional_param('ilmid', NULL, PARAM_INT); // iAssign ID $dirid = optional_param('dirid', NULL, PARAM_INT); $fileid = optional_param('fileid', NULL, PARAM_TEXT); $iassign = $DB->get_record("iassign_ilm", array("id" => $ilmid)); $returnurl = $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=$this->id&dirid=$dirid&ilmid=$ilmid"; // If iLM is not registered, error! if (!$iassign) { print $OUTPUT->notification(get_string('error_confirms_ilm', 'iassign'), 'notifyproblem'); die; } //2017/03/12 //QUARANTINE agora vindo de 'ilm_manager.php' via os 3 parametros //2017/03/12 $fs = get_file_storage(); // Get reference to all files in Moodle data // from Moodle data //2017/03/12 $filename = ''; $end_file = ''; $file = $fs->get_file_by_id($fileid); if ($file) $filename = iassign_utils::format_filename($file->get_filename()); //D echo "locallib.php: ilm_editor_update(): filename=$filename
\n"; //2016/02/16: IMPORTANTE trocar formatador para "nao formatado", pois esta destruindo o conteudo do arquivo //2016/02/16: $stringArchiveContent = optional_param('iLM_PARAM_ArchiveContent', NULL, PARAM_ALPHANUMEXT); $stringArchiveContent = optional_param('iLM_PARAM_ArchiveContent', NULL, PARAM_RAW); //D echo "stringArchiveContent:$stringArchiveContent
\n"; if ($stringArchiveContent != NULL) { $this->update_file_iassign($stringArchiveContent, $filename, $fileid); die(); } else { // if ($stringArchiveContent != NULL) $end_file = ''; if ($content_file) { // 2017/03/12 $token=''; $view=-1; $end_file = $CFG->wwwroot . '/mod/iassign/ilm_security.php?id=' . $fileid . '&token=' . $token . '&view=' . $view; // need full path... $end_file = $CFG->wwwroot . '/mod/iassign/ilm_security.php?id=' . $secure_id . '&action=update&token=' . $token . '&view=0'; // need full path... } $temp = explode(",", $iassign->extension); $extension = $temp[0]; // default extension for this iLM if ($extension == "html" || $extension == "ivph" || strtolower($iassign->type) == 'html5') { // if iLM is HTML5 is inside a frame $str_get_iLM = "window.frames.iLM"; $str_submitbutton_name = "javascript:window.submit_iLM_Answer()"; } else { // otherwise it is JAR named 'iLM' $str_get_iLM = "document.iLM"; $str_submitbutton_name = "submit_iLM_Answer()"; // to call 'submit_iLM_Answer()' } $output = "\n"; // 2016/02/16: NOT necessary, since it is teacher editing (perhaps he only make an example as exercise) // if (activityAnswer == -1) { // E.g. in iGeom it is possible to turn an example in exercise // alert('" . get_string('error_null_iassign', 'iassign') . "'); // ERRO: O exercício esta vazio ou não foi alterado // return true; // } $output .= "
\n"; $output .= $OUTPUT->box_start(); $output .= "
" . get_string('label_file_iassign', 'iassign') . "$filename
\n"; $output .= $OUTPUT->box_end(); $output .= "
\n"; // Since it is the activity file, it is not necessary to use 'ilm_security' (id_iLM_security) $output .= ilm_settings::build_ilm_tags($ilmid, array("type" => "editor_update", "notSEND" => "false", "Proposition" => $end_file)); $output .= "
\n"; $title = get_string('title_editor_iassign', 'iassign') . " - " . $iassign->name . " " . $iassign->version; //MOOC2014 $PAGE->navbar->add($title); $PAGE->set_title($title); $PAGE->set_heading($title); // insert title above the navigation bar print $OUTPUT->header(); //print $OUTPUT->heading("  " . $title); // insert title below the navigation bar print $output; print $OUTPUT->footer(); } // else if ($stringArchiveContent != NULL) die(); } // function ilm_editor_update() /// Function for write iAssign file in Moodle data (exercise) // @calledby ilm_editor_new(): $this->write_file_iassign($stringArchiveContent, $filename); // @param string $stringArchiveContent Content of iassign file // @param string $filename Filename of iassign file function write_file_iassign ($stringArchiveContent, $filename) { global $USER; $ilmid = optional_param('ilmid', NULL, PARAM_INT); $context = context_course::instance($this->id); $fs = get_file_storage(); // Get reference to all files in Moodle data $dirid = $this->get_dir_ilm('dirid'); $dir = $fs->get_file_by_id($dirid); $fileinfo = array('contextid' => $context->id, // ID of course 'component' => 'mod_iassign', // usually = table name 'filearea' => 'activity', // usually = table name 'itemid' => 0, // usually = ID of row in table 'filepath' => '/', // any path beginning and ending whith '/' 'userid' => $USER->id, 'author' => $USER->firstname . ' ' . $USER->lastname, 'license' => 'allrightsreserved', // allrightsreserved 'filename' => $filename); // any filename // Create file containing text. '$stringArchiveContent' //TODO Verificar se apenas esta' inserindo nova referencia em 'files' (NAO deve duplicar no Moodle Data) $file_course = $fs->create_file_from_string($fileinfo, $stringArchiveContent); // sucess_write -> 'Interactive assignment successfully registered under the name: ' // 'Tarea interactiva registrada exitosamente bajo el nombre:' // 'Activité interactive enregistrée avec succès sous le nom:'; // 'Atividade interativa gravada com sucesso sob o nome:' $output = " "; print $output; die(); } /// Function for write iAssign file in Moodle data (exercise) // @param string $stringArchiveContent Content of iassign file // @param string $filename Filename of iassign file // @param int $itemid Itemid of iassign file function update_file_iassign ($stringArchiveContent, $filename, $fileid) { global $OUTPUT, $USER; $ilmid = optional_param('ilmid', NULL, PARAM_INT); $context = context_course::instance($this->id); $dirid = $this->get_dir_ilm('dirid'); if ($stringArchiveContent != (-1)) { $fs = get_file_storage(); // Get reference to all files in Moodle data $file = $fs->get_file_by_id($fileid); if (!$file) { print $OUTPUT->notification(get_string('error_view_ilm', 'iassign'), 'notifyproblem'); die; } $fileinfo = array('contextid' => $context->id, // ID of context 'component' => 'mod_iassign', // usually = table name 'filearea' => 'activity', // usually = table name 'itemid' => 0, // usually = ID of row in table 'filepath' => $file->get_filepath(), // any path beginning and ending with '/' 'userid' => $USER->id, 'author' => $USER->firstname . ' ' . $USER->lastname, 'license' => 'allrightsreserved', // allrightsreserved 'timecreated' => $file->get_timecreated(), 'filename' => $file->get_filename()); // any filename $file->delete(); //TODO Verificar se apenas esta' inserindo nova referencia em 'files' (NAO deve duplicar no Moodle Data) $file_course = $fs->create_file_from_string($fileinfo, $stringArchiveContent); //$string } $output = ""; print $output; die(); } /// Function for create an tag for iAssign filter // @calledby function preview_ilm($iassign_ilm) : $tag_filter = $this->tag_ilm($fileid); // @calledby function tinymce_ilm($fileid) : $tag_filter = $this->tag_ilm($fileid); // @calledby function editor_ilm($fileid, $editor) : $tag_filter = $this->tag_ilm($fileid); // @calledby function atto_ilm ($fileid) : $tag_filter = $this->tag_ilm($fileid); // @param int $fileid Id of file // @return string Return an string with an tag of iassign filter function tag_ilm ($fileid) { global $DB; $fs = get_file_storage(); // Get reference to all files in Moodle data $width = '600'; $height = '400'; $file = $fs->get_file_by_id($fileid); $filetype = explode(".", $file->get_filename()); $iassign_ilm = $DB->get_records('iassign_ilm', array("enable" => 1, "parent" => 0)); foreach ($iassign_ilm as $value) { $extensions = explode(",", $value->extension); if (in_array($filetype[1], $extensions)) { $width = $value->width; $height = $value->height; } } return("

<ia toolbar=disable width=$width height=$height >$fileid</ia>

"); } /// Function for delete iAssign file in Moodle data (exercise) function delete_file_ilm () { $ilmid = optional_param('ilmid', NULL, PARAM_INT); $fs = get_file_storage(); // Get reference to all files in Moodle data $fileid = optional_param('fileid', NULL, PARAM_RAW); $file = $fs->get_file_by_id($fileid); if ($file) $file->delete(); redirect(new moodle_url($this->url . '&dirid=' . $this->get_dir_ilm('dirid') . '&ilmid=' . $ilmid)); die(); } /// Function for delete selected iAssign file in Moodle data (exercise) function delete_selected_ilm () { $ilmid = optional_param('ilmid', NULL, PARAM_INT); $fs = get_file_storage(); // Get reference to all files in Moodle data $context = context_course::instance($this->id); $files_id = explode(",", optional_param('files_id', '', PARAM_TEXT)); $dirid = $this->get_dir_ilm('dirid'); foreach ($files_id as $file_id) { $file = $fs->get_file_by_id($file_id); if ($file) { if (!$file->is_directory()) $file->delete(); else { $files_delete = $fs->get_directory_files($context->id, 'mod_iassign', 'activity', 0, $file->get_filepath(), true, true); foreach ($files_delete as $value) $value->delete(); $file->delete(); } } } redirect(new moodle_url($this->url . '&dirid=' . $dirid . '&ilmid=' . $ilmid)); die(); } /// Function for duplicate iAssign file from "online" edition // @callby JavaScript function 'duplicate_ilm(ilmid, filename, fileid)' bellow function duplicate_file_ilm () { global $USER, $COURSE; $ilmid = optional_param('ilmid', NULL, PARAM_INT); $fs = get_file_storage(); // Get reference to all files in Moodle data $fileid = optional_param('fileid', NULL, PARAM_INT); $filename = optional_param('filename', NULL, PARAM_RAW); $file = $fs->get_file_by_id($fileid); $context = context_course::instance($this->id); $fileinfo = array( 'contextid' => $context->id, // ID of context 'component' => 'mod_iassign', // usually = table name 'filearea' => 'activity', // usually = table name 'itemid' => 0, // usually = ID of row in table 'filepath' => $this->get_dir_ilm('dir_base'), // any path beginning and ending in / 'userid' => $USER->id, 'author' => $USER->firstname . ' ' . $USER->lastname, 'license' => 'allrightsreserved', // allrightsreserved 'timecreated' => $file->get_timecreated(), 'filename' => $filename); // any filename $newfile = $fs->create_file_from_string($fileinfo, $file->get_content()); redirect(new moodle_url($this->url . "&dirid=" . $this->get_dir_ilm('dirid') . "&ilmid=" . $ilmid)); die(); } /// Function for rename iAssign file function rename_file_ilm () { $ilmid = optional_param('ilmid', NULL, PARAM_INT); $fs = get_file_storage(); // Get reference to all files in Moodle data $fileid = optional_param('fileid', NULL, PARAM_INT); $filename = optional_param('filename', NULL, PARAM_TEXT); $file = $fs->get_file_by_id($fileid); $file->rename($this->get_dir_ilm('dir_base'), $filename); //MOOC2014 redirect(new moodle_url($this->url . "&dirid=" . $dir_parent . "&ilmid=$ilmid")); redirect(new moodle_url($this->url . '&dirid=' . $this->get_dir_ilm('dirid') . '&ilmid=' . $ilmid)); //D echo "locallib.php: rename_file_ilm; ilmid=$ilmid, dirid=" . $this->get_dir_ilm('dirid') . "
\n"; // die(); } /// Function for get iassign file for iassign form function add_ilm () { $fileid = optional_param('fileid', NULL, PARAM_INT); $filename = optional_param('filename', NULL, PARAM_TEXT); $output = " "; print $output; die(); } /// Function for preview iAssign file from iAssign Repository (it uses iAssign filter) // @see /iassign_filter/filter.php : function 'filter($text, array $options = array())' and exit (do not continue bellow) // @see ilm_manager.php : $ilm_manager_instance->preview_ilm(); function preview_ilm ($courseid, $iassign_ilm) { global $OUTPUT, $CFG, $USER; $fileid = optional_param('fileid', NULL, PARAM_TEXT); $title = get_string('modulename', 'iassign'); // iAssign print $OUTPUT->header(); print $OUTPUT->box_start(); $javascript = " \n"; // Use iAssin filter to change "<ia toolbar=disable width=800 height=600 >45</ia>" // to the complete "applet" tag // Version previous to: 2016/02/16: do not present menus' options - similar to the filter //TODO: E' melhor apresentar o iMA completo, sem usar o filtro com opcao "" //TODO: Talvez seja melhor colocar opcao no filtro para evitar opcao 'ADD'! //TODO: Here reaches '/iassign_filter/filter.php : function 'filter($text, array $options = array())' with parameter 'originalformat=0' (in glossary is 1) //TODO: then, I changed '/iassign_filter/filter.php' (functions 'filter(...) to avoid 'SOH_ADD' if 'originalformat=0' $ilm_name = substr(strtolower($iassign_ilm->name), 0, 6); if ($ilm_name != "ivprog") { //MOOC2014 $tag_filter = format_text($this->tag_ilm($fileid)); $tag_filter = $this->tag_ilm($fileid); // build the iAssign filter tag, something like: 58 $tag_filter_filtered = format_text($tag_filter, FORMAT_MOODLE, array('overflowdiv' => true, 'allowid' => true)); // Moodle 3.X } else { require_once($CFG->dirroot . '/mod/iassign/ilm_security.php'); $content_or_id_from_ilm_security = $this->get_file_ilm(); $timecreated = time(); $token = md5($timecreated); $id_iLM_security = ilm_security::write_iLM_security($USER->id, $timecreated, -1, $content_or_id_from_ilm_security); // insert in 'iassign_security' $param = 'id=' . $id_iLM_security . '&ilmid=' . $iassign_ilm->id . '&token=' . $token . '&view=0'; $url_file = $CFG->wwwroot . '/mod/iassign/ilm_security.php?action=preview&' . $param; $tag_filter_filtered = ilm_settings::build_ilm_tags($iassign_ilm->id, array("type" => "view", "notSEND" => "true", "Proposition" => $url_file)); // buil iLM tag (JAR or HTML5) } $html = "
\n" . $tag_filter_filtered . "\n
\n"; print $javascript . $html; print $OUTPUT->box_end(); //NAO echo format_string($html); // Moodle 3.X die(); } // function preview_ilm($courseid, $iassign_ilm) //r_ function preview_ilm ($iassign_ilm) //r_ /// Function for preview iassign file from iassign filter. //r_ function preview_ilm() { //r_ $fileid = optional_param('fileid', NULL, PARAM_TEXT); //r_ $tag_filter = $this->tag_ilm($fileid); //r_ $javascript = ""; //r_ $html = "
//r_
$tag_filter
//r_
"; //r_ echo $javascript . format_text($html); //r_ die; //r_ } /// Function for export an package (zip) of iassign files function export_files_ilm () { global $CFG; $context = context_course::instance($this->id); $files_id = explode(",", optional_param('files_id', '', PARAM_TEXT)); $zip_filename = $CFG->dataroot . '/temp/backup-iassign-files-' . date("Ymd-Hi") . '.zip'; $zip = new zip_archive(); $zip->open($zip_filename); $fs = get_file_storage(); // Get reference to all files in Moodle data foreach ($files_id as $file_id) { $file = $fs->get_file_by_id($file_id); if (!$file->is_directory()) $zip->add_file_from_string($file->get_filename(), $file->get_content()); else { $zip->add_directory($file->get_filepath()); $files_zip = $fs->get_directory_files($context->id, 'mod_iassign', 'activity', 0, $file->get_filepath(), true, true); foreach ($files_zip as $value) { if (!$value->is_directory()) $zip->add_file_from_string($value->get_filepath() . $value->get_filename(), $value->get_content()); else $zip->add_directory($value->get_filepath()); } } } $zip->close(); header("Pragma: public"); header("Expires: 0"); header("Cache-Control: must-revalidate, post-check=0, pre-check=0"); header("Cache-Control: private", false); header("Content-Type: application/zip"); header("Content-Disposition: attachment; filename=\"" . basename($zip_filename) . "\";"); header("Content-Transfer-Encoding: binary"); header("Content-Length: " . @filesize($zip_filename)); set_time_limit(0); @readfile("$zip_filename") || die("File not found."); unlink($zip_filename); exit; } /// Function of execute a command in button editor tinymce // @param int $fileid Id of file function tinymce_ilm ($fileid) { $tag_filter = $this->tag_ilm($fileid); $output = "\n"; print $output; die(); } //TODO sugestao para uso de apenas uma funcao para chamar os editores, cortando 17 linhas de codigo /// Function to add content to the Editor Window // Updated: Marcio Passos - marciopassosbel[at]gmail[dot]com :: 07 / Jul / 2016 // @param int $fileid Id of file function editor_ilm ($fileid, $editor) { $tag_filter = $this->tag_ilm($fileid); // Prepare tag like: ID $output1 = "\n"; //D var_dump($output); print $output1 . $output2 . $output3; die(); } /// Function to add content to the Atto Editor Window // Updated: Marcio Passos - marciopassosbel[at]gmail[dot]com :: 07 / Jul / 2016 // @param int $fileid Id of file function atto_ilm ($fileid) { global $CFG, $DB; $tag_filter = $this->tag_ilm($fileid); $output = "\n"; print $output; die(); } /// Function for get path and info of directories: dirid, dir_base, dir_parent, dir_home // @param string $key Key for return information // @return Ambigous Return an information requested function get_dir_ilm ($key) { $fs = get_file_storage(); // Get reference to all files in Moodle data $context = context_course::instance($this->id); $dirid = optional_param('dirid', 0, PARAM_INT); $dir_home = $fs->get_file($context->id, 'mod_iassign', 'activity', 0, $dir_base = '/', '.'); if ($dirid == 0) { $dir = ($dir_home = $fs->create_directory($context->id, 'mod_iassign', 'activity', 0, $dir_base)); $dirid = $dir->get_id(); } else { $dir = $fs->get_file_by_id($dirid); $dir_base = $dir->get_filepath(); } $dir_parent = $dir->get_parent_directory(); $data = array('dirid' => $dirid, 'dir_base' => $dir_base, 'dir_parent' => ($dir_parent == NULL ? 0 : $dir_parent->get_id()), 'dir_home' => $dir_home->get_id()); return $data[$key]; } /// Function for create an new dir function new_dir_ilm () { global $USER; $ilmid = optional_param('ilmid', NULL, PARAM_INT); $dirname = optional_param('dirname', NULL, PARAM_TEXT); $dir_base = $this->get_dir_ilm('dir_base'); $context = context_course::instance($this->id); $fs = get_file_storage(); // Get reference to all files in Moodle data $fs->create_directory($context->id, 'mod_iassign', 'activity', 0, $dir_base . $dirname . "/", $USER->id); $dir_base = $fs->get_file($context->id, 'mod_iassign', 'activity', 0, $dir_base . $dirname . "/", '.'); $dir_base->set_author($USER->firstname . ' ' . $USER->lastname); redirect(new moodle_url($this->url . '&dirid=' . $this->get_dir_ilm('dirid') . '&ilmid=' . $ilmid)); } /// Function for delete an dir function delete_dir_ilm () { // $fs = get_file_storage(); // Get reference to all files in Moodle data $ilmid = optional_param('ilmid', NULL, PARAM_INT); $context = context_course::instance($this->id); $dir = $fs->get_file_by_id($this->get_dir_ilm('dirid')); $dir_parent = $this->get_dir_ilm('dir_parent'); if ($dir) { if ($dir->is_directory()) { $files_delete = $fs->get_directory_files($context->id, 'mod_iassign', 'activity', 0, $dir->get_filepath(), true, true); foreach ($files_delete as $value) $value->delete(); $dir->delete(); } } redirect(new moodle_url($this->url . '&dirid=' . $dir_parent . '&ilmid=' . $ilmid)); die(); } /// Function for rename an dir function rename_dir_ilm () { $fs = get_file_storage(); // Get reference to all files in Moodle data $ilmid = optional_param('ilmid', NULL, PARAM_INT); $context = context_course::instance($this->id); $dir = $fs->get_file_by_id($this->get_dir_ilm('dirid')); $dir_parent = $this->get_dir_ilm('dir_parent'); $dirname = optional_param('dirname', NULL, PARAM_TEXT); $pathname = explode("/", substr($dir->get_filepath(), 0, strlen($dir->get_filepath()) - 1)); if ($dir->is_directory()) { $files_rename_path = $fs->get_directory_files($context->id, 'mod_iassign', 'activity', 0, $dir->get_filepath(), true, true); foreach ($files_rename_path as $value) $value->rename(str_replace($pathname[count($pathname) - 1], $dirname, $value->get_filepath()), $value->get_filename()); $dir->rename(str_replace($pathname[count($pathname) - 1], $dirname, $dir->get_filepath()), $dir->get_filename()); } redirect(new moodle_url($this->url . '&dirid=' . $dir_parent . '&ilmid=' . $ilmid)); die(); } /// Function for move an dir and your content for other dir function selected_move_ilm () { global $PAGE, $OUTPUT, $CFG; $fs = get_file_storage(); // Get reference to all files in Moodle data $context = context_course::instance($this->id); $ilmid = optional_param('ilmid', NULL, PARAM_INT); $dirid = $this->get_dir_ilm('dirid'); $dir_base = $this->get_dir_ilm('dir_base'); $files_id = explode(",", optional_param('files_id', '', PARAM_TEXT)); $code_javascript_ilm = " \n"; $title = get_string('move_files', 'iassign'); $PAGE->set_title($title); $PAGE->set_pagelayout('base'); print $OUTPUT->header(); print $OUTPUT->heading($title); $dir_paths = array(); print $OUTPUT->box_start(); print "
"; foreach ($files_id as $file_id) { $file = $fs->get_file_by_id($file_id); if ($file) { if (!$file->is_directory()) print "

" . iassign_icons::insert('file') . " " . $file->get_filepath() . $file->get_filename() . "

"; else { print "

" . iassign_icons::insert('dir') . " " . $file->get_filepath() . "

"; array_push($dir_paths, $file->get_filepath()); } } } print $OUTPUT->heading(get_string('select_move_ilm', 'iassign'), 3, 'move', 'move_files'); if ($dir_base != '/') { $check_select = ""; print $check_select . " " . iassign_icons::insert('dir') . " /
"; } $files_tree = $fs->get_directory_files($context->id, 'mod_iassign', 'activity', 0, '/', true, true, 'filepath'); foreach ($files_tree as $file) { if ($file->is_directory() && $file->get_filepath() != $dir_base) { $is_parent = false; foreach ($dir_paths as $dir) { $path = explode("/", $dir); array_pop($path); $path[count($path) - 1] = ''; $path = implode("/", $path); $is_parent |= (strpos($file->get_filepath(), $dir) === false ? false : true); $is_parent |= ($file->get_filepath() != $path ? false : true); } if ($is_parent == false) { $check_select = ""; print "

" . $check_select . " " . iassign_icons::insert('dir') . " " . $file->get_filepath() . "

"; } } } print "

    "; print "

"; print "
"; print $OUTPUT->box_end(); print $OUTPUT->footer(); print $code_javascript_ilm; die; } /// Function for move files for an dir function move_files_ilm () { $fs = get_file_storage(); // Get reference to all files in Moodle data $context = context_course::instance($this->id); $ilmid = optional_param('ilmid', NULL, PARAM_INT); $dirid = $this->get_dir_ilm('dirid'); $dir_move = $fs->get_file_by_id(optional_param('dir_move', 0, PARAM_INT)); $files_id = explode(",", optional_param('files_id', '', PARAM_TEXT)); foreach ($files_id as $file_id) { $file = $fs->get_file_by_id($file_id); if ($file) { if ($file->is_directory()) { $pathname = explode("/", $file->get_filepath()); $files_move_path = $fs->get_directory_files($context->id, 'mod_iassign', 'activity', 0, $file->get_filepath(), true, true); foreach ($files_move_path as $value) { $path_move = $dir_move->get_filepath() . $pathname[count($pathname) - 2] . '/' . str_replace($file->get_filepath(), '', $value->get_filepath()); $value->rename($path_move, $value->get_filename()); //echo($value->get_filepath().$value->get_filename()." - $path_move".$value->get_filename()."
"); } $path_move = $dir_move->get_filepath() . $pathname[count($pathname) - 2] . '/'; //echo($file->get_filepath().$file->get_filename()." - $path_move".$file->get_filename()."
"); $file->rename($path_move, $file->get_filename()); } else { //echo($file->get_filepath().$file->get_filename()." -> ".$dir_move->get_filepath().$file->get_filename()."
"); $file->rename($dir_move->get_filepath(), $file->get_filename()); } } } //die; redirect(new moodle_url($this->url . '&ilmid=' . $ilmid . '&dirid=' . $dirid)); die(); } // function move_files_ilm() /// Function for recover files in use on all activities of a course function recover_files_ilm () { global $DB, $USER; $fs = get_file_storage(); // Get reference to all files in Moodle data $courseid = optional_param('id', NULL, PARAM_INT); $dirid = $this->get_dir_ilm('dirid'); $ilmid = optional_param('ilmid', NULL, PARAM_INT); $contextfile = context_course::instance($this->id); $iassigns = $DB->get_records("iassign", array("course" => $courseid)); foreach ($iassigns as $iassign) { $iassign_statement_activity_list = $DB->get_records("iassign_statement", array("iassignid" => $iassign->id)); foreach ($iassign_statement_activity_list as $iassign_statement_activity_item) { $cm = get_coursemodule_from_instance("iassign", $iassign->id, $courseid); $context = context_module::instance($cm->id); // Before associtaion 'files.id' with 'iassign_statement.iassign_ilmid': $files = $fs->get_area_files($context->id, 'mod_iassign', 'exercise', $iassign_statement_activity_item->filesid); $files = $fs->get_area_files($context->id, 'mod_iassign', 'exercise', $iassign_statement_activity_item->id); if ($files) { foreach ($files as $value) { $extension = explode(".", $value->get_filename()); if (!$value->is_directory()) { $fileinfo = array('contextid' => $contextfile->id, 'component' => 'mod_iassign', 'filearea' => 'activity', 'itemid' => 0, 'filepath' => $this->get_dir_ilm('dir_base'), 'userid' => $USER->id, 'author' => $USER->firstname . ' ' . $USER->lastname, 'license' => 'allrightsreserved', 'timecreated' => time(), 'filename' => $iassign_statement_activity_item->name . "." . $extension[1]); // any filename $newfile = $fs->create_file_from_string($fileinfo, $value->get_content()); } } } // if ($files) } // foreach ($iassign_statement_activity_list as $iassign_statement_activity_item) } // foreach ($iassigns as $iassign) redirect(new moodle_url($this->url . '&dirid=' . $dirid . '&ilmid=' . $ilmid)); die(); } // function recover_files_ilm() /// Auxiliary function the get all files in a given context // @calledby view_files_ilm($iassign_ilm_class, $extension, $start = 0) // @return [array_contextid_files_thisauthor[], array_contextid_files_otherauthors[], array_contextid_files_otherauthors_userid[]] //TODO Falta separar os arquivos listados, apresentar primeiro aqueles do autor e depois os demais. //TODO Nao devemos listar aqueles que estao sem permissao (license == 'allrightsreserved') function get_files_in_context (&$filesfrommine, &$filesfromothers, $contextid, $extension, $userid) { // s_iassign_statement: id name iassignid type_iassign proposition author_name author_modified_name iassign_ilmid // (NAO s_iassign_statement.file = s_files.id) $fs = get_file_storage(); // Get reference to all files in Moodle data $dir_base = $this->get_dir_ilm('dir_base'); $files_course = $fs->get_directory_files($contextid, 'mod_iassign', 'activity', 0, $dir_base, false, true, 'filename'); $countf = 0; $array_files_id = array(); // all files from this context foreach ($files_course as $item_fc) { // license = not "allrightsreserved" AND is not from this author => present it //$filename = $item_fc->get_filename(); //$filepath = $item_fc->get_filepath(); //$fileid = $item_fc->get_id(); // get file ID (in *_iassign_statement table) $fileuserid = $item_fc->get_userid(); // get user.id of the author // $array_files_aux[] = $item_fc; $itemid = $item_fc->get_id(); if (!in_array($itemid, $array_files_id)) { //TODO Avoid to insert twice - necessary since it has been inserting 2 copies in iassign_statement if ($fileuserid == $userid) $filesfrommine[] = $item_fc; else $filesfromothers[] = $item_fc; $array_files_id[] = $itemid; $countf++; } } //D echo "get_files_in_context: dir_base=$dir_base, contextid=$contextid, #array_files_id=".count($array_files_id) . " = $countf
"; return $countf; } // function get_files_in_context(&$filesfrommine, &$filesfromothers, $contextid, $extension, $userid) // Function to get all iLM files from the same "file type": (usually) files under the same directory // @calledby view_files_ilm($iassign_ilm_class, $extension, $start = 0) function get_all_ilm_files_by_fileid ($fileid) { global $DB, $USER; // $iassign_statement_activity_list = $DB->get_records("iassign_statement", array("file" => $fileid)); //TODO Criar coluna 'authorid' $str_query = "SELECT * FROM {iassign_statement} WHERE file = " . $fileid . " ORDER BY author_name, timecreated DESC"; $array_iassign_ilm = $DB->get_records_sql($str_query); return $array_iassign_ilm; } //NN //NN // Build string with JavaScript code with function to edit/remove/double iLM files // @calledby view_files_ilm($iassign_ilm_class, $extension, $start = 0) function get_string_JavaScript_functions ($dirid, $ilmid, $files_array, $dirs_array) { global $CFG; $error_files_exists = get_string('error_file_exists', 'iassign'); $error_dir_exists = get_string('error_dir_exists', 'iassign'); $code_javascript_ilm = " \n"; // end of $code_javascript_ilm return $code_javascript_ilm; } // function get_string_JavaScript_functions($dirid, $ilmid, $files_array, $dirs_array) /// List iassign files from course directory // @calledby ilm_manager.php : $ilm_manager_instance->view_files_ilm($iassign_ilm->extension); function view_files_ilm ($iassign_ilm_class, $extension) { global $CFG, $DB, $USER, $OUTPUT; $fs = get_file_storage(); $context = context_course::instance($this->id); $ilmid = optional_param('ilmid', NULL, PARAM_INT); $dirid = $this->get_dir_ilm('dirid'); $dir_base = $this->get_dir_ilm('dir_base'); $files_course = $fs->get_directory_files($context->id, 'mod_iassign', 'activity', 0, $dir_base, false, true, 'filename'); //D echo "locallib.php: view_files_ilm: context->id=" . $context->id . ", dir_base=$dir_base, #files_course=" . count($files_course) . "
"; //D foreach ($files_course as $onefile) echo $onefile->get_id().", ".$onefile->get_filepath().", ".$onefile->get_filename()."
"; $files_array = ''; foreach ($files_course as $value) { if (!$value->is_directory()) $files_array .= "'" . $value->get_filename() . "',"; } $files_array .= "''"; $error_files_exists = get_string('error_file_exists', 'iassign'); $dirs_array = ''; foreach ($files_course as $value) { if ($value->is_directory()) { $pathname = explode("/", substr($value->get_filepath(), 0, strlen($value->get_filepath()) - 1)); $dirs_array .= "'" . $pathname[count($pathname) - 1] . "',"; } } $dirs_array .= "''"; $error_dir_exists = get_string('error_dir_exists', 'iassign'); //TODO: Rever o 'preview', pois so' apresenta uma vez! $code_javascript_ilm = " \n"; $output = ""; $select_all = ""; $count_files = 0; $extensions_allow = array(); $iassign_ilm = $DB->get_records('iassign_ilm', array("enable" => 1)); // extensions for all iLM... foreach ($iassign_ilm as $item_iassign_ilm) $extensions_allow = array_merge($extensions_allow, explode(",", $item_iassign_ilm->extension)); foreach ($files_course as $value) { $filename = $value->get_filename(); $filepath = $value->get_filepath(); $pathname = explode("/", substr($filepath, 0, strlen($filepath) - 1)); $pathname = $pathname[count($pathname) - 1]; $fileid = $value->get_id(); $tmp = explode(".", $filename); if (count($tmp)>1) // avoid error if the file has no extension $filetype = $tmp[1]; else // probably error... $filetype = ''; $author = $value->get_author(); $timemodified = date("d/m/Y H:i:s", $value->get_timemodified()); $timecreated = date("d/m/Y H:i:s", $value->get_timecreated()); $extensions = explode(",", $extension); if (in_array(strtolower($filetype), $extensions) || $value->is_directory() || $this->from == 'block' || $this->from == 'tinymce' || $this->from == 'atto') { $count_files++; // buscar fileid nas tabelas do iassign $list_filein_use = ""; $iassign_statement_activity_list = $DB->get_records("iassign_statement", array("file" => $fileid)); if ($iassign_statement_activity_list) { foreach ($iassign_statement_activity_list as $iassign_statement_activity_item) { $list_filein_use .= $iassign_statement_activity_item->name . "
\n"; } } $iassign_ilm = $DB->get_record("iassign_ilm", array('extension' => $filetype, 'id' => $ilmid, 'enable' => '1')); if (!$iassign_ilm) { $iassign_ilm = new stdClass(); $iassign_ilm->id = $ilmid; } // Do not use $var inside "..." - problem with some "unusual" operational system $url = $CFG->wwwroot . "/pluginfile.php/" . $value->get_contextid() . "/mod_iassign/activity"; $fileurl = $url . '/' . $value->get_itemid() . $filepath . $filename; $dirurl = new moodle_url($this->url) . '&ilmid=' . $iassign_ilm->id . '&dirid=' . $fileid; $straux = $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&fileid=" . $fileid . "&"; $link_add_ilm_iassign = "  " . iassign_icons::insert('add_ilm_iassign') . "\n"; $link_add_ilm_tinymce = "  " . iassign_icons::insert('add_ilm_iassign') . "\n"; $link_add_ilm_atto = "  " . iassign_icons::insert('add_ilm_iassign') . "\n"; $check_select = ""; $link_rename = ""; $link_delete = ""; $link_duplicate = "  " . iassign_icons::insert('duplicate_iassign') . "\n"; $link_edit = "  " . iassign_icons::insert('no_edit_iassign'); $link_filter = "  " . iassign_icons::insert('preview_iassign') . "\n"; $link_duplicate = "  " . iassign_icons::insert('duplicate_iassign') . "\n"; $link_edit = "  " . iassign_icons::insert('no_edit_iassign'); $link_filter = "  " . iassign_icons::insert('preview_iassign') . "\n"; if ($value->get_userid() == $USER->id) { if ($iassign_statement_activity_list) { $check_select = ""; $link_edit = iassign_icons::insert('edit_iassign_disable'); $link_delete = "  " . iassign_icons::insert('delete_iassign_disable'); $link_rename = ""; } else { $check_select = "\n"; $link_edit = "  " . iassign_icons::insert('edit_iassign') . "\n"; $link_delete = "  " . iassign_icons::insert('delete_iassign') . "\n"; $link_rename = "  " . iassign_icons::insert('rename_iassign') . "\n"; } } if (!in_array($filetype, $extensions_allow)) { $link_edit = ""; $link_add_ilm_iassign = ""; $link_add_ilm_tinymce = ""; $link_add_ilm_atto = ""; $link_filter = ""; } if ($value->is_directory()) { $link_delete = "  " . iassign_icons::insert('delete_dir') . "\n"; $link_rename = "  " . iassign_icons::insert('rename_dir') . "\n"; $output .= "$check_select$link_rename$link_delete " . iassign_icons::insert('dir') . ' ' . $pathname . "
$author
$timecreated
$timemodified
\n"; } else if ($this->from == 'iassign') { $new_id = ""; $new_class = ""; if (isset($_SESSION['file_name']) && $filename == $_SESSION['file_name']) { $new_class = "
"; unset($_SESSION['file_name']); $new_id = "id='id_new_blink' style='background-color: hsl(244,61%,90%);'"; } $output .= "$new_class $check_select$link_rename$link_delete$link_duplicate$link_edit$link_filter$link_add_ilm_iassign $filename
$author
$timecreated
$timemodified
\n"; } else if ($this->from == 'block') { $output .= "$check_select$link_rename$link_delete$link_duplicate$link_edit$link_filter $filename
$author
$timecreated
$timemodified
\n"; } else if ($this->from == 'tinymce') { $output .= "$check_select$link_rename$link_delete$link_duplicate$link_edit$link_filter$link_add_ilm_tinymce $filename
$author
$timecreated
$timemodified
\n"; } else if ($this->from == 'atto') { $output .= "$check_select$link_rename$link_delete$link_duplicate$link_edit$link_filter$link_add_ilm_atto $filename
$author
$timecreated
$timemodified
\n"; } } } $basename = explode("/", substr($dir_base, 0, strlen($dir_base) - 1)); $dir_base = ""; $header = ""; // echo "locallib.php: view_files_ilm(iassign_ilm_class,extension): iassign_ilm_class->extension=" . $iassign_ilm_class->extension . ", extension=" . $extension. "
\n"; // Get all files in the course context with the associated iLM extension (e.g., iLM=iVProgH => extension "*ivph") foreach ($basename as $value) { $dir_base .= $value . "/"; $dir_id = $fs->get_file($context->id, 'mod_iassign', 'activity', 0, $dir_base, '.'); if ($dir_id) { if ($value == "") { $fileurl = new moodle_url($this->url) . '&dirid=' . $dir_id->get_id() . '&ilmid=' . $ilmid; $header .= " Home\n"; } else { $fileurl = new moodle_url($this->url) . '&dirid=' . $dir_id->get_id() . '&ilmid=' . $ilmid; $header .= " " . $OUTPUT->rarrow() . " $value\n"; } } } // foreach ($basename as $value) $html = $OUTPUT->heading(iassign_icons::insert('open_dir') . $header, 2, 'dirtitle', 'iassign'); $select_all = "\n"; $html .= " \n " . $output . "
$select_all " . get_string('functions', 'iassign') . " " . get_string('file', 'iassign') . " " . get_string('author', 'iassign') . " " . get_string('file_created', 'iassign') . " " . get_string('file_modified', 'iassign') . "
\n"; $html .= "
\n"; $html .= "\n"; $html .= "
\n"; if ($count_files != 0) { $html .= "   |      |   \n"; $html .= "   |   \n"; $html .= "\n"; } $html .= "\n"; $html .= $OUTPUT->help_icon('file_ilm_recover', 'iassign') . "
\n"; $html .= "
\n"; print $code_javascript_ilm; print $html; } // function view_files_ilm($extension) } // class ilm_manager /// Class to insert of icons class iassign_icons { static function insert ($icon) { global $CFG; $string = '' . get_string($icon, 'iassign') . ''; // "\n" return $string; } } /// Class with util functions for plugin manage class iassign_utils { /// Function to return the filename extension // @param string The $filename as an string // @return string Return an string (last group after '.') static function filename_extension ($filename) { if ($filename == null || $filename == '') { return null; } $itens = explode('.', $filename); $num = count($itens); if ($num < 2) { return null; } return $itens[$num - 1]; } /// Use the PHP class/package ZipArchive to create a Zip file // The version 1 with ZipArchive (with '$zip->addFile(...)') is NOT working: // Warning: ZipArchive::close(): Failure to create temporary file: No such file or directory in /var/www/html/.../lib/filestorage/zip_archive.php on line 224 // @param $full_path_zip_filename, $vet_student_filename, $vet_student_content static function register_temporary_file ($full_path_zip_filename, $vet_student_filename, $vet_student_content) { //1 $zip = new ZipArchive(); //TODO this version uses '$zip->addFile(...)' and it is NOT working! $zip = new zip_archive(); //2 $res = $zip->open($full_path_zip_filename); $total_vet = count($vet_student_filename); for ($ii=0; $ii<$total_vet; $ii++) { // $zip->addFile($vet_student_filename[$ii], $vet_student_content[$ii]); //1 to ZipArchive $zip->add_file_from_string($vet_student_filename[$ii], $vet_student_content[$ii]); //2 to zip_archive } $ret = $zip->close(); iassign_utils::download_file($full_path_zip_filename); $filenameZip = $zip->filename; return array($ret, $zip); } static function download_file ($zip_filename) { header("Pragma: public"); header("Expires: 0"); header("Cache-Control: must-revalidate, post-check=0, pre-check=0"); header("Cache-Control: private", false); header("Content-Type: application/zip"); header("Content-Disposition: attachment; filename=\"" . basename($zip_filename) . "\";"); header("Content-Transfer-Encoding: binary"); header("Content-Length: " . @filesize($zip_filename)); set_time_limit(0); @readfile("$zip_filename") || die("File not found."); unlink($zip_filename); } /// Function for format filename remove special caracters // @param string $text String for clean // @param boolean $is_lowercase Boolean for apply lowercase in filename // @return string Return an string in clean format static function format_filename ($text) { if ($text != '.') { //D $text = htmlspecialchars(urldecode($text)); //D echo "locallib.php: format_filename: $text
"; if (is_object($text)) // with iAssign did not filtered text from JSON format $text = json_decode($text)->{current_language()}; // $text = htmlspecialchars($text); // not good ideia, it results strange at 'iassign_ilm' field $array1 = array("(", ")", ",", "/", "\\", "!", "@", "#", "$", "&", "*", "+", "!", "?", ".", " ", ":", "á", "à", "â", "ã", "ä", "é", "è", "ê", "ë", "ẽ", "í", "ì", "î", "ï", "ó", "ò", "ô", "õ", "ö", "ú", "ù", "û", "ü", "ç", "Á", "À", "Â", "Ã", "Ä", "É", "È", "Ê", "Ë", "Í", "Ì", "Î", "Ï", "Ó", "Ò", "Ô", "Õ", "Ö", "Ú", "Ù", "Û", "Ü", "Ç"); $array2 = array("", "", "_", "_", "_", "", "", "", "", "", "", "", "", "", "_", "_", "-", "a", "a", "a", "a", "a", "e", "e", "e", "e", "e", "i", "i", "i", "i", "o", "o", "o", "o", "o", "u", "u", "u", "u", "c", "A", "A", "A", "A", "A", "E", "E", "E", "E", "I", "I", "I", "I", "O", "O", "O", "O", "O", "U", "U", "U", "U", "C"); // E.g. text = "exerc_midpoint.course.geo" // 0123456789012345678901234 $index_lastposition = strrpos($text, "."); // Find the position of the last occurrence of a substring in a string (21) $text2 = substr($text, 0, $index_lastposition); // Erase the final point and its extension ("exerc_midpoint.course") $ext = substr($text, $index_lastposition); // Point with extention (".geo") $text = str_replace(".", "", $text2) . $ext; // Clear any other point and redefine the name ("exerc_midpoint.course.geo") $text = str_replace($array1, $array2, $text); // Replace any letter with accent mark under the UTF8 format //$ext = strrpos($text, "."); //$text = str_replace(".", "", substr($text, 0, $ext)).substr($text, $ext); //$text = str_replace($array1, $array2, $text); } return $text; } /// Function to filter characters to the file name to iLM content // @param string $text String for clean // @param string $ext String ot the extension of the iLM // @return string Return an string in clean format static function filter_filename_extension ($filename, $ext) { if ($filename != '.') { $arrFrom = array("=","~","`","!","@","$","%","^","&","*","(",")"); $arrTo = array("_","","","","","","","","","","","",""); $filename = str_replace($arrFrom, $arrTo, $filename); //D echo "locallib.php: filter_filename_extension: 1 : " . $filename . "
"; $filenameF = preg_replace('/[^\x20-\x7E]/','', $filename); // only ASCII - https://stackoverflow.com/questions/8781911/remove-non-ascii-characters-from-string $index_lastposition = strrpos($filenameF, "."); // find the position of the last occurrence of a substring in a string (21) if (!isset($index_lastposition) || $index_lastposition=="" || $index_lastposition<0) // Just in case (logic of function 'strrpos(...)' change, ensure to preserve name without '.' $index_lastposition = strlen($filenameF); $text = substr($filenameF, 0, $index_lastposition); // erase the final point and its extension ("exerc_midpoint.course") $text = str_replace(".", "_", $text); // erase all other "." $existext = substr($filenameF, $index_lastposition); // get the possibly extension $filenameF = $text . "." . $ext; // no matter, use the prefiz with oficial extension } else $filenameF = 'file_without_name.' . $ext; // Just in case... if the use do not enter a valid name, only entered '.'! return $filenameF; } /// Function for format pathname remove special caracters // @param string $text String for clean // @param boolean $is_lowercase Boolean for apply lowercase in pathname // @return string Return an string in clean format static function format_pathname ($text, $is_lowercase = true) { $array1 = array("á", "à", "â", "ã", "ä", "é", "è", "ê", "ë", "í", "ì", "î", "ï", "ó", "ò", "ô", "õ", "ö", "ú", "ù", "û", "ü", "ç", "Á", "À", "Â", "Ã", "Ä", "É", "È", "Ê", "Ë", "Í", "Ì", "Î", "Ï", "Ó", "Ò", "Ô", "Õ", "Ö", "Ú", "Ù", "Û", "Ü", "Ç", "@", " ", "!", "?", "."); $array2 = array("a", "a", "a", "a", "a", "e", "e", "e", "e", "i", "i", "i", "i", "o", "o", "o", "o", "o", "u", "u", "u", "u", "c", "A", "A", "A", "A", "A", "E", "E", "E", "E", "I", "I", "I", "I", "O", "O", "O", "O", "O", "U", "U", "U", "U", "C", "-", "_", "", "", ""); $text = str_replace($array1, $array2, $text); if ($is_lowercase) $text = strtolower($text); return $text; } /// Function for format file name from iLM original name // @param string $text String to build the file neam // @param boolean $is_lowercase Boolean for apply lowercase in pathname // @return string Return an string in clean format static function filename_from_iLM_name ($ilm_name, $is_lowercase = true) { $array1 = array("á", "à", "â", "ã", "ä", "é", "è", "ê", "ë", "í", "ì", "î", "ï", "ó", "ò", "ô", "õ", "ö", "ú", "ù", "û", "ü", "ç", "Á", "À", "Â", "Ã", "Ä", "É", "È", "Ê", "Ë", "Í", "Ì", "Î", "Ï", "Ó", "Ò", "Ô", "Õ", "Ö", "Ú", "Ù", "Û", "Ü", "Ç", "@", " ", "!", "?", "."); $array2 = array("a", "a", "a", "a", "a", "e", "e", "e", "e", "i", "i", "i", "i", "o", "o", "o", "o", "o", "u", "u", "u", "u", "c", "A", "A", "A", "A", "A", "E", "E", "E", "E", "I", "I", "I", "I", "O", "O", "O", "O", "O", "U", "U", "U", "U", "C", "-", "_", "", "", ""); $index_firstposition_blank = strpos($ilm_name, " "); if ($index_firstposition_blank) { // truncate the name! $ilm_name = substr($ilm_name, 0, $index_firstposition_blank); } $index_firstposition_dots = strpos($ilm_name, ":"); if ($index_firstposition_dots) { // truncate the name! $ilm_name = substr($ilm_name, 0, $index_firstposition_dots); } $namefiltered = str_replace($array1, $array2, $ilm_name); if ($is_lowercase) $namefiltered = strtolower($namefiltered); return $namefiltered; } /// Function for insert version in the filename // @param string $filename Name of file // @return string Return the filename with version static function version_filename ($filename) { $array_filename = explode('.', $filename); if (count($array_filename) > 1) $filename = $array_filename[0] . '-' . date("Ymd-His") . '.' . $array_filename[1]; else $filename = $array_filename[0] . '-' . date("Ymd-His"); return $filename; } //TODO Retirar quando atualizar todo os iassign que estão com a tag <ia_uc> static function remove_code_message ($string) { $array = explode("<ia_uc>", $string); return $array[0]; } } // class iassign_utils /// Class with language functions for plugin manage class iassign_language { /// Function for return text in language or get default language (en) // @param string $lang Code of language // @param string $description JSON text content all languages // @return string Return an string in the language selected static function get_description_lang ($lang, $descriptions) { $description_lang = ""; $description = json_decode($descriptions); if ($description == null) { $description_lang = $descriptions; } else { if (isset($description->{$lang})) $description_lang = $description->{$lang}; else if (isset($description->en)) //MOOC2014 $description_lang = $description->en; else //MOOC2014 $description_lang = "en"; //MOOC2014 } return $description_lang; } /// Function for return all language supported by iLM // @param string $descriptions JSON text content all languages // @return string Return as string with all languages static function get_all_lang ($descriptions) { $langs = ""; $description = json_decode($descriptions); if ($description) { foreach ($description as $key => $value) { $langs .= $key . " ; "; } $langs = substr($langs, 0, strlen($langs) - 3); } return $langs; } /// Function for convert json in xml //MOOC2014 // @param string $json JSON text // @return string Return as string with xml tags static function json_to_xml ($json) { $xml = ""; $json = json_decode($json); foreach ($json as $key => $value) { $xml .= "\n <" . $key . ">" . $value . ""; } return $xml; } } // class iassign_language /// Class with log functions for plugin manage. class iassign_log { /// Function for insert log event // @param string $action Code action of event // @param string $information Text for describe action of event // @param int $cmid Id of context module // @param int $ilmid Id of iLM static function add_log ($action, $information = "", $cmid = 0, $ilmid = 0) { global $COURSE, $CFG, $USER, $DB; $newentry = new stdClass(); $newentry->time = time(); $newentry->userid = $USER->id; $newentry->ip = $_SERVER['REMOTE_ADDR']; $newentry->course = $COURSE->id; $newentry->cmid = $cmid; $newentry->ilmid = $ilmid; $newentry->action = $action; $newentry->info = $information; $newentry->language = current_language(); $newentry->user_agent = $_SERVER['HTTP_USER_AGENT']; if (ini_get("browscap") && function_exists('get_browse')) { $browser = get_browse(null, true); $newentry->javascript = $browser['javascript']; $newentry->java = $browser['javaapplets']; } if (!$newentry->id = $DB->insert_record("iassign_log", $newentry)) print_error('error_add_log', 'iassign'); } // static function add_log($action, $information = "", $cmid = 0, $ilmid = 0) } // class iassign_log