bdaloukas
8 years ago
9 changed files with 308 additions and 118 deletions
@ -0,0 +1,280 @@ |
|||
<?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/>. |
|||
|
|||
/** |
|||
* Basic library. |
|||
* |
|||
* @package mod_game |
|||
* @copyright 2007 Vasilis Daloukas |
|||
* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later |
|||
*/ |
|||
|
|||
defined('MOODLE_INTERNAL') || die(); |
|||
|
|||
/** |
|||
* Checks for common problems |
|||
* |
|||
* @param stdClass $context |
|||
* @param stdClass $game |
|||
*/ |
|||
function game_check_common_problems($context, $game) { |
|||
if (!has_capability('mod/game:viewreports', $context)) { |
|||
return ''; |
|||
} |
|||
|
|||
$warnings = array(); |
|||
|
|||
switch( $game->gamekind) { |
|||
case 'millionaire': |
|||
game_check_common_problems_multichoice( $game, $warnings); |
|||
break; |
|||
case 'hangman': |
|||
case 'cross': |
|||
case 'cryptex': |
|||
game_check_common_problems_shortanswer( $game, $warnings); |
|||
break; |
|||
} |
|||
|
|||
if (count( $warnings) == 0) { |
|||
return ''; |
|||
} |
|||
|
|||
$s = '<ul><b>'.get_string( 'common_problems', 'game').'</b>'; |
|||
foreach ($warnings as $line) { |
|||
$s .= '<li>'.$line.'</li>'; |
|||
} |
|||
|
|||
return $s.'</ul>'; |
|||
} |
|||
|
|||
/** |
|||
* Checks for common problems on multichoice answers |
|||
* |
|||
* @param stdClass $game |
|||
* @param string $warnings |
|||
*/ |
|||
function game_check_common_problems_multichoice($game, &$warnings) { |
|||
|
|||
if ($game->sourcemodule == 'question') { |
|||
game_check_common_problems_multichoice_question($game, $warnings); |
|||
} else if ( $game->sourcemodule == 'quiz') { |
|||
game_check_common_problems_multichoice_quiz($game, $warnings); |
|||
} |
|||
} |
|||
|
|||
/** |
|||
* Checks for common problems on multichoice answers (questions) |
|||
* |
|||
* @param stdClass $game |
|||
* @param string $warnings |
|||
*/ |
|||
function game_check_common_problems_multichoice_question($game, &$warnings) { |
|||
global $CFG, $DB; |
|||
|
|||
if ($game->questioncategoryid == 0) { |
|||
$warnings[] = get_string( 'must_select_questioncategory', 'game'); |
|||
return; |
|||
} |
|||
|
|||
// Include subcategories. |
|||
$select = 'category='.$game->questioncategoryid; |
|||
if ($game->subcategories) { |
|||
$cats = question_categorylist( $game->questioncategoryid); |
|||
if (count( $cats)) { |
|||
$select = 'q.category in ('.implode(',', $cats).')'; |
|||
} |
|||
} |
|||
|
|||
if (game_get_moodle_version() < '02.06') { |
|||
$table = "{$CFG->prefix}question q, {$CFG->prefix}question_multichoice qmo"; |
|||
$select .= " AND qtype='multichoice' AND qmo.single <> 1 AND qmo.question=q.id"; |
|||
} else { |
|||
$table = "{$CFG->prefix}question q, {$CFG->prefix}qtype_multichoice_options qmo"; |
|||
$select .= " AND qtype='multichoice' AND qmo.single <> 1 AND qmo.questionid=q.id"; |
|||
} |
|||
|
|||
$sql = "SELECT COUNT(*) as c FROM $table WHERE $select"; |
|||
$rec = $DB->get_record_sql( $sql); |
|||
if ($rec->c != 0) { |
|||
$warnings[] = get_string( 'millionaire_also_multichoice', 'game').': '.$rec->c; |
|||
} |
|||
} |
|||
|
|||
/** |
|||
* Checks for common problems on multichoice answers (quiz) |
|||
* |
|||
* @param stdClass $game |
|||
* @param string $warnings |
|||
*/ |
|||
function game_check_common_problems_multichoice_quiz($game, &$warnings) { |
|||
global $CFG, $DB; |
|||
|
|||
if (game_get_moodle_version() < '02.06') { |
|||
$select = "qtype='multichoice' AND quiz='$game->quizid' AND qmo.question=q.id". |
|||
" AND qqi.question=q.id"; |
|||
$table = "{quiz_question_instances} qqi,{question} q, {question_multichoice} qmo"; |
|||
} else if (game_get_moodle_version() < '02.07') { |
|||
$select = "qtype='multichoice' AND quiz='$game->quizid' AND qmo.questionid=q.id". |
|||
" AND qqi.question=q.id"; |
|||
$table = "{quiz_question_instances} qqi,{question} q, {qtype_multichoice_options} qmo"; |
|||
} else { |
|||
$select = "qtype='multichoice' AND qs.quizid='$game->quizid' AND qmo.questionid=q.id". |
|||
" AND qs.questionid=q.id"; |
|||
$table = "{quiz_slots} qs,{question} q, {qtype_multichoice_options} qmo"; |
|||
} |
|||
|
|||
$sql = "SELECT COUNT(*) as c FROM $table WHERE $select"; |
|||
$rec = $DB->get_record_sql( $sql); |
|||
if ($rec->c != 0) { |
|||
$warnings[] = get_string( 'millionaire_also_multichoice', 'game').': '.$rec->c; |
|||
} |
|||
} |
|||
|
|||
/** |
|||
* Checks for common problems on short answers |
|||
* |
|||
* @param stdClass $game |
|||
* @param string $warnings |
|||
*/ |
|||
function game_check_common_problems_shortanswer($game, &$warnings) { |
|||
if ($game->sourcemodule == 'question') { |
|||
game_check_common_problems_shortanswer_question($game, $warnings); |
|||
} else if ( $game->sourcemodule == 'glossary') { |
|||
game_check_common_problems_shortanswer_glossary($game, $warnings); |
|||
} |
|||
} |
|||
|
|||
/** |
|||
* Checks for common problems on short answers (glossaries) |
|||
* |
|||
* @param stdClass $game |
|||
* @param string $warnings |
|||
*/ |
|||
function game_check_common_problems_shortanswer_glossary($game, &$warnings) { |
|||
|
|||
global $CFG, $DB; |
|||
|
|||
$sql = "SELECT id,concept FROM {$CFG->prefix}glossary_entries WHERE glossaryid={$game->glossaryid}"; |
|||
$recs = $DB->get_records_sql( $sql); |
|||
$a = array(); |
|||
foreach ($recs as $rec) { |
|||
$a[] = $rec->concept; |
|||
} |
|||
|
|||
game_check_common_problems_shortanswer_allowspaces( $game, $warnings, $a); |
|||
if ($game->gamekind == 'hangman') { |
|||
game_check_common_problems_shortanswer_hangman( $game, $warnings, $a); |
|||
} |
|||
} |
|||
|
|||
/** |
|||
* Checks for common problems on short answers (questions) |
|||
* |
|||
* @param stdClass $game |
|||
* @param string $warnings |
|||
*/ |
|||
function game_check_common_problems_shortanswer_question($game, &$warnings) { |
|||
|
|||
global $CFG, $DB; |
|||
|
|||
if ($game->questioncategoryid == 0) { |
|||
$warnings[] = get_string( 'must_select_questioncategory', 'game'); |
|||
return; |
|||
} |
|||
|
|||
$select = 'category='.$game->questioncategoryid; |
|||
if ($game->subcategories) { |
|||
$cats = question_categorylist( $game->questioncategoryid); |
|||
if (count( $cats) > 0) { |
|||
$s = implode( ',', $cats); |
|||
$select = 'category in ('.$s.')'; |
|||
} |
|||
} |
|||
$select .= " AND qtype='shortanswer'"; |
|||
|
|||
$sql = "SELECT id FROM {$CFG->prefix}question WHERE $select"; |
|||
if (($recs = $DB->get_records_sql( $sql)) === false) { |
|||
return; |
|||
} |
|||
$a = array(); |
|||
foreach ($recs as $rec) { |
|||
// Maybe there are more answers to one question. I use as correct the one with bigger fraction. |
|||
$sql = "SELECT DISTINCT answer FROM {$CFG->prefix}question_answers WHERE question={$rec->id} ORDER BY fraction DESC"; |
|||
if (($rec2 = $DB->get_record_sql( $sql, null, 0, 1)) != false) { |
|||
$a[] = $rec2->answer; |
|||
} |
|||
} |
|||
game_check_common_problems_shortanswer_allowspaces( $game, $warnings, $a); |
|||
if ($game->gamekind == 'hangman') { |
|||
game_check_common_problems_shortanswer_hangman( $game, $warnings, $a); |
|||
} |
|||
} |
|||
|
|||
/** |
|||
* Checks for common problems (check if are answers with spaces and the game doesn't allow spaces) |
|||
* |
|||
* @param stdClass $game |
|||
* @param string $warnings |
|||
* @param array $a the words contained |
|||
*/ |
|||
function game_check_common_problems_shortanswer_allowspaces( $game, &$warnings, $a) { |
|||
if ($game->param7 != 0) { |
|||
// Allow spaces, so no check is needed. |
|||
return; |
|||
} |
|||
|
|||
$ret = array(); |
|||
foreach ($a as $word) { |
|||
if (strpos( $word, ' ') === false) { |
|||
continue; |
|||
} |
|||
$ret[] = $word; |
|||
} |
|||
|
|||
if (count( $ret) != 0) { |
|||
$warnings[] = get_string( 'common_problems_allowspaces', 'game').': '.count($ret).' ('.implode( ', ', $ret); |
|||
} |
|||
} |
|||
|
|||
/** |
|||
* Checks for common problems (check if are answers with spaces and the game doesn't allow spaces) |
|||
* |
|||
* @param stdClass $game |
|||
* @param string $warnings |
|||
* @param array $a the words contained |
|||
*/ |
|||
function game_check_common_problems_shortanswer_hangman( $game, &$warnings, $a) { |
|||
$ret = array(); |
|||
foreach ($a as $word) { |
|||
|
|||
$word = game_upper( str_replace( ' ', '', $word), $game->language); |
|||
if ($game->language == '') { |
|||
$game->language = game_detectlanguage( $word); |
|||
$word = game_upper( $word, $game->language); |
|||
} |
|||
$allletters = game_getallletters( $word, $game->language, $game->userlanguage); |
|||
|
|||
if ($allletters != '') { |
|||
continue; |
|||
} |
|||
|
|||
$ret[] = $word; |
|||
} |
|||
|
|||
if (count( $ret) != 0) { |
|||
$warnings[] = get_string( 'common_problems_shortanswer_hangman', 'game').': '.count($ret).' ('.implode( ', ', $ret); |
|||
} |
|||
} |
|||
Loading…
Reference in new issue