Return to response.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.104, 2004/09/24 19:44:00 | version 1.105, 2004/09/27 22:47:49 |
---|---|
Line 533 sub getresponse { | Line 533 sub getresponse { |
$response; | $response; |
if ($resulttype ne 'letter') { | if ($resulttype ne 'letter') { |
if ($resulttype eq 'A is 1') { | if ($resulttype eq 'A is 1') { |
$response = $let_to_num{$response}; | |
} else { | |
$response = $let_to_num{$response}+1; | $response = $let_to_num{$response}+1; |
} else { | |
$response = $let_to_num{$response}; | |
} | } |
} | } |
} else { | } else { |