Multi national AIKEN Moodle quiz question import format

format.php

<?php  // $Id: format.php,v 1.6.2.2 2008/08/15 03:13:39 tjhunt Exp $

////////////////////////////////////////////////////////////////////////////
/// AIKEN FORMAT
///
/// This Moodle class provides all functions necessary to import and export
/// one-correct-answer multiple choice questions in this format:
///
///  תוכן השאלה
///  1. Choice #1
///  2. Choice #2
///  3. Choice #3
///  4. Choice #4
///  תשובה: 3
///
///  זו השורה בה מוצגת השאלה
///  א. Choice #1
///  ב. Choice #2
///  ג. Choice #3
///  ד. Choice #4
///  תשובה: 3
///
///  هذا الخط الذي هو السؤال
///  ا. الجواب الأول
///  ب. الجواب الثاني
///  ج. الجواب الثالث
///  د. الجواب الرابع
///  الرد: 3


///    (blank line next not necessary since "AN" at the beginning of a line
///     triggers the question input and causes input to start all over.
///
///Only ONE correct answer is allowed with no feedback responses.
///
///Be sure to reword "All of the above" type questions as "All of these" (etc.) so that choices can
///  be randomized
///
// 31-Dec-2010 : add Arabic support (answer == الرد)
////////////////////////////////////////////////////////////////////////////

class qformat_aiken_hebrew extends qformat_default {

  function provide_import() {
    return true;
  }

    function readquestions($lines){
        $questions = array();
        $question = $this->defaultquestion();
        $endchar = chr(13);
        foreach ($lines as $line) {
            $stp = strpos($line,$endchar,0);
            $newlines = explode($endchar,$line);
            $foundQ = 0;
            for ($i=0; $i < count($newlines);$i++){
                $nowline = addslashes(trim($newlines[$i]));
                ///Go through the array and build an object called $question
                ///When done, add $question to $questions
                if (strlen($nowline) < 2) {
                    continue;
                }
                //This will show everyline when file is being processed
                $leader = substr($nowline,0,4);
                if (preg_match('/[1-9][.]|[א-ת][.]|[ا-ى][.]/',$leader)){
                    //trim off the label and space
                    $question->answer[] = htmlspecialchars(trim(substr($nowline,3)), ENT_NOQUOTES);
                    //echo "{ ".htmlspecialchars(trim(substr($nowline,3)), ENT_NOQUOTES)." }<br/>";
                    $question->fraction[] = 0;
                    $question->feedback[] = '';
                    continue;
                }
                if ($leader == "תש" OR $leader == "ال"){
                    $ans = trim(substr($nowline,strpos($nowline,':') + 1));
                    $ans = substr($ans,0,1);
                    //A becomes 0 since array starts from 0
                    $rightans = ord($ans) - ord('1') ;
                    $question->answernumbering = '123';
                    $question->fraction[$rightans] = 1;
                    $questions[] = $question;
                    //clear array for next question set
                    $question = $this->defaultquestion();

                    continue;
                } else {
                    //Must be the first line since no leader
                    $question->qtype = MULTICHOICE;
                    $question->name = htmlspecialchars(substr($nowline,0,50));
                    $question->questiontext = htmlspecialchars($nowline);
                    $question->single = 1;
                    $question->feedback[] = "";
                }
            }
        }
        return $questions;
    }

    function readquestion($lines) {
        //this is no longer needed but might still be called by default.php
        return;
    }
}

?>