version 1.1, 2005/10/18 15:33:55
|
version 1.2, 2005/11/16 23:34:27
|
Line 54 sub grade {
|
Line 54 sub grade {
|
return ('APPROX_ANS','Go a!'); |
return ('APPROX_ANS','Go a!'); |
} |
} |
if ($form{'LONCAPA_student_response'} =~ /b/) { |
if ($form{'LONCAPA_student_response'} =~ /b/) { |
return ('EXACT_ANS','Go a!'); |
return ('EXACT_ANS','Go b!'); |
} |
} |
if ($form{'LONCAPA_student_response'} =~ /c/) { |
if ($form{'LONCAPA_student_response'} =~ /c/) { |
return ('INCORRECT','No c'); |
return ('INCORRECT','No c'); |
} |
} |
|
if ($form{'LONCAPA_student_response'} eq |
|
$form{'LONCAPA_correct_answer'}) { |
|
return ('EXACT_ANS','Yep!'); |
|
} |
|
|
return ('INCORRECT','Hrrm'); |
return ('INCORRECT','Hrrm'); |
} |
} |