version 1.142, 2008/11/26 18:11:52
|
version 1.143, 2009/02/06 10:43:48
|
Line 220 sub caparesponse_check {
|
Line 220 sub caparesponse_check {
|
if (($type eq '9') || ($type eq '8')) { |
if (($type eq '9') || ($type eq '8')) { |
if ($response=~/\=/) { |
if ($response=~/\=/) { |
return ('BAD_FORMULA','Please submit just an expression, not an equation.'); |
return ('BAD_FORMULA','Please submit just an expression, not an equation.'); |
} elsif ($response =~ /\,/) { |
} elsif ($response =~ /\,/ and $response !~ /^\s*\{.*\}\s*$/) { |
return ('BAD_FORMULA'); |
return ('BAD_FORMULA'); |
} |
} |
} |
} |