Diff for /loncom/homework/response.pm between versions 1.104 and 1.105

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 {

Removed from v.1.104  
changed lines
  Added in v.1.105


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>