|
Moodle
2.2.1
http://www.collinsharper.com
|
00001 <?php 00002 // This file is part of Moodle - http://moodle.org/ 00003 // 00004 // Moodle is free software: you can redistribute it and/or modify 00005 // it under the terms of the GNU General Public License as published by 00006 // the Free Software Foundation, either version 3 of the License, or 00007 // (at your option) any later version. 00008 // 00009 // Moodle is distributed in the hope that it will be useful, 00010 // but WITHOUT ANY WARRANTY; without even the implied warranty of 00011 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00012 // GNU General Public License for more details. 00013 // 00014 // You should have received a copy of the GNU General Public License 00015 // along with Moodle. If not, see <http://www.gnu.org/licenses/>. 00016 00028 require_once(dirname(__FILE__) . '/../../../config.php'); 00029 require_once(dirname(__FILE__) . '/locallib.php'); 00030 require_once($CFG->libdir . '/adminlib.php'); 00031 00032 require_login(); 00033 require_capability('moodle/site:config', get_context_instance(CONTEXT_SYSTEM)); 00034 tool_qeupgradehelper_require_not_upgraded(); 00035 00036 admin_externalpage_setup('qeupgradehelper', '', array(), tool_qeupgradehelper_url('')); 00037 $PAGE->navbar->add(get_string('listpreupgrade', 'tool_qeupgradehelper')); 00038 00039 $renderer = $PAGE->get_renderer('tool_qeupgradehelper'); 00040 00041 $quizzes = new tool_qeupgradehelper_pre_upgrade_quiz_list(); 00042 00043 // Look to see if the admin has set things up to only upgrade certain attempts. 00044 $partialupgradefile = $CFG->dirroot . '/' . $CFG->admin . '/tool/qeupgradehelper/partialupgrade.php'; 00045 $partialupgradefunction = 'tool_qeupgradehelper_get_quizzes_to_upgrade'; 00046 if (is_readable($partialupgradefile)) { 00047 include_once($partialupgradefile); 00048 if (function_exists($partialupgradefunction)) { 00049 $quizzes = new tool_qeupgradehelper_pre_upgrade_quiz_list_restricted( 00050 $partialupgradefunction()); 00051 } 00052 } 00053 00054 $numveryoldattemtps = tool_qeupgradehelper_get_num_very_old_attempts(); 00055 00056 if ($quizzes->is_empty()) { 00057 echo $renderer->simple_message_page(get_string('noquizattempts', 'tool_qeupgradehelper')); 00058 00059 } else { 00060 echo $renderer->quiz_list_page($quizzes, $numveryoldattemtps); 00061 }