nasatlx/settings_nasatlx_line.php

<?php

/**
 * Settings NASA-TLX/LInE manager. Reaches this code from administrative Moodle area, in setting 'plugins' of iAssign.
 * 1. action==export: see a table with all data from NASA-TLX/LInE (all questionnaires, each one with all answers)
 * 2. action==?
 * 
 * Release Notes:
 * - v 0.1 2019/03/04
 * 
 * @package   mod_nasatlx
 * @author    Leônidas de Oliveira Brandão
 * @version   v 0.1 2019/03/04
 * @category  
 * @copyright 2014 LInE - http://line.ime.usp.br
 * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */

global $CFG, $USER, $PAGE, $OUTPUT, $DB;

require_once("../../config.php");
require_once($CFG->dirroot . '/mod/nasatlx/locallib.php');
//DDD require_once($CFG->dirroot . '/mod/nasatlx/settings_form.php');

require_login();
if (isguestuser()) {
  die();
  }

//Parameters GET e POST (parâmetros GET e POST)
$nasa_id = optional_param('nasa_id', 0, PARAM_INT);
$action = optional_param('action', NULL, PARAM_TEXT);
$url = new moodle_url('/admin/settings.php', array('section' => 'modsettingnasatlx'));
//$from = optional_param('from', NULL, PARAM_TEXT);
//$status = optional_param('status', 0, PARAM_INT);

$contextuser = context_user::instance($USER->id);

$PAGE->set_url($url);
$PAGE->set_context($contextuser);
$PAGE->blocks->show_only_fake_blocks(); //
$PAGE->set_pagelayout('popup');

//D echo "settings_nasatlx_line.php: 5 action=$action<br/>\n";

if ($action == 'export') {
  // echo "Export not yet implemented<br/>\n";

  $title = get_string('export_all_nasatlx', 'nasatlx') . $OUTPUT->help_icon('export_all_nasatlx', 'nasatlx');
  $PAGE->set_title($title);
  // print($OUTPUT->notification(get_string('error_upload_ilm', 'nasatlx'), 'notifyproblem'));
  print($OUTPUT->header());
  print($OUTPUT->heading($title));
  print "  <style>\n " .
        " th.c { border: 1px solid #aaa; padding: 5px 10px; background-color: #6a9ada; } " .
        " th { border: 1px solid #aaa; padding: 5px 10px; background-color: #5a8aca; } " .
        " .td1l { border: 1px solid #aaa; padding: 5px 10px; background-color: #eeeefe; text-align:left} " .
        " .td1r { border: 1px solid #aaa; padding: 5px 10px; background-color: #eeeefe; text-align:right} " .
        " .td2l { border: 1px solid #aaa; padding: 5px 10px; background-color: #eeefee; text-align:left} " .
        " .td2r { border: 1px solid #aaa; padding: 5px 10px; background-color: #eeefee; text-align:right}\n" .
        "  </style>\n";

  // Tables: 'nasatlx' (id, course, name, intro, timecreated, timemodified), 'course' (id, fullname)
  //  SELECT m_nasatlx_resps.id, m_nasatlx_resps.cmid, m_nasatlx_resps.course, m_nasatlx_resps.user FROM m_course_modules, m_nasatlx, m_nasatlx_resps
  //  WHERE m_nasatlx_resps.cmid=m_course_modules.id  AND  m_course_modules.instance=m_nasatlx.id  AND  m_nasatlx.id = 1;
  $query1 = "SELECT n.*, c.id AS courseid, c.fullname FROM {nasatlx} n, {course} c WHERE c.id = n.course";
  //D echo "$query1<br/>";

  $nasatlx_quest = $DB->get_records_sql($query1); // *_nasatlx = id, course, name, intro, timecreated, timemodified
  // foreach ($nasatlx_quest as $nasa_item) echo " * " . $nasa_item->id . ", " . $nasa_item->course . ", " . $nasa_item->name . ", " . $nasa_item->intro . "<br/>";

  if (!$nasatlx_quest)
     print get_string('list_all_nasatlx_empty', 'nasatlx') . "<br/>\n";
  else { // There are NASA questionnaires

    // $nasatlx_quest = Array ( [1] => stdClass Object ( [id] => 1 [course] => 2 [name] => Title questionnaire NASA-TLX/LInE [intro] => Text... [introformat] => 1 [timecreated] => 1551989761 [timemodified] => 0 [courseid] => 2 [fullname] => Curso teste ) )
    //_ foreach ($nasatlx_quest as $item_nasa_quest) { // usually array[1]
    //_   print "  <table class='nicetable'>\n";
    //_   print "    <tr class='td1l'><th class='c' title='course id'>". $item_nasa_quest->courseid . "</th><th class='c' title='course fullname' colspan='24'>" . $item_nasa_quest->fullname . "</th></tr>\n";
    //_   print "    <tr class='td2l'><th class='c' title='nasatlx id'>". $item_nasa_quest->id . "</th><th class='c' title='nasatlx name' colspan='24'>" . $item_nasa_quest->name . "</th></tr>\n";
    //_   }
    //_ print "  </table >\n<br/>\n";

    print "  <table class='nicetable'>\n";      
    $count1 = 0;
    foreach ($nasatlx_quest as $item_nasa_quest) { // select all answer to the questionnaire $item_nasa_quest
      $nasa_id = $item_nasa_quest->id;
      print "    <tr class='td1l'><th class='c' title='course id'>". $item_nasa_quest->courseid . "</th><th class='c' title='course fullname' colspan='24'>" . $item_nasa_quest->fullname . "</th></tr>\n";
      print "    <tr class='td2l'><th class='c' title='nasatlx id'>". $item_nasa_quest->id . "</th><th class='c' title='nasatlx name' colspan='24'>" . $item_nasa_quest->name . "</th></tr>\n";
      // See tables: nasatlx_resps, nasatlx, course_modules, course
      // $query_str = "SELECT s.id, s.name, s.dependency FROM {iassign_statement} s WHERE s.iassignid = :iassignid ORDER BY s.position ASC";
      $query2 = "SELECT r.* FROM {nasatlx_resps} r, {course_modules} cm, {nasatlx} tlx WHERE " .
               "r.cmid=cm.id AND cm.instance=tlx.id AND tlx.id = " . $nasa_id;
      $nasatlx_answers = $DB->get_records_sql($query2);

      if (!$nasatlx_quest)
         print get_string('list_all_nasatlx_ans_empty', 'nasatlx') . "<br/r>\n";
      else {
        // *_nasatlx : id scale1 scale2 scale3 scale4 scale5 calc1 calc2 calc3 calc4 calc5 peso1 peso2 peso3 peso4 peso5 cmid course user created 
        // print "    <tr><th>". $item_nasa_quest->id . "</th><th colspan='20'>" . $item_nasa_quest->name . "</th></tr>\n";
        print "    <tr>\n";
        print "      <th>id</th><th>scale1</th><th>scale2</th><th>scale3</th><th>scale4</th><th>scale5</th><th>scale6</th>\n" .
              "      <th>calc1</th><th>calc2</th><th>calc3</th><th>calc4</th><th>calc5</th><th>calc6</th>\n";
        print "      <th>peso1</th><th>peso2</th><th>peso3</th><th>peso4</th><th>peso5</th><th>peso6</th>\n" .
              "      <th>pares</th><th>cmid</th><th>course</th><th>user</th><th>created</th></tr>\n";
        $count2 = 0;
        foreach ($nasatlx_answers as $answer) { // fields : id scale1 scale2 scale3 scale4 scale5 calc1 calc2 calc3 calc4 calc5 peso1 peso2 peso3 peso4 peso5 cmid course user created
          print "    <tr>\n";
          //D if ($count1==0) { echo "answer: "; print_r($answer); echo "<br/>"; }

          foreach ($answer as $nvalue) { // turn the object in array (or use 'foreach ($answer as $nkey=>$nvalue)')
            $count2++;
            if ($count1 % 2 == 0) {
              if ($count2 < 12) print "<td class='td1r'>" .  $nvalue . "</td>";
              else print "<td class='td1l'>" .  $nvalue . "</td>";
              }
            else {
              if ($count2 < 12) print "<td class='td2r'>" .  $nvalue . "</td>";
              else print "<td class='td2l'>" .  $nvalue . "</td>";
              }
            $count1++;
            } // foreach ($answer as $nvalue)

          print "    </tr>\n";
          } // foreach ($nasatlx_answers as $answer)
        // $nasatlx_answers = $DB->get_records_sql($query2);
        }

      } // foreach ($nasatlx_quest as $item_nasa_quest)

    print "  </table>\n";

    } // else if (!$nasatlx_quest)

  print "<br/><b>Total respostas: $count1<b><br/>\n";

  print($OUTPUT->footer());
  die;
  } // if ($action == 'export')
/*
else
if ($action == 'edit') { // Edit data of an NASA-TLX/LInE => processed in 'settings_form.php'
  print "Edit not yet implemented<br/>\n";
  //_ $title = get_string('edit_nasa_item', 'nasatlx') . $OUTPUT->help_icon('add_ilm_nasatlx', 'nasatlx');
  //_ $PAGE->set_title($title);
  //_ $param = ilm_settings::add_edit_copy_nasa_item($nasa_id, $action);
  //_ $description = $param->description_lang; // used to present the NASA-TLX/LInE description in 'settings_form.php' - {"en":"...","pt":"..."}
  //_ $mform = new mod_ilm_form($param); // in 'settings_form.php': class mod_ilm_form
  //_ $mform->set_data($param);
  //_ if ($mform->is_cancelled()) {
  //_   close_window();
  //_   die;
  //_   }
  //_ else if ($formdata = $mform->get_submitted_data()) {
  //_   ilm_settings::edit_nasa_item($formdata, $formdata->file);
  //_   close_window(0, true);
  //_   die;
  //_   }
  //_ print($OUTPUT->header());
  //_ print($OUTPUT->heading($title));
  //_ $mform->display();
  //_ print($OUTPUT->footer());
  //_ die;
  }
else

if ($action == 'copy') {
  print "Copy not yet implemented<br/>\n";
  //_ $title = get_string('copy_nasa_item', 'nasatlx') . $OUTPUT->help_icon('add_ilm_nasatlx', 'nasatlx');
  //_ $PAGE->set_title($title);
  //_ $param = ilm_settings::add_edit_copy_nasa_item($nasa_id, $action);

  //_ $mform = new mod_ilm_form();
  //_ $mform->set_data($param);
  //_ if ($mform->is_cancelled()) {
  //_   close_window();
  //_   die;
  //_   }
  //_ else if ($formdata = $mform->get_data()) {
  //_   ilm_settings::copy_new_version_ilm($formdata);
  //_   close_window(0, true);
  //_   die;
  //_   }

  //_ print($OUTPUT->header());
  //_ print($OUTPUT->heading($title));
  //_ $mform->display();
  //_ print($OUTPUT->footer());
  //_ die;
  }
else

if ($action == 'confirm_remove_nasa_item') {
  print "Remove not yet implemented<br/>\n";
  //_ $title = get_string('remove_nasa_item', 'nasatlx');
  //_ $PAGE->set_title($title);
  //_ $PAGE->set_pagelayout('base');
  //_ $remove_nasa_item = ilm_settings::confirm_remove_nasa_item($nasa_id, $ilm_parent);
  //_ print($OUTPUT->header());
  //_ print($OUTPUT->heading($title));
  //_ print($remove_nasa_item);
  //_ print($OUTPUT->footer());
  //_ die;
  //_ }
else

if ($action == 'remove') {
  print "Remove not yet implemented<br/>\n";
  //_ $title = get_string('remove_nasa_item', 'nasatlx');
  //_ $PAGE->set_title($title);
  //_ $PAGE->set_pagelayout('redirect');
  //_ $parent = ilm_settings::remove_nasa_item($nasa_id);
  //_ if ($parent == null) {
  //_   $title = get_string('remove_nasa_item', 'nasatlx');
  //_   $PAGE->set_title($title);
  //_   $PAGE->set_pagelayout('base');
  //_   $remove_nasa_item = ilm_settings::confirm_remove_nasa_item($nasa_id, $ilm_parent);
  //_   print($OUTPUT->header());
  //_   print($OUTPUT->heading($title));
  //_   print($OUTPUT->notification(get_string('error_folder_permission_denied', 'nasatlx'), 'notifyproblem'));
  //_   print($remove_nasa_item);
  //_   print($OUTPUT->footer());
  //_   die;
  //_   }
  //_ if ($parent == 0)
  //_   redirect(new moodle_url('/admin/settings.php?', array('section' => 'modsettingnasatlx', 'action' => 'view')));
  //_ else
  //_   redirect(new moodle_url('/admin/settings.php?', array('section' => 'modsettingnasatlx', 'action' => 'config', 'nasa_id' => $ilm_parent)));
  //_ }
else

if ($action == 'default') {
  //_ $title = get_string('default_ilm', 'nasatlx');
  //_ $PAGE->set_title($title);
  //_ $PAGE->set_pagelayout('redirect');
  //_ ilm_settings::default_ilm($nasa_id);
  //_ redirect(new moodle_url('/admin/settings.php?', array('section' => 'modsettingnasatlx', 'action' => 'config', 'nasa_id' => $ilm_parent)));
  }
else

if ($action == 'list') {
  //_ $title = get_string('list_ilm', 'nasatlx');
  //_ $PAGE->set_title($title);
  //_ $list_ilm = ilm_settings::list_ilm();
  //_ print($OUTPUT->header());
  //_ print($OUTPUT->heading($title . $OUTPUT->help_icon('list_ilm', 'nasatlx')));
  //_ print($list_ilm);
  //_ print($OUTPUT->footer());
  //_ die;
  }
else

if ($action == 'upgrade') {
  //_ $title = get_string('upgrade_ilm_title', 'nasatlx');
  //_ $PAGE->set_title($title);
  //_ $PAGE->set_pagelayout('redirect');

  //_ $ilm = ilm_settings::upgrade_ilm($nasa_id);
  //_ if ($ilm == 0)
  //_   redirect(new moodle_url('/admin/settings.php?', array('section' => 'modsettingnasatlx', 'action' => 'view')));
  //_ else
  //_   redirect(new moodle_url('/admin/settings.php?', array('section' => 'modsettingnasatlx', 'action' => 'config', 'nasa_id' => $ilm)));
  }
else

if ($action == 'view') {
  $nasatlx_ilm = $DB->get_record('nasatlx_ilm', array('id' => $nasa_id));
  $title = get_string('view_ilm', 'nasatlx') . $OUTPUT->help_icon('add_ilm_nasatlx', 'nasatlx');
  $PAGE->set_title($title . ': ' . $nasatlx_ilm->name . ' ' . $nasatlx_ilm->version);
  $view_ilm = ilm_settings::view_ilm($nasa_id, $from);
  print($OUTPUT->header());
  print($OUTPUT->heading($title . ': ' . $nasatlx_ilm->name . ' ' . $nasatlx_ilm->version));
  print($view_ilm);
  print($OUTPUT->footer());
  die;
  }
*/