Some preliminary code to allow wildcards in short answers.

Based on code sent by Thomas Robb

diff --git a/mod/quiz/lib.php b/mod/quiz/lib.php
index 3238ac65324330ffe4be83850b8532d96673e00e..df16ae9b3b9c32084f16f5563c8b270f487c2d3c 100644 (file)
--- a/mod/quiz/lib.php
+++ b/mod/quiz/lib.php
@@ -1623,9 +1623,18 @@ function quiz_grade_attempt_question_result($question,
                     $answer->answer = strtolower($answer->answer);
                     $question->answer = strtolower($question->answer);
                 }
-                if ($question->answer == $answer->answer) {
-                    $feedback[0] = $answer->feedback;
-                    $grade = (float)$answer->fraction * $question->grade;
+
+                if ((strpos(' '.$answer->answer, '*'))) {
+                    $answer->answer = eregi_replace('\*','.*',$answer->answer);
+                    if (eregi('^'.$answer->answer.'$', $question->answer)) {
+                        $feedback[0] = $answer->feedback;
+                        $grade = (float)$answer->fraction * $question->grade;
+                    }
+                } else {
+                    if ($answer->answer == $question->answer) {
+                        $feedback[0] = $answer->feedback;
+                        $grade = (float)$answer->fraction * $question->grade;
+                    }
                 }
             }
             break;