navbar->add(get_string('showanswers', 'game'));
    $action  = optional_param('action', "", PARAM_ALPHANUM);  // action
    if( $action == 'delstats')
        $DB->delete_records('game_repetitions', array('gameid' => $game->id, 'userid' => $USER->id));
    if( $action == 'computestats')
        game_compute_repetitions($game);
    echo ''.get_string('repetitions', 'game').':   ';
    echo get_string('user').': ';
    game_showusers($game);
    echo "  wwwroot}/mod/game/showanswers.php?q=$q&action=delstats\">".get_string('clearrepetitions','game').'';
    echo "   wwwroot}/mod/game/showanswers.php?q=$q&action=computestats\">".get_string('computerepetitions','game').'';
    echo '
';
    $existsbook = ($DB->get_record( 'modules', array( 'name' => 'book'), 'id,id'));
    game_showanswers( $game, $existsbook, $context);
    echo $OUTPUT->footer();
function game_compute_repetitions($game){
    global $DB, $USER;
    $DB->delete_records('game_repetitions', array('gameid' => $game->id,'userid' => $USER->id));
    $sql = "INSERT INTO {game_repetitions}( gameid,userid,questionid,glossaryentryid,repetitions) ".
           "SELECT $game->id,$USER->id,questionid,glossaryentryid,COUNT(*) ".
           "FROM {game_queries} WHERE gameid=$game->id AND userid=$USER->id GROUP BY questionid,glossaryentryid";
    if( !$DB->execute( $sql))
        print_error('Problem on computing statistics for repetitions');
}
function game_showusers($game)
{
    global $CFG, $USER;
    $users = array();
    $context = get_context_instance(CONTEXT_COURSE, $game->course);
    if ($courseusers = get_enrolled_users($context)) {
        foreach ($courseusers as $courseuser) {
            $users[$courseuser->id] = fullname($courseuser, has_capability('moodle/site:viewfullnames', $context));
        }
    }
    if ($guest = guest_user()) {
        $users[$guest->id] = fullname($guest);
    }
    ?>
        
    id,PARAM_INT);
    $output = '' . "\n";
}
function game_showanswers( $game, $existsbook, $context)
{
    if( $game->gamekind == 'bookquiz' and $existsbook){
        game_showanswers_bookquiz( $game);
        return;
    }
    
    switch( $game->sourcemodule){
    case 'question':
        game_showanswers_question( $game, $context);
        break;
    case 'glossary':
        game_showanswers_glossary( $game);
        break;
    case 'quiz':
        game_showanswers_quiz( $game, $context);
        break;
    }
}
function game_showanswers_appendselect( $game)
{
    switch( $game->gamekind){
    case 'hangman':
    case 'cross':
    case 'crypto':
        return " AND qtype='shortanswer'";
    case 'millionaire':
        return " AND qtype = 'multichoice'";
    case 'sudoku':
    case 'bookquiz':
    case 'snakes':
        return " AND qtype in ('shortanswer', 'truefalse', 'multichoice')";
    }
    
    return '';
}
function game_showanswers_question( $game, $context)
{
    global $DB;
    if( $game->gamekind != 'bookquiz'){
        $select = ' category='.$game->questioncategoryid;
        if( $game->subcategories){
            $cats = question_categorylist( $game->questioncategoryid);
            if( strpos( $cats, ',') > 0){
                $select = ' category in ('.$cats.')';
            }
        }
    }else
    {
        $context2 = get_context_instance(50, $COURSE->id);
        $select = " contextid in ($context2->id)";
        $select2 = '';
        if( $recs = $DB->get_records_select( 'question_categories', $select, null, 'id,id')){
            foreach( $recs as $rec){
                $select2 .= ','.$rec->id;
            }
        }
        $select = ' AND category IN ('.substr( $select2, 1).')';
    }
    
    $select .= ' AND hidden = 0 ';
    $select .= game_showanswers_appendselect( $game);
    
    $showcategories = ($game->gamekind == 'bookquiz');
    $order = ($showcategories ? 'category,questiontext' : 'questiontext');
    game_showanswers_question_select( $game, '{question} q', $select, '*', $order, $showcategories, $game->course, $context);
}
function game_showanswers_quiz( $game, $context)
{
    global $CFG;
	$select = "quiz='$game->quizid' ".
			  ' AND qqi.question=q.id'.
			  ' AND q.hidden=0'.
              game_showanswers_appendselect( $game);
	$table = '{question} q,{quiz_question_instances} qqi';
	
    game_showanswers_question_select( $game, $table, $select, 'q.*', 'category,questiontext', false, $game->course, $context);
}
function game_showanswers_question_select( $game, $table, $select, $fields, $order, $showcategoryname, $courseid, $context)
{
    global $CFG, $DB, $OUTPUT;
    $sql = "SELECT $fields FROM $table WHERE $select ORDER BY $order";
    if( ($questions = $DB->get_records_sql( $sql)) === false){
        return;
    }
    $table .= ",{game_repetitions} gr";
    $select .= " AND gr.questionid=q.id AND gr.glossaryentryid=0 AND gr.gameid=".$game->id;
    $userid = optional_param('userid',0,PARAM_INT);
    if( $userid)
        $select .= " AND gr.userid=$userid";
    $sql = "SELECT q.id as id,SUM(repetitions) as c FROM {$table} WHERE $select GROUP BY q.id";
    $reps = $DB->get_records_sql( $sql);
	
	$categorynames = array();
	if( $showcategoryname){
	    $select = '';
    	$recs = $DB->get_records( 'question_categories', null, '', '*', 0, 1);
	    foreach( $recs as $rec){
	    	if( array_key_exists( 'course', $rec)){
	    		$select = "course=$courseid";
	    	}else{
	    		$context = get_context_instance(50, $courseid);
	        	$select = " contextid in ($context->id)";
	    	}
	    	break;
    	}
		if( ($categories = $DB->get_records_select( 'question_categories', $select, null, '', 'id,name'))){
			foreach( $categories as $rec){
				$categorynames[ $rec->id] = $rec->name;
			}
		}
	}
    
    echo '
| '; if( $showcategoryname){ echo ' | '.get_string( 'categories', 'quiz').''; } echo ' | '.get_string( 'questions', 'quiz').''; echo ' | '.get_string( 'answers', 'quiz').''; echo ' | '.get_string( 'feedbacks', 'game').''; if( $reps) echo ' | '.get_string( 'repetitions', 'game').''; echo " | ||||
| '.(++$line); echo ''; if( $showcategoryname){ echo ' | '; if( array_key_exists( $question->category, $categorynames)){ echo $categorynames[ $question->category]; }else{ echo ' '; } echo ''; } echo ' | ';
        echo "wwwroot}/question/question.php?inpopup=1&id=$question->id&courseid=$courseid\" target=\"_blank\"> | $rec->answer"; if( $rec->feedback == '') $rec->feedback = ' '; echo " | $rec->feedback"; break; case 'multichoice': case 'truefalse': $recs = $DB->get_records( 'question_answers', array( 'question' => $question->id)); $feedback = ''; echo ' | ';
            $i = 0;
            foreach( $recs as $rec){
                if( $i++ > 0)
                    echo ' ';
	        if( $feedback == '')
	            $feedback = ' ';
	        echo "'; if( $rec->fraction == 1){ echo " $rec->answer"; if( $rec->feedback == '') $feedback .= ' '; else $feedback .= "$rec->feedback "; }else { echo " $rec->answer"; if( $rec->feedback == '') $feedback .= ' '; else $feedback .= " "; } } echo ' | $feedback"; break; default: echo " | $question->qtype"; break; } //Show repetitions if( $reps){ if( array_key_exists( $question->id, $reps)){ $rep = $reps[ $question->id]; echo ' | '; } echo " | 
| '; echo ' | '.get_string( 'questions', 'quiz').''; echo ' | '.get_string( 'answers', 'quiz').''; if( $reps != false) echo ' | '.get_string( 'repetitions', 'game').''; echo " | |
| '.(++$line); echo ''; echo ' | '.$question->definition.''; echo ' | '.$question->concept.''; if( $reps != false){ if( array_key_exists( $question->id, $reps)) { $rep = $reps[ $question->id]; echo ' | '; } echo " |