From c56abad90069473a2ee1115cfa0dfa97ef86e62d Mon Sep 17 00:00:00 2001
From: thepurpleblob <thepurpleblob>
Date: Wed, 1 Aug 2007 13:44:35 +0000
Subject: [PATCH] MDL-10680: subquestions/subanswers needed swapped for
 matching questions

Merged from STABLE_18
---
 question/format/webct/format.php | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/question/format/webct/format.php b/question/format/webct/format.php
index f2ed85e32b..cb9742d200 100644
--- a/question/format/webct/format.php
+++ b/question/format/webct/format.php
@@ -166,8 +166,8 @@ class qformat_webct extends qformat_default {
     }
 
     function readquestions ($lines) {
-   global $QTYPES ;
-      //  $qtypecalculated = new qformat_webct_modified_calculated_qtype();
+        global $QTYPES ;
+        //  $qtypecalculated = new qformat_webct_modified_calculated_qtype();
         $webctnumberregex =
                 '[+-]?([0-9]+(\\.[0-9]*)?|\\.[0-9]+)((e|E|\\*10\\*\\*)([+-]?[0-9]+|\\([+-]?[0-9]+\\)))?';
 
@@ -348,6 +348,13 @@ class qformat_webct extends qformat_default {
                                 unset($question->answer); //not used in calculated question
                                 break;
                             case MATCH:
+                                // MDL-10680:
+                                // switch subquestions and subanswers
+                                foreach ($question->subquestions as $id=>$subquestion) {
+                                    $temp = $question->subquestions[$id];
+                                    $question->subquestions[$id] = $question->subanswers[$id];
+                                    $question->subanswers[$id] = $temp; 
+                                }
                                 if (count($question->answer) < 3){
                                     // add a dummy missing question
                                     $question->name = 'Dummy question added '.$question->name ;
-- 
2.39.5