moodle/moodle
3
0
Fork 0
mirror of https://github.com/moodle/moodle.git synced 2025-08-05 00:46:50 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding Learnwise import - created by Alton College, Hampshire UK

Browse source 
Still to do testing etc.
This commit is contained in:
thepurpleblob 2005-01-25 20:18:05 +00:00
parent 7e11e3225d
commit 1680925333
1 changed files with 100 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

100
mod/quiz/format/learnwise/format.php Executable file
View file

@ -0,0 +1,100 @@
<?PHP // $Id$
// Alton College, Hampshire, UK - Tom Flannaghan
// Imports learnwise multiple choice quizzes
// Based on format.php, included by ../../import.php
function string_between($text, $start, $end)
{
$startpos = strpos($text, $start) + strlen($start);
$endpos = strpos($text, $end);
if($startpos <= $endpos) return substr($text, $startpos, $endpos - $startpos);
}
class quiz_file_format extends quiz_default_format {
function readquestions($lines) {
$questions = array();
$currentquestion = array();
foreach($lines as $line) {
$line = trim($line);
$currentquestion[] = $line;
if($question = $this->readquestion($currentquestion)) {
$questions[] = $question;
$currentquestion = array();
}
}
return $questions;
}
function readquestion($lines) {
$text = '';
foreach ($lines as $line) $text .= $line;
$text = str_replace(array('\t','\n','\r','\''), array('','','','\\\''), $text);
$len = strlen($text);
$question = NULL;
if($questiontype = sscanf($text, '<question type="%s">'))
{
if($pos = stripos($text, '</question>'))
{
$text = substr($text, 0, $pos);
$text = stristr($text, '<question');
$questiontext = '';
$questionaward = '';
$questionhint = '';
$optionlist = '';
$questiontext = string_between($text, '<text>', '</text>');
$questionaward = string_between($text, '<award>', '</award>');
$questionhint = string_between($text, '<hint>', '</hint>');
$optionlist = string_between($text, '<answer>', '</answer>');
$optionlist = explode('<option', $optionlist);
$n=0;
foreach($optionlist as $option)
{
$a = string_between($option, ' correct="', '">');
$b = string_between($option, '">', '</option>');
$options_correct[$n] = $a; $options_text[$n] = $b;
//echo "$a, $b<br>";
$n++;
}
$question->qtype = MULTICHOICE;
$question->name = substr($questiontext,0,30);
if(strlen($questionlen)<30) $question->name .= '...';
$question->questiontext = $questiontext;
$question->single = 1;
$question->feedback[] = '';
$question->usecase = 0;
$question->defaultgrade = 1;
$question->image = '';
for($n=0; $n<sizeof($options_text); $n++)
{
if($options_text[$n])
{
if($options_correct[$n]=='yes') $fraction = (int) $questionaward; else $fraction = 0;
$question->fraction[] = $fraction;
$question->answer[] = $options_text[$n];
//echo "hello: $options_text[$n], $fraction<br>";
}
}
}
}
return $question;
}
}
?>