function QuestionsImportTestCase::writeImport in Quiz 6.6

6 calls to QuestionsImportTestCase::writeImport()

QuestionsImportTestCase::matchingHelper in includes/questions_import/questions_import.test

QuestionsImportTestCase::medlyHelper in includes/questions_import/questions_import.test

QuestionsImportTestCase::multichoiceHelper in includes/questions_import/questions_import.test

QuestionsImportTestCase::multiloadHelper in includes/questions_import/questions_import.test

QuestionsImportTestCase::shortanswerHelper in includes/questions_import/questions_import.test

... See full list

File

includes/questions_import/questions_import.test, line 148

Class

QuestionsImportTestCase

Code

function writeImport($input_type, $question) {
  $char = array(
    'A',
    'B',
    'C',
    'D',
    'E',
    'F',
    'G',
    'H',
    'I',
    'J',
  );
  switch ($input_type) {
    case "aiken":
      switch ($question->type) {
        case "multichoice":
          $write = $question->type . "\r\n" . $question->question . "\r\n";
          for ($i = 0; $i < count($question->answers); $i++) {
            $write .= "{$char[$i]}: {$question->answers[$i]}\r\n nil \r\n";
          }
          $write .= "ANSWER: {$char[$question->answer]} \r\n \r\n";
          break;
        case "true_false":
          $write = $question->type . "\r\n" . $question->question . "\r\n" . $question->answer . "\r\n" . $question->feedback . "\r\n \r\n";
          break;
        case "short_answer":
          $write = $question->type . "\r\n" . $question->question . "\r\n" . $question->answer . "\r\n" . $question->value . "\r\n" . $question->shortanswertype . "\r\n \r\n";
          break;
        case "long_answer":
          $write = $question->type . "\r\n" . $question->question . "\r\n" . $question->value . "\r\n \r\n";
          break;
      }
      break;
    case "csv":
      switch ($question->type) {
        case "multichoice":
          $write = $question->type . ', ' . $question->question . ', ';
          for ($i = 0; $i < count($question->answers); $i++) {
            $write .= $question->answers[$i] . ', nil, ';
          }
          $write .= $question->answers[$question->answer] . "\r\n";
          break;
        case "true_false":
          $write = $question->type . ', ' . $question->question . ', ' . $question->answer . ', ' . $question->feedback . "\r\n";
          break;
        case "short_answer":
          $write = $question->type . ', ' . $question->question . ', ' . $question->answer . ', ' . $question->value . ', ' . $question->shortanswertype . "\r\n";
          break;
        case "matching":
          $write = $question->type . ', ' . $question->question . ', ';
          for ($i = 0; $i < count($question->matches); $i++) {
            $write .= $question->matches[$i] . ', ';
            $write .= $question->answers[$i] . ', nil, ';
          }
          $write .= "\r\n";
          break;
        case "long_answer":
          $write = $question->type . ', ' . $question->question . ', ' . $question->value . "\r\n";
          break;
      }
      break;
  }
  return $write;
}