mirror of
https://github.com/moodle/moodle.git
synced 2025-02-12 03:26:34 +01:00
43bf9fc2d7
Each format is now in it's own subdirectory, which allows the format to have as many files as it likes. The formats are now detected automatically (no need to edit lib.php anymore) and the parent class is now in mod/quiz/format.php Lastly, I added Paul Shew's new GIFT format.
508 lines
18 KiB
PHP
Executable File
508 lines
18 KiB
PHP
Executable File
<?PHP // $Id$
|
|
////////////////////////////////////////////////////////////////////
|
|
/// Class for importing course test manager questions. //
|
|
/// //
|
|
/// //
|
|
////////////////////////////////////////////////////////////////////
|
|
|
|
// Based on format.php, included by ../../import.php
|
|
|
|
|
|
class quiz_file_format {
|
|
function importpreprocess($category) {
|
|
$this->category = $category; // Important
|
|
return true;
|
|
}
|
|
function importprocess($filename) {
|
|
global $CFG,$QUIZ_FILE_FORMAT,$strimportquestions,$form,$question_category,$category,$course,$THEME,
|
|
$hostname, $mdapath, $mdbpath;
|
|
if ((PHP_OS == "Linux") and isset($hostname)) {
|
|
$hostname = trim($hostname);
|
|
// test the ODBC socket server connection
|
|
// if failure, unset hostname and set hostname_access_error
|
|
$question_categories = $this->getquestioncategories($mdbpath, $mdapath, $hostname);
|
|
if (!$question_categories) {
|
|
$hostname_access_error = $hostname . " ";
|
|
unset($hostname);
|
|
} else {
|
|
$hostname_access_error = 0;
|
|
}
|
|
}
|
|
|
|
if ((PHP_OS == "Linux") and !isset($hostname)) {
|
|
// copy the file to a semi-permanent location
|
|
if (! $basedir = make_upload_directory("$course->id")) {
|
|
error("The site administrator needs to fix the file permissions for the data directory");
|
|
}
|
|
if (!isset($hostname_access_error)) {
|
|
$bname=basename($filename);
|
|
$cleanfilename = clean_filename($bname);
|
|
if ($cleanfilename) {
|
|
$newfile = "$basedir/$cleanfilename";
|
|
if (move_uploaded_file($filename, $newfile)) {
|
|
chmod($newfile, 0666);
|
|
} else {
|
|
notify(get_string("uploadproblem", "", $filename));
|
|
}
|
|
}
|
|
$filename = $newfile;
|
|
}
|
|
print_heading_with_help($strimportquestions, "import", "quiz");
|
|
print_simple_box_start("center", "", "$THEME->cellheading");
|
|
if ($hostname_access_error) { notify("couldn't connect to ODBC Socket Server on " . $hostname_access_error); }
|
|
echo "<form method=\"post\" action=\"import.php\">";
|
|
echo "<table cellpadding=5>";
|
|
|
|
echo "<tr><td align=right>";
|
|
echo "What is the hostname or IP address of the ODBC Socket Server:</td><td>";
|
|
echo " <input name=\"hostname\" type=\"text\" size=\"50\" value=\"".stripslashes($hostname_access_error)."\">";
|
|
echo " <input name=\"filename\" type=\"hidden\" value=\"".$filename."\">";
|
|
echo " <input name=\"category\" type=\"hidden\" value=\"".$category->id."\">";
|
|
echo " <input name=\"format\" type=\"hidden\" value=\"".$form->format."\">";
|
|
echo "</td><td> </td></tr>";
|
|
echo "<tr><td align=right>";
|
|
echo "What is the location of the database (.mdb file) on the Socket Server:</td><td>";
|
|
echo " <input name=\"mdbpath\" type=\"text\" size=\"50\" value=\"".stripslashes($mdbpath)."\">";
|
|
echo "</td><td> </td></tr>";
|
|
echo "<tr><td align=right>";
|
|
echo "What is the location of the system database (System.mda file) on the Socket Server:</td><td>";
|
|
echo " <input name=\"mdapath\" type=\"text\" size=\"50\" value=\"".stripslashes($mdapath)."\">";
|
|
echo "</td><td> </td></tr>";
|
|
echo "<tr><td> </td><td>";
|
|
echo " <input type=submit name=save value=\"Connect to Server\">";
|
|
echo "</td></tr>";
|
|
echo "</table>";
|
|
echo "</form>";
|
|
print_simple_box_end();
|
|
print_footer($course);
|
|
exit;
|
|
}
|
|
|
|
// we get here if running windows or after connect to ODBC socket server on linux
|
|
//
|
|
// this generates the page to choose categories of questions to import
|
|
//
|
|
if (!isset($question_category)) {
|
|
|
|
if (PHP_OS == "WINNT") {
|
|
// copy the file to a semi-permanent location
|
|
if (! $basedir = make_upload_directory("$course->id")) {
|
|
error("The site administrator needs to fix the file permissions for the data directory");
|
|
}
|
|
$bname=basename($filename);
|
|
$cleanfilename = clean_filename($bname);
|
|
if ($cleanfilename) {
|
|
$newfile = "$basedir/$cleanfilename";
|
|
if (move_uploaded_file($filename, $newfile)) {
|
|
chmod($newfile, 0666);
|
|
} else {
|
|
notify(get_string("uploadproblem", "", $filename));
|
|
}
|
|
}
|
|
$filename = $newfile;
|
|
}
|
|
// end of file copy
|
|
|
|
// don't have to do this on linux, since it's alreay been done in the test above
|
|
if (PHP_OS == "WINNT") { $question_categories = $this->getquestioncategories($filename); }
|
|
// print the intermediary form
|
|
if (!$categories = quiz_get_category_menu($course->id, true)) {
|
|
error("No categories!");
|
|
}
|
|
print_heading_with_help($strimportquestions, "import", "quiz");
|
|
print_simple_box_start("center", "", "$THEME->cellheading");
|
|
echo "<form method=\"post\" action=\"import.php\">";
|
|
echo "<table cellpadding=5>";
|
|
echo "<tr><td align=right>";
|
|
echo "Choose a category of questions to import:</td><td>";
|
|
asort($question_categories);
|
|
choose_from_menu($question_categories, "question_category","All Categories","All Categories", "", "allcategories");
|
|
echo " <input name=\"filename\" type=\"hidden\" value=\"".$filename."\">";
|
|
echo " <input name=\"category\" type=\"hidden\" value=\"".$category->id."\">";
|
|
echo " <input name=\"format\" type=\"hidden\" value=\"".$form->format."\">";
|
|
if (PHP_OS == "Linux") {
|
|
echo " <input name=\"hostname\" type=\"hidden\" value=\"".stripslashes(trim($hostname))."\">";
|
|
echo " <input name=\"mdbpath\" type=\"hidden\" value=\"".stripslashes($mdbpath)."\">";
|
|
echo " <input name=\"mdapath\" type=\"hidden\" value=\"".stripslashes($mdapath)."\">";
|
|
}
|
|
echo "</td><td> </td>";
|
|
echo "</tr><tr><td> </td><td>";
|
|
echo " <input type=submit name=save value=\"Import Questions\">";
|
|
echo "</td></tr>";
|
|
echo "</table>";
|
|
echo "</form>";
|
|
print_simple_box_end();
|
|
print_footer($course);
|
|
exit;
|
|
}
|
|
//
|
|
// this is the main import section
|
|
//
|
|
notify("Importing questions");
|
|
if (PHP_OS == "Linux") {
|
|
$hostname = trim($hostname);
|
|
$records = $this->getquestions($mdbpath,$question_category,$mdapath, $hostname);
|
|
} else {
|
|
$records = $this->getquestions($filename,$question_category);
|
|
}
|
|
foreach ($records as $qrec)
|
|
{
|
|
$question = NULL;
|
|
$question->image = ""; // No images with this format
|
|
if ($qrec[9] != "") {
|
|
$question->image = $qrec[9];
|
|
}
|
|
$question->defaultgrade = 1;
|
|
// 0 Selected
|
|
// 1 PracticeTestOK?
|
|
// 2 QuestionText
|
|
// 3 QuestionType
|
|
// 4 Option1Text
|
|
// 5 Option2Text
|
|
// 6 Option3Text
|
|
// 7 Option4Text
|
|
// 8 CorrectAnswer
|
|
// 9 Graphic
|
|
// 10 Module
|
|
// 11 ChapterNumber
|
|
// 12 PageNumber
|
|
$ref = "Answer can be found in chapter ". $qrec[11] . ", page " . $qrec[12] . ".";
|
|
switch ($qrec[3]) {
|
|
case 1:
|
|
$question->qtype = MULTICHOICE; // MULTICHOICE, SHORTANSWER, TRUEFALSE
|
|
// echo "<pre>";echo htmlspecialchars($qrec[2]); echo "</pre>";
|
|
$question->questiontext = addslashes(trim($qrec[2]));
|
|
// echo "<pre>";echo $question->questiontext; echo "</pre>";
|
|
$question->name = preg_replace("/<br>/", "", $question->questiontext);
|
|
$question->single = 1; // Only one answer is allowed -- used for multiple choicers
|
|
$fractionset = 0;
|
|
for ($i=4;$i<=7;$i++) {
|
|
if ($qrec[$i] != "") {
|
|
$question->answer[$i-3]=addslashes($qrec[$i]);
|
|
if ($qrec[8] == $i-3) { // if this is the index of CorrectAnswer
|
|
$question->fraction[$i-3] = 1;
|
|
$fractionset = 1;
|
|
} else {
|
|
$question->fraction[$i-3] = 0;
|
|
}
|
|
$question->feedback[$i-3] = (($qrec[8] == $i-3)?"Correct. ":"Incorrect. ") . $ref;
|
|
}
|
|
}
|
|
if ($fractionset == 0) { $question->fraction[1] = 1; }
|
|
break;
|
|
case 2: // TRUE FALSE
|
|
$question->qtype = TRUEFALSE;
|
|
$question->questiontext = addslashes(trim($qrec[2]));
|
|
$question->name = preg_replace("/<br>/", "", $question->questiontext);
|
|
// for TF, $question->answer should be 1 for true, 0 for false
|
|
if ($qrec[8] == "T") { $question->answer =1;} else { $question->answer = 0; }
|
|
// for TF, use $question->feedbacktrue and feedbackfalse
|
|
$question->feedbacktrue = (($qrec[8] =="T")?"Correct. ":"Incorrect. ") . $ref;
|
|
$question->feedbackfalse = (($qrec[8] =="F")?"Correct. ":"Incorrect. ") . $ref;
|
|
break;
|
|
case 3:
|
|
$question->qtype = SHORTANSWER;
|
|
$question->questiontext = addslashes(trim($qrec[2]));
|
|
// echo "<pre>";echo $question->questiontext; echo "</pre>";
|
|
$question->name = preg_replace("/<br>/", "", $question->questiontext);
|
|
$question->usecase=0; // Ignore case -- for SHORT ANSWER questions
|
|
$answers = explode("~", $qrec[8]);
|
|
$question->answer[0]=" ";
|
|
$question->fraction[0]=1;
|
|
for ($i=0;$i<count($answers);$i++) {
|
|
$question->answer[$i] = addslashes(trim($answers[$i]));
|
|
$question->feedback[$i] = $ref;
|
|
$question->fraction[$i] = 1; // 1 for 100%, 0 for none or somewhere in between
|
|
}
|
|
break;
|
|
case 4:
|
|
$question = 0;
|
|
notify("Cannot use essay questions - skipping question ". $qrec[2] . " " . $ref);
|
|
break;
|
|
default:
|
|
$question = 0;
|
|
notify("Misformatted Record. Question Skipped.");
|
|
break;
|
|
}
|
|
if ($question) { $questions[] = $question; }
|
|
}
|
|
$count = 0;
|
|
// process all the questions
|
|
if (PHP_OS == "WINNT") {
|
|
$filename = str_replace("\\\\","\\",$filename);
|
|
$filename = str_replace("/","\\",$filename);
|
|
}
|
|
foreach ($questions as $question) { // Process and store each question
|
|
$count++;
|
|
echo "<hr><p><b>$count</b>. ".stripslashes($question->questiontext)."</p>";
|
|
$question->category = $this->category->id;
|
|
$question->stamp = make_unique_id_code(); // Set the unique code (not to be changed)
|
|
$question->version = 1; // Original version of this question
|
|
if (!$question->id = insert_record("quiz_questions", $question)) {
|
|
error("Could not insert new question!");
|
|
}
|
|
$this->questionids[] = $question->id;
|
|
// Now to save all the answers and type-specific options
|
|
$result = quiz_save_question_options($question);
|
|
if (!empty($result->error)) {
|
|
notify($result->error);
|
|
$this->deletedatabase($filename);
|
|
return false;
|
|
}
|
|
if (!empty($result->notice)) {
|
|
notify($result->notice);
|
|
$this->deletedatabase($filename);
|
|
return true;
|
|
}
|
|
}
|
|
$this->deletedatabase($filename);
|
|
return true;
|
|
}
|
|
|
|
function importpostprocess() {
|
|
return true;
|
|
}
|
|
|
|
function deletedatabase($filename) {
|
|
if (! $this->fulldelete($filename)) {
|
|
echo "<BR>Error: Could not delete: $filename";
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
function getquestions($filename, $category, $mdapath="", $hostname="") {
|
|
if (($category == "allcategories") or ($category == "")) {
|
|
$sql = "SELECT * FROM TBQuestions";
|
|
} else {
|
|
$sql = "SELECT * FROM TBQuestions where module = '".$category."'";
|
|
}
|
|
if (PHP_OS == "WINNT") {
|
|
$ldb =& $this->connect_win($filename);
|
|
$qset = $ldb->Execute("$sql");
|
|
if ( $qset->RecordCount() > 0 ) {
|
|
$records = $qset->GetAssoc(true);
|
|
} else {
|
|
$this->err("There were no records in the database.",$dsn);
|
|
$ldb->Close();
|
|
return false;
|
|
}
|
|
$ldb->Close();
|
|
} else { // if PHP_OS == WINNT
|
|
// we have a linux installation
|
|
$result = $this->query_linux($sql,$filename, $mdapath,$hostname);
|
|
if ( count($result) > 0 ) {
|
|
// get rid of the ID field in the first column.
|
|
for($i=0;$i<count($result);$i++) {
|
|
foreach (array_keys($result[$i]) as $j) {
|
|
$records[$i][$j-1] = $result[$i][$j];
|
|
}
|
|
}
|
|
} else {
|
|
$this->err("There were no records in the database.",$dsn);
|
|
$ldb->Close();
|
|
return false;
|
|
}
|
|
// xml test and connect
|
|
} // PHP_OS TEST
|
|
return $records;
|
|
}
|
|
|
|
function getquestioncategories($filename, $mdapath="", $hostname="") {
|
|
global $CFG, $result;
|
|
$sql = "SELECT Distinct module FROM TBQuestions";
|
|
if (PHP_OS == "WINNT") {
|
|
$ldb =& $this->connect_win($filename);
|
|
$qset = $ldb->Execute("$sql");
|
|
if ( $qset->RecordCount() > 0 ) {
|
|
$records = $qset->GetArray(true);
|
|
foreach ($records as $record) {
|
|
$categories[$record[0]] = $record[0];
|
|
}
|
|
} else { // if recordcount
|
|
$this->err("There were no records in the database.",$dsn);
|
|
$ldb->Close();
|
|
return false;
|
|
}
|
|
$ldb->Close();
|
|
} else { // if PHP_OS == WINNT
|
|
// we have a linux installation
|
|
$result = $this->query_linux($sql, $filename, $mdapath, $hostname);
|
|
for($i=0;$i<count($result);$i++) {
|
|
$categories[$result[$i][0]] = $result[$i][0];
|
|
}
|
|
} // PHP_OS TEST
|
|
return $categories;
|
|
}
|
|
|
|
function query_linux($sql, $mdbpath, $mdapath, $hostname) {
|
|
global $result;
|
|
include_once("odbcsocketserver.class.php");
|
|
// set up socket server object to connect to remote host
|
|
$oTest = new ODBCSocketServer;
|
|
//Set the Hostname, port, and connection string
|
|
$oTest->sHostName = $hostname;
|
|
$oTest->nPort = 9628;
|
|
// $oTest->sConnectionString="DRIVER=Microsoft Access Driver (*.mdb);SystemDB=C:\CTM\System.mda;DBQ=C:\CTM\of2K3\ctm.mdb;UID=Assess;PWD=VBMango;";
|
|
$oTest->sConnectionString="DRIVER=Microsoft Access Driver (*.mdb);SystemDB=".
|
|
$mdapath.";DBQ=".$mdbpath.";UID=Assess;PWD=VBMango;";
|
|
// send and receive XML communication
|
|
$qResult = $oTest->ExecSQL($sql);
|
|
// set up XML parser to read the results
|
|
$xml_parser = xml_parser_create("US-ASCII");
|
|
xml_set_element_handler($xml_parser, "quiz_xmlstart", "quiz_xmlend");
|
|
xml_set_character_data_handler($xml_parser, "quiz_xmldata");
|
|
// parse the XML and get back the result set array
|
|
if (!xml_parse($xml_parser, $qResult)) {
|
|
$this->err("XML error: ".xml_error_string(xml_get_error_code($xml_parser))
|
|
." at line ".xml_get_current_line_number($xml_parser),$oTest->sConnectionString);
|
|
return false;
|
|
} else {
|
|
// echo("Successful XML parse. ");
|
|
// prepare the array for use in the pull-down
|
|
/* echo "<br>count of rows is ". count ($result);
|
|
echo "<pre>\n";
|
|
$qResult = HtmlSpecialChars($qResult);
|
|
echo $qResult;
|
|
echo "\n</pre>";
|
|
*/
|
|
xml_parser_free($xml_parser);
|
|
// $sResult = HtmlSpecialChars($qResult);
|
|
//echo("<pre>");
|
|
// echo($sResult);
|
|
// echo("</pre>");
|
|
|
|
return $result;
|
|
}
|
|
}
|
|
|
|
function connect_win($filename) {
|
|
global $CFG, $systemdb;
|
|
// first, verify the location of System.mda
|
|
if (!isset($systemdb)) {
|
|
$systemdb=$this->findfile("System.mda");
|
|
}
|
|
if (! $systemdb) {
|
|
$this->err("The system database System.mda cannot be found. Check that you've uploaded it to the course.",$dsn);
|
|
die;
|
|
}
|
|
|
|
$ldb = &ADONewConnection('access');
|
|
$dsn="DRIVER=Microsoft Access Driver (*.mdb);SystemDB=".$systemdb.";DBQ=".$filename.";UID=Assess;PWD=VBMango;";
|
|
$dbconnected = $ldb->Connect($dsn);
|
|
if (! $dbconnected) {
|
|
$this->err("Moodle could not connect to the database.",$dsn);
|
|
die;
|
|
}
|
|
return $ldb;
|
|
}
|
|
|
|
function err($message, $dsn) {
|
|
echo "<font color=\"#990000\">";
|
|
echo "<p>Error: $message</p>";
|
|
echo "<p>ODBC File DSN: $dsn<br />";
|
|
echo "</font>";
|
|
}
|
|
|
|
function fulldelete($location) {
|
|
if (is_dir($location)) {
|
|
$currdir = opendir($location);
|
|
while ($file = readdir($currdir)) {
|
|
if ($file <> ".." && $file <> ".") {
|
|
$fullfile = $location."/".$file;
|
|
if (is_dir($fullfile)) {
|
|
if (!fulldelete($fullfile)) {
|
|
return false;
|
|
}
|
|
} else {
|
|
if (!unlink($fullfile)) {
|
|
return false;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
closedir($currdir);
|
|
if (! rmdir($location)) {
|
|
return false;
|
|
}
|
|
|
|
} else {
|
|
if (!unlink($location)) {
|
|
return false;
|
|
}
|
|
}
|
|
return true;
|
|
}
|
|
|
|
|
|
function findfile($filename) {
|
|
global $CFG;
|
|
$dirs = $this->getcoursedirs();
|
|
$dirs[] = $CFG->dirroot."\mod\quiz\format";
|
|
foreach ($dirs as $dir) {
|
|
$file = $dir . "\System.mda";
|
|
// look for System.mda
|
|
if (is_file($file)) return $file;
|
|
}
|
|
return false;
|
|
}
|
|
|
|
function getcoursedirs() {
|
|
global $CFG;
|
|
// for every course in the system, find the root of the data directory
|
|
$courses = get_records_sql("select distinct id,fullname from ".$CFG->prefix."course");
|
|
$dirs = array();
|
|
if ($courses) {
|
|
foreach ($courses as $course) {
|
|
$dir = $CFG->dataroot . "/" . $course->id;
|
|
if (is_dir($dir)) { $dirs[] = $dir; }
|
|
}
|
|
}
|
|
return $dirs;
|
|
}
|
|
|
|
} // END OF CLASS
|
|
|
|
//Handler for starting elements
|
|
function quiz_xmlstart($parser, $name, $attribs) {
|
|
global $result,$row, $col, $incolumn;
|
|
$name = strtolower($name);
|
|
switch ($name) {
|
|
case "row":
|
|
$col=0;break;
|
|
case "column":
|
|
$incolumn = 1;break;
|
|
case "error":
|
|
break;
|
|
case "result":
|
|
$row = 0; break;
|
|
} // switch
|
|
}
|
|
|
|
//handler for the end of elements
|
|
function quiz_xmlend($parser, $name) {
|
|
global $result, $row, $col, $incolumn;
|
|
$name = strtolower($name);
|
|
switch ($name) {
|
|
case "row":
|
|
$row++;break;
|
|
case "column":
|
|
$incolumn = 0;
|
|
$col++;
|
|
break;
|
|
case "error":
|
|
break;
|
|
case "result":
|
|
break;
|
|
} // switch
|
|
} // function
|
|
|
|
//handler for character data
|
|
function quiz_xmldata($parser, $data) {
|
|
global $result, $row, $col, $incolumn;
|
|
if ($incolumn) { $result[$row][$col] = $result[$row][$col] . $data;
|
|
}
|
|
}
|
|
|
|
?>
|