viewreport.php

<?php
// This file is part of Moodle - http://moodle.org/
//
// Moodle is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// Moodle is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Moodle.  If not, see <http://www.gnu.org/licenses/>.

/**
 * Adaptive quiz view report script
 *
 * This module was created as a collaborative effort between Middlebury College
 * and Remote Learner.
 *
 * @package    mod_adaptivequiz
 * @copyright  2013 onwards Remote-Learner {@link http://www.remote-learner.ca/}
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */

require_once(dirname(__FILE__).'/../../config.php');
require_once($CFG->dirroot.'/lib/grouplib.php');
require_once($CFG->dirroot.'/mod/adaptivequiz/locallib.php');

$id = required_param('cmid', PARAM_INT);
$sortdir = optional_param('sortdir', 'ASC', PARAM_ALPHA);
$sort = optional_param('sort', 'lastname', PARAM_ALPHA);
$page = optional_param('page', 0, PARAM_INT);
$groupid = optional_param('group', 0, PARAM_INT);
$download = optional_param('download', '', PARAM_ALPHA);

if (!$cm = get_coursemodule_from_id('adaptivequiz', $id)) {
    print_error('invalidcoursemodule');
}
if (!$course = $DB->get_record('course', array('id' => $cm->course))) {
    print_error("coursemisconf");
}

require_login($course, true, $cm);
$context = context_module::instance($cm->id);

require_capability('mod/adaptivequiz:viewreport', $context);

$adaptivequiz  = $DB->get_record('adaptivequiz', array('id' => $cm->instance), '*');
$PAGE->set_url('/mod/adaptivequiz/viewreport.php', array('cmid' => $cm->id));
$PAGE->set_title(format_string($adaptivequiz->name));
$PAGE->set_heading(format_string($course->fullname));
$PAGE->set_context($context);

if ($download == 'csv') {
    $output = $PAGE->get_renderer('mod_adaptivequiz', 'csv');
} else {
    $output = $PAGE->get_renderer('mod_adaptivequiz');
}

/* Initialized parameter array for sql query */
$param = array(
    'attemptstate1' => ADAPTIVEQUIZ_ATTEMPT_COMPLETED,
    'attemptstate2' => ADAPTIVEQUIZ_ATTEMPT_COMPLETED,
    'attemptstate3' => ADAPTIVEQUIZ_ATTEMPT_COMPLETED,
    'attemptstate4' => ADAPTIVEQUIZ_ATTEMPT_COMPLETED,
    'instance' => $cm->instance);

/* Constructo order by clause */
$orderby = adaptivequiz_construct_view_report_orderby($sort, $sortdir);

/* Output the groups selector */
$groupsel = $output->print_groups_selector($cm, $course, $context, $USER->id);

$groupjoin = '';
$groupwhere = '';

/* Determine the currently active group id */
if (empty($groupid)) {
    $allowedgroups = groups_get_activity_allowed_groups($cm, $USER->id);
    $groupid = groups_get_activity_group($cm, true, $allowedgroups);
}

/* Create the group sql join and where clause */
if (0 != $groupid) {
    $groupjoin = ' INNER JOIN {groups_members} gm ON u.id = gm.userid ';
    $groupwhere = ' AND gm.groupid = :groupid ';
    $param['groupid'] = $groupid;
}

/* Retreive a list of attempts made by each user, displaying the sum of attempts and the highest score for each user */
$sql = "SELECT u.id, u.firstname, u.lastname, u.email, a.highestlevel, a.lowestlevel,
               (SELECT COUNT(*)
                  FROM {adaptivequiz_attempt} caa
                 WHERE caa.userid = u.id
                       AND caa.instance = aa.instance
                ) AS attempts,
                (SELECT maa.measure
                  FROM {adaptivequiz_attempt} maa
                 WHERE maa.instance = a.id
                       AND maa.userid = u.id
                       AND maa.attemptstate = :attemptstate1
                       AND maa.standarderror > 0.0
              ORDER BY measure DESC
                 LIMIT 1) AS measure,
               (SELECT saa.standarderror
                  FROM {adaptivequiz_attempt} saa
                 WHERE saa.instance = a.id
                       AND saa.userid = u.id
                       AND saa.attemptstate = :attemptstate2
                       AND saa.standarderror > 0.0
              ORDER BY measure DESC
                 LIMIT 1) AS stderror,
               (SELECT taa.timemodified
                  FROM {adaptivequiz_attempt} taa
                 WHERE taa.instance = a.id
                       AND taa.userid = u.id
                       AND taa.attemptstate = :attemptstate3
                       AND taa.standarderror > 0.0
              ORDER BY measure DESC
                 LIMIT 1) AS timemodified,
               (SELECT iaa.uniqueid
                  FROM {adaptivequiz_attempt} iaa
                 WHERE iaa.instance = a.id
                       AND iaa.userid = u.id
                       AND iaa.attemptstate = :attemptstate4
                       AND iaa.standarderror > 0.0
              ORDER BY measure DESC
                 LIMIT 1) AS uniqueid
          FROM {adaptivequiz_attempt} aa
          JOIN {user} u ON u.id = aa.userid
          JOIN {adaptivequiz} a ON a.id = aa.instance
        $groupjoin
         WHERE aa.instance = :instance
        $groupwhere
      GROUP BY u.id, aa.instance, a.id, a.highestlevel, a.lowestlevel
        $orderby";
$startfrom = $page * ADAPTIVEQUIZ_REC_PER_PAGE;

if ($download) {
    $records = $DB->get_records_sql($sql, $param);
} else {
    $records = $DB->get_records_sql($sql, $param, $startfrom, ADAPTIVEQUIZ_REC_PER_PAGE);
}
/* Count the total number of records returned */
$recordscount = $DB->get_records_sql($sql, $param);

/* Set selected groupid */
$output->groupid = $groupid;

/* print header information */
$header = $output->print_header();
/* Output attempts table */
$reporttable = $output->print_report_table($records, $cm, $sort, $sortdir);
/* Output paging bar */
$pagingbar = $output->print_paging_bar(count($recordscount), $page, ADAPTIVEQUIZ_REC_PER_PAGE);
/* Output footer information */
$footer = $output->print_footer();

echo $header;
echo $groupsel;
echo $pagingbar;
echo $reporttable;
echo $pagingbar;
echo $footer;