<?php // $Id: index.php 68 2009-07-31 18:23:01Z dlandau $

    require_once('../../../config.php');
    require_once($CFG->dirroot.'/question/upgrade.php');
    require_once($CFG->libdir.'/adminlib.php');

    admin_externalpage_setup('reportquestion');
    admin_externalpage_print_header();

    print_heading(get_string('adminreport', 'question'));

    $probstr = '';
    $contextupgradeversion = 2007081000;
    if ($CFG->version < $contextupgradeversion){
        ///cwrqpfs issue
        $probstr = print_heading(get_string('cwrqpfs', 'question'), '', 3, 'main', true);

        if ($updates = question_cwqpfs_to_update()){

            $probstr .=get_string('cwrqpfsinfo', 'question');
            $probstr .= '<ul>';
            $catlist = join(array_keys($updates), ',');
            //get info about cateogries and no of questions used outside category's course
            $categories = get_records_sql('SELECT qc.*, c.fullname as coursename FROM '.$CFG->prefix.'question_categories as qc, '
                        .$CFG->prefix.'course as c WHERE qc.course = c.id AND qc.id IN ('.$catlist.')');
            foreach ($updates as $id => $publish){
                $categories[$id]->caturl = "$CFG->wwwroot/question/category.php?sesskey=".sesskey().
                            "&amp;edit=$id&amp;courseid=".$categories[$id]->course;
                if ($categories[$id]->publish){
                    $categories[$id]->changefrom = get_string('published', 'question');
                    $categories[$id]->changeto = get_string('unpublished', 'question');
                } else {
                    $categories[$id]->changefrom = get_string('unpublished', 'question');
                    $categories[$id]->changeto = get_string('published', 'question');
                }
                $probstr .= '<li>'.get_string('changepublishstatuscat', 'question', $categories[$id]);
                if ($questions = get_records_sql('SELECT q.*, qui.id as quizid, qui.name as quizname, cm.id as cmid, '
                               .'qui.course, c.fullname as coursename FROM '.$CFG->prefix.'question q, '
                               .$CFG->prefix.'quiz_question_instances qqi, '
                               .$CFG->prefix.'quiz qui, '
                               .$CFG->prefix.'course_modules cm, '
                               .$CFG->prefix.'modules m, '
                               .$CFG->prefix.'course c '
                            .'WHERE (q.category = '.$id.' AND qqi.question = q.id '
                            .'AND qqi.quiz = qui.id '
                            .'AND qui.course = c.id '
                            .'AND cm.instance = qui.id '
                            .'AND cm.module = m.id '
                            .'AND m.name = \'quiz\''
                            .'AND ('.$categories[$id]->course.' <> qui.course)) ORDER BY qui.id ASC')){

                    $probstr .= '<ul>';
                    foreach ($questions as $question){
                        $question->quizurl = "$CFG->wwwroot/mod/quiz/edit.php?cmid=".$question->cmid;
                        $question->qurl = "$CFG->wwwroot/question/question.php?cmid={$question->cmid}&amp;id={$question->id}&amp;returnurl=".urlencode($FULLME);
                        $probstr .= '<li>'.get_string('questionaffected', 'question', $question).'</li>';
                    }
                    $probstr .= '</ul>';
                }
                $probstr .= '</li>';
            }
            $probstr .= '</ul>';
        } else {
            $probstr .=('<p>'.get_string('cwrqpfsnoprob', 'question').'</p>');
        }
    }
    if ($probstr) {
        print_box($probstr);
    } else {
        print_box(get_string('noprobs', 'question'), 'boxwidthnarrow boxaligncenter generalbox');
    }
    admin_externalpage_print_footer();
?>
