From: thepurpleblob <thepurpleblob>
Date: Tue, 25 Jan 2005 20:18:05 +0000 (+0000)
Subject: Adding Learnwise import - created by Alton College, Hampshire UK
X-Git-Url: http://git.mjollnir.org/gw?a=commitdiff_plain;h=1680925333d35cb0ed0209f3b5c27fc681c9d278;p=moodle.git

Adding Learnwise import - created by Alton College, Hampshire UK
Still to do testing etc.
---

diff --git a/mod/quiz/format/learnwise/format.php b/mod/quiz/format/learnwise/format.php
new file mode 100755
index 0000000000..b8fe644aab
--- /dev/null
+++ b/mod/quiz/format/learnwise/format.php
@@ -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;
+    }
+}
+
+?>