. /** * For a given question type, list the number of * * @package report * @subpackage questioninstances * @copyright 2008 Tim Hunt * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later */ require(dirname(__FILE__).'/../../config.php'); require_once($CFG->libdir.'/adminlib.php'); require_once($CFG->libdir.'/questionlib.php'); // Get URL parameters. $requestedqtype = optional_param('qtype', '', PARAM_SAFEDIR); // Print the header & check permissions. admin_externalpage_setup('reportquestioninstances', '', null, '', array('pagelayout'=>'report')); echo $OUTPUT->header(); // Log. add_to_log(SITEID, "admin", "report questioninstances", "report/questioninstances/index.php?qtype=$requestedqtype", $requestedqtype); // Prepare the list of capabilities to choose from $qtypes = question_bank::get_all_qtypes(); $qtypechoices = array(); foreach ($qtypes as $qtype) { $qtypechoices[$qtype->name()] = $qtype->local_name(); } // Print the settings form. echo $OUTPUT->box_start('generalbox boxwidthwide boxaligncenter centerpara'); echo '
'; echo $OUTPUT->heading(get_string('reportsettings', 'report_questioninstances')); echo '

', get_string('intro', 'report_questioninstances') , '

'; echo '

'; echo html_writer::select($qtypechoices, 'qtype', $requestedqtype, array('_all_'=>get_string('all'))); echo '

'; echo '

'; echo '
'; echo $OUTPUT->box_end(); // If we have a qtype to report on, generate the report. if ($requestedqtype) { // Work out the bits needed for the SQL WHERE clauses. if ($requestedqtype == 'missingtype') { $title = get_string('reportformissingqtypes', 'report_questioninstances'); $othertypes = array_keys($qtypes); $key = array_search('missingtype', $othertypes); unset($othertypes[$key]); list($sqlqtypetest, $params) = $DB->get_in_or_equal($othertypes, SQL_PARAMS_QM, '', false); $sqlqtypetest = 'WHERE qtype ' . $sqlqtypetest; } else if ($requestedqtype == '_all_') { $title = get_string('reportforallqtypes', 'report_questioninstances'); $sqlqtypetest = ''; $params = array(); } else { $title = get_string('reportforqtype', 'report_questioninstances', question_bank::get_qtype($requestedqtype)->local_name()); $sqlqtypetest = 'WHERE qtype = ?'; $params = array($requestedqtype); } // Get the question counts, and all the context information, for each // context. That is, rows of these results can be used as $context objects. $ctxpreload = context_helper::get_preload_record_columns_sql('con'); $ctxgroupby = implode(',', array_keys(context_helper::get_preload_record_columns('con'))); $counts = $DB->get_records_sql(" SELECT qc.contextid, count(1) as numquestions, sum(hidden) as numhidden, $ctxpreload FROM {question} q JOIN {question_categories} qc ON q.category = qc.id JOIN {context} con ON con.id = qc.contextid $sqlqtypetest GROUP BY qc.contextid, $ctxgroupby ORDER BY numquestions DESC, numhidden ASC, con.contextlevel ASC, con.id ASC", $params); // Print the report heading. echo $OUTPUT->heading($title); // Initialise the table. $table = new html_table(); $table->head = array( get_string('context', 'role'), get_string('totalquestions', 'report_questioninstances'), get_string('visiblequestions', 'report_questioninstances'), get_string('hiddenquestions', 'report_questioninstances')); $table->data = array(); $table->class = ''; $table->id = ''; // Add the data for each row. $totalquestions = 0; $totalvisible = 0; $totalhidden = 0; foreach ($counts as $count) { // Work out a link for editing questions in this context. context_helper::preload_from_record($count); $context = context::instance_by_id($count->contextid); $contextname = $context->get_context_name(); $url = question_edit_url($context); if ($url) { $contextname = '' . $contextname . ''; } // Put the scores in the table. $numvisible = $count->numquestions - $count->numhidden; $table->data[] = array( $contextname, $count->numquestions, $numvisible, $count->numhidden); // Update the totals. $totalquestions += $count->numquestions; $totalvisible += $numvisible; $totalhidden += $count->numhidden; } // Add a totals row. $table->data[] = array( '' . get_string('total') . '', $totalquestions, $totalvisible, $totalhidden); // Print it. echo html_writer::table($table); } // Footer. echo $OUTPUT->footer();