From 0ce4aa1a8a381f2014d46e6ee5b04db1bdef8e23 Mon Sep 17 00:00:00 2001
From: moodler <moodler>
Date: Mon, 29 Dec 2003 09:40:23 +0000
Subject: [PATCH] Some preliminary code to allow wildcards in short answers.
 Based on code sent by Thomas Robb

---
 mod/quiz/lib.php | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/mod/quiz/lib.php b/mod/quiz/lib.php
index 3238ac6532..df16ae9b3b 100644
--- 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;
-- 
2.39.5