version 1.76, 2004/03/22 21:05:15
|
version 1.78, 2004/05/17 18:26:31
|
Line 135 sub caparesponse_check {
|
Line 135 sub caparesponse_check {
|
elsif ($result == '9') { $result='ANS_CNT_NOT_MATCH'; } |
elsif ($result == '9') { $result='ANS_CNT_NOT_MATCH'; } |
elsif ($result =='10') { $result='SUB_RECORDED'; } |
elsif ($result =='10') { $result='SUB_RECORDED'; } |
elsif ($result =='11') { $result='BAD_FORMULA'; } |
elsif ($result =='11') { $result='BAD_FORMULA'; } |
elsif ($result =='12') { $result='WANTED_NUMERIC'; } |
elsif ($result =='13') { $result='UNIT_INVALID_INSTRUCTOR'; } |
|
elsif ($result =='141') { $result='UNIT_INVALID_STUDENT'; } |
|
elsif ($result =='142') { $result='UNIT_INVALID_STUDENT'; } |
|
elsif ($result =='143') { $result='UNIT_INVALID_STUDENT'; } |
|
elsif ($result =='15') { $result='UNIT_IRRECONCIBLE'; } |
else {$result = "ERROR: Unknown Result:$result:$@:";} |
else {$result = "ERROR: Unknown Result:$result:$@:";} |
|
|
return ("$result:\nRetError $reterror:\nError $error:\nAnswer $answer:\nResponse $response:\n type-$type|$tol|$tol_type|$sig:$sig_lbound:$sig_ubound|$unit|\n$message",$reterror); |
return ("$result:\nRetError $reterror:\nError $error:\nAnswer $answer:\nResponse $response:\n type-$type|$tol|$tol_type|$sig:$sig_lbound:$sig_ubound|$unit|\n$message",$reterror); |
Line 509 sub chemparse {
|
Line 513 sub chemparse {
|
|
|
my $molecule = $2; |
my $molecule = $2; |
# subscripts |
# subscripts |
$molecule =~ s|(?<=[a-zA-Z\[\s])(\d+)|<sub>$1</sub>|g; |
$molecule =~ s|(?<=[a-zA-Z\)\]\s])(\d+)|<sub>$1</sub>|g; |
# superscripts |
# superscripts |
$molecule =~ s|\^(\d*[+\-]*)|<sup>$1</sup>|g; |
$molecule =~ s|\^(\d*[+\-]*)|<sup>$1</sup>|g; |
# strip whitespace |
# strip whitespace |