![[BACK]](/icons/back.gif){kind=icon}
Return to response.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework|
Return to response.pm CVS log | Up to [LON-CAPA] / loncom / homework |
| version 1.102, 2004/09/09 08:59:56 | version 1.103, 2004/09/09 18:34:29 |
|---|---|
| Line 533 sub getresponse { | Line 533 sub getresponse { |
| $response; | $response; |
| if ($resulttype ne 'letter') { | if ($resulttype ne 'letter') { |
| $response = $let_to_num{$response}; | $response = $let_to_num{$response}; |
| } elsif ($resulttype ne 'A is 1') { | |
| $response = $let_to_num{$response}+1; | |
| } | } |
| } else { | } else { |
| $response = $ENV{$formparm}; | $response = $ENV{$formparm}; |