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->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->get_answer();', '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();'); $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();', 'get_student_submission' => '$this->get_student_submission();', 'get_teacher_exercise' => '$this->get_teacher_exercise();', 'post_auto_eval_result' => '$this->post_auto_eval_result();' ); $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 $files = $fs->get_area_files(context_module::instance($this->cm->id)->id, 'mod_iassign', 'exercise', $iassign_statement->file); 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; //ercise="+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); } /// 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 = array('shortname' => 'student'); $role = $DB->get_record_sql("SELECT s.id, s.shortname FROM {role} s WHERE s.shortname = :shortname", $params); $context = context_course::instance($this->course->id); $params = 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); print $OUTPUT->header(); 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 ''; // " } print '
'.get_string('students', 'iassign').'
' . $OUTPUT->render($avatar) . ' ' . $user->firstname . ' ' . $user->lastname . '
'; // " 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.'%"'); 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 $files = $fs->get_area_files(context_module::instance($this->cm->id)->id, 'mod_iassign', 'exercise', $iassign_statement->file); 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; $newfile = $fs->create_file_from_storedfile(array('contextid' => $id_context, 'component' => 'mod_iassign', 'filearea' => 'exercise', 'itemid' => $iassign_id), $value); $updateentry = new stdClass(); $updateentry->id = $iassign_id; $updateentry->file = $newfile->get_itemid(); $DB->update_record("iassign_statement", $updateentry); $fs->delete_area_files(context_module::instance($this->cm->id)->id, 'mod_iassign', 'exercise', $value->get_itemid()); break; } } } $this->return_home_course('moved_activity'); exit; } /// 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 $iassign_statement->id=0; // 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 $files = $fs->get_area_files($context->id, 'mod_iassign', 'exercise', $iassign_statement->file); 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; $newfile = $fs->create_file_from_storedfile(array('contextid' => $context->id, 'component' => 'mod_iassign', 'filearea' => 'exercise', 'itemid' => ($last_id + 1)), $value); $updateentry = new stdClass(); $updateentry->id = $id_; $updateentry->file = $newfile->get_itemid(); // 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 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); $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 = ''; // 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(); 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 } } } $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 // @calledby $this->action() function add_edit_iassign () { global $USER, $CFG, $COURSE, $DB, $OUTPUT; require_once('iassign_form.php'); $id = $this->cm->id; $iassignid = $this->iassign->id; $param = new stdClass(); $param->action = $this->action; // oculto $param->id = $id; // oculto $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 = 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); // $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; //echo "locallib.php: add_edit_iassign(): add
"; $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) { //2019 $iassign_statement_current = $DB->get_record("iassign_statement", array("id" => $this_activity->id)); $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; //2019: Moodle 3 uses proposition in 'textarea' as "('text' => , 'format' => '') //2019 $param->proposition = $iassign_statement_current->proposition; $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(); $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 = ""; // dependent 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 activity with the same iLM - iassignid $str_query = "SELECT id, name FROM {iassign_statement} s WHERE s.iassignid = '$iassignid' AND s.id!='$iassign_statement_current->id' ORDER BY s.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) } $param->iassign_ilmid = $iassign_statement_current->iassign_ilmid; $param->fileold = 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; // oculto $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; $param->position = $iassign_statement_current->position; // oculto $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 $files = $fs->get_area_files($context->id, $component, $filearea, $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; $mform = new mod_iassign_form(null, null, null, null, array('id'=>'mform1')); $mform->set_data($param); if ($mform->is_cancelled()) { $this->return_home_course('iassign_cancel'); exit; } else { // if ($mform->is_cancelled()) $result = $mform->get_data(); // echo "locallib.php: add_edit_iassign(): result="; print_r($result); echo "
"; if ($result) { $result->context = $context; if ($result->type_iassign == 1 || $result->type_iassign == 2) $result->grade = 0; if ($result->type_iassign == 1) { $result->automatic_evaluate = 0; $result->show_answer = 0; } elseif ($result->automatic_evaluate == 0) $result->show_answer = 0; // $_POST['iassign_list'] $result->iassign_list = optional_param_array('iassign_list', array(), PARAM_RAW); if ($result->iassign_list) { foreach ($result->iassign_list as $key => $value) $result->dependency .= $key . ';'; } else $result->dependency = 0; //TODO I used in 'iassign_form.php' '\n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \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 ''; } // if ($iassign_statement_activity_item->type_iassign == 3) print ''; print $OUTPUT->box_end(); $USER->iassignEdit = $this->bottonPost; 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(); } else { // if ($iassign_submission && $allow_resubmission) - techer view student answer // 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; } print $OUTPUT->box('

' . $last_iassign . '

' . "\n"); if (!isset($enderecoPOST)) $enderecoPOST = ""; // 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"; print '' . get_string('proposition', 'iassign') . '' . "\n"; print '

' . $iassign_statement_activity_item->proposition . '

' . "\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)' $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 Quadro com area para enivar e ler comentarios veio para este ponto para permitir todos o terem // $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(); $output .= "
\n"; $output .= "

\n"; $output .= "

\n"; $output .= "
\n"; if (!empty($history_comment)) { $output .= " \n"; $output .= " "; $output .= $history_comment; $output .= "
" . get_string('history_comments', 'iassign') . "
"; } $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 = array('shortname' => 'student'); $role = $DB->get_record_sql("SELECT s.id, s.shortname FROM {role} s WHERE s.shortname = :shortname", $params); $context = context_course::instance($this->course->id); $params = 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); 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') print $OUTPUT->box_start(); $this->view_legend_icons(); print '

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

'; print '

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

'; print $OUTPUT->box_end(); if ($this->action == 'print') print '' . "\n"; else print '
' . "\n"; print '' . "\n"; // $num = array(); $i = 1; $num = array(); foreach ($iassign_list as $iassign) { $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) 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 print '
' . "\n"; $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 = array('shortname' => 'student'); $role = $DB->get_record_sql( "SELECT s.id, s.shortname FROM {role} s " . " WHERE s.shortname = :shortname", $params); // $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 = 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); print '' . "\n"; for ($j = 1; $j < $i; $j ++) { $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) { $users_array[$w] = $tmp; $w ++; } for ($x = 0; $x < $w; $x ++) { print '' . "\n"; $sum_student ++; $name = $users_array[$x]->firstname . ' ' . $users_array[$x]->lastname; print ' ' . "\n"; $total_student = 0; $tentativas = 0; for ($j = 1; $j < $i; $j ++) { $sum_comment = 0; $student_submissions = $DB->get_record("iassign_submission", array('iassign_statementid' => $num[$j]->iassignid, 'userid' => $users_array[$x]->userid)); // data about student solution print ' ' . "\n"; } // for ($j=1; $j<$i; $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"; if ($student_submissions) { $last_solution_submission = " title=\"" . userdate($student_submissions->timemodified) . "\" "; // timemodified: time of the last student solution $tentativas = $student_submissions->experiment; // $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 = 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); if ($student_submissions_comment) foreach ($student_submissions_comment as $tmp) $sum_comment = $tmp; // informations to 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 . "&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 = 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); if ($verify_message) foreach ($verify_message as $tmp) $sum_verify_message = $tmp; if ($sum_verify_message > 0) $comment = iassign_icons::insert('comment_unread'); else $comment = iassign_icons::insert('comment_read'); if ($student_submissions->status == 3) { $sum_iassign_correct[$j] ++; $total_student ++; $feedback = iassign_icons::insert('correct'); } elseif ($student_submissions->status == 2) { $feedback = iassign_icons::insert('incorrect'); } elseif ($student_submissions->status == 1) { $feedback = iassign_icons::insert('post'); } elseif ($student_submissions->status == 0) { $feedback = iassign_icons::insert('not_post'); } if ($this->action != 'print') { print ''; if ($tentativas > 0) print '' . "\n"; else print '' . "\n"; print ''; print '' . "\n"; if ($sum_comment > 0 && $sum_verify_message > 0) print '' . "\n"; else if ($sum_comment > 0) print '' . "\n"; print '
' . $feedback . '  (' . $tentativas . ') ' . $feedback . '  
' . $comment . '  (' . $sum_verify_message . '/' . $sum_comment . ')
' . $comment . '  (' . $sum_comment . ')
' . "\n"; } if ($this->action == 'print') print $feedback . ' (' . $tentativas . ')
' . $comment . ' (' . $sum_comment . ') ' . "\n"; } // if ($student_submissions) else { // if ($student_submissions) // 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 = iassign_icons::insert('not_post'); if ($this->action == 'print') print $feedback . ' (0)
' . $comment . ' (' . $sum_comment . ') ' . "\n"; else { print ''; print '' . "\n"; print ''; print '' . "\n"; print ''; if ($sum_comment > 0) print '' . "\n"; else print ''; print '
' . $feedback . '  
  ' . $comment . '  (' . $sum_comment . ')  
'; } } // 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 '
' . 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"; 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 = array('shortname' => 'student'); $role = $DB->get_record_sql( "SELECT s.id, s.shortname FROM {role} s " . " WHERE s.shortname = :shortname", $params); // $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 = 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); $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) if ($this->action != 'printstats') { $title = get_string('graphic', 'iassign'); print $OUTPUT->header(); $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(); $link_return = " " . iassign_icons::insert('home') . get_string('activities_page', 'iassign') . ""; print ''; print '' . "\n"; 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() /// Display page of iAssign's activity 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')); print $OUTPUT->box_start(); print '' . "\n"; $url_help = new moodle_url('/mod/iassign/settings_ilm.php', array('action' => 'list', 'ilm_id' => 1)); $action_help = new popup_action('click', $url_help, 'iplookup', array('title' => get_string('help_ilm', 'iassign'), 'width' => 1200, 'height' => 700)); $link_help = $OUTPUT->action_link($url_help, iassign_icons::insert('help_ilm') . get_string('help_ilm', 'iassign'), $action_help); $link_add = "" . iassign_icons::insert('add_iassign') . get_string('add_iassign', 'iassign') . ""; $link_report = "" . iassign_icons::insert('view_report') . get_string('report', 'iassign') . ""; // TODO: esta consulta esta sendo feita novamente na linha +/- 2258 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 '' . "\n"; print '' . "\n"; } // if (has_capability('mod/iassign:viewiassignall', $this->context, $USER->id)) if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) { print '\n"; } // if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) //print '
' . "\n"; print $link_help; print '' . "\n"; print $link_report; print '' . "\n"; print $link_add; print "
' . "\n"; print '
'; if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) { if ($iassign_list) { print '' . "\n"; // $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; } // if ($USER->iassignEdit == 0) elseif ($USER->iassignEdit == 1) { $bottonEdit_message = get_string('turneditingoff', 'iassign'); $botton = 0; } // elseif ($USER->iassignEdit == 1) $editPost = "" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&botton=" . $botton; print "\n
\n"; print " \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; $iassign_array_test = array(); $i_test = 0; $iassign_array_example = array(); $i_example = 0; $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 function show_iassign ($title, $iassign_array, $i) { global $USER, $CFG, $DB, $OUTPUT, $PAGE; $id = $this->cm->id; print $OUTPUT->box_start(); print " \n"; print " \n"; print " "; if (has_capability('mod/iassign:viewiassignall', $this->context, $USER->id)) { print "

" . $title . "

"; for ($j = 0; $j < $i; $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 = 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); 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 = " " . iassign_icons::insert('comment_unread') . " ($sum_comment " . $comment_unread_message . ")"; } if ($j == $i - 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 . ""; else $links = " " . $iassign_array[$j]->name . ""; $links .= $comment_unread; if (has_capability('mod/iassign:editiassign', $this->context, $USER->id) && $USER->iassignEdit == 1) { //D echo "id=$id, iassign_current=$iassign_current, iassign_up=$iassign_up, iassign_down=$iassign_down
"; $str_aux = "&id=$id&iassign_current=$iassign_current&iassign_up=$iassign_up&iassign_down=$iassign_down"; $link_up = " " . iassign_icons::insert('move_up_iassign') . ""; if ($j==0) // first activity $link_down = " " . iassign_icons::insert('move_down_iassign') . ""; else $link_down = " " . iassign_icons::insert('move_down_iassign') . ""; $link_delete = " " . iassign_icons::insert('delete_iassign') . ""; $link_visible_hide = " " . iassign_icons::insert('hide_iassign') . ""; $link_visible_show = " " . iassign_icons::insert('show_iassign') . ""; $link_edit = " " . iassign_icons::insert('edit_iassign') . ""; $link_duplicate_activity = " " . iassign_icons::insert('duplicate_iassign') . "\n"; $link_move_activity = " " . iassign_icons::insert('move_activity') . "\n"; if (count($iassign_array) > 1) { if ($j == 0) $links .= $link_down; elseif ($j == $i - 1) $links .= $link_up; else $links .= $link_up . $link_down; } // if (count($iassign_array) > 1) $links .= $link_edit . $link_delete; if ($iassign_array[$j]->visible == 0) $links .= $link_visible_show; else $links .= $link_visible_hide; $links .= $link_duplicate_activity . $link_move_activity; } // if ($USER->iassignEdit == 1 && has_capability('mod/iassign:editiassign', $this->context, $USER->id)) print '

' . $links . '

' . "\n"; } } // if (has_capability('mod/iassign:viewiassignall', $this->context, $USER->id)) elseif (has_capability('mod/iassign:submitiassign', $this->context, $USER->id)) { // student print '' . "\n"; print "" . "\n"; print '
" . $title . "
' . "\n"; for ($j = 0; $j < $i; $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 . ""; $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 = 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); 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 = " " . iassign_icons::insert('comment_unread') . " ($sum_comment " . $comment_unread_message . ")"; } // $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 = iassign_icons::insert('correct'); elseif ($iassign_submission->status == 2) $icon_status = iassign_icons::insert('incorrect'); elseif ($iassign_submission->status == 1) $icon_status = iassign_icons::insert('post'); elseif ($iassign_submission->status == 0) $icon_status = iassign_icons::insert('not_post'); } // if ($iassign_array[$j]->show_answer==1) else { if ($iassign_submission->status == 0) $icon_status = iassign_icons::insert('not_post'); else $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 = iassign_icons::insert('not_post'); } // if ($iassign_array[$j]->type_iassign == 3) print '

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

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

' . $links . '

' . "\n"; } // if ($iassign_array[$j]->visible == 1) } } print $OUTPUT->box_end(); } // function show_iassign($title, $iassign_array, $i) /// 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 = "#a7bede"; // "#dce7ec" $colorEdit2 = "#b7ceee"; $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"; if ($even) { $text .= "»" . $user_data->firstname . " (" . userdate($tmp->timecreated) . ")
\n"; $even = 0; } else { $text .= "»" . $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)); 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 = 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); 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 //T $eventdata = new stdClass(); //T $eventdata->component = 'mod_iassign'; //your component name //T $eventdata->name = 'comment'; //this is the message name from messages.php //T $eventdata->userfrom = $USER; //T $eventdata->userto = $touser; //T $eventdata->subject = "Teste de Subject"; //T $eventdata->fullmessage = "Teste de Mensagem..."; //T $eventdata->fullmessageformat = FORMAT_PLAIN; //T $eventdata->fullmessagehtml = "Teste de Mensagem..."; //T $eventdata->smallmessage = "Teste de Mensagem"; //T $eventdata->notification = 1; //this is only set to 0 for personal messages between users //T // alteracao tulio faria //T //message_send($eventdata); //T } //MOOC 2016 - TODO NAO finalizado, iniciado pelo Tulio // 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)); $output = $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') . "

"; $output .= ''; $output .= '
'; $output .= "

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

"; $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 .= "
"; $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(); $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))) } } /// 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; //D echo "mover: this->id=" . $this->activity->id . ", target = $target
"; $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; } $newentry = new stdClass(); // define a new object (activity) to receive only 2 fields: 'id' and 'position' $newentry->id = $this->activity->id; // ID of the "source activity" $newentry->position = $final_position_source; //D echo "mover: id=" . $this->activity->id . ": de " . $this->activity->position . " -> " . $final_position_source . "
"; //D echo "mover: id=" . $iassign_target->id . ": de " . $iassign_target->position . " -> " . $final_position_target . "
"; exit; if (!$DB->update_record('iassign_statement', $newentry)) { // modify 'position' of the activity with 'id'=$target print_error('error_update_move_iassign', 'iassign'); } else { // first update performed successfully $newentry->id = $iassign_target->id; $newentry->position = $final_position_target; if (!$DB->update_record('iassign_statement', $newentry)) print_error('error_update_move_iassign', 'iassign'); } redirect($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->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 // @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)); // Faz a leitura do tipo de iLM e realiza a chamada à classe adequada $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); $files = $fs->get_area_files($context->id, 'mod_iassign', 'exercise', $iassign_statement_activity_item->file); 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 só deixar ver 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