Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.68 and 1.69

version 1.68, 2003/04/08 02:40:56 version 1.69, 2003/04/18 06:26:43
Line 113  sub grade_response { Line 113  sub grade_response {
   if (!defined($ENV{'form.submitted'})) { return; }    if (!defined($ENV{'form.submitted'})) { return; }
   my $response;    my $response;
   if ($ENV{'form.submitted'} eq 'scantron') {    if ($ENV{'form.submitted'} eq 'scantron') {
       my %let_to_num=('A'=>0,'B'=>1,'C'=>2,'D'=>3,'E'=>4,'F'=>5,'G'=>6,        $response=&Apache::response::getresponse();
       'H'=>7,'I'=>8,'J'=>9,'K'=>10,'L'=>11,'M'=>12,'N'=>13,  
       'O'=>14,'P'=>15,'Q'=>16,'R'=>17,'S'=>18,'T'=>19,'U'=>20,  
       'V'=>21,'W'=>22,'X'=>23,'Y'=>24,'Z'=>25);  
       $response = $ENV{'scantron.'.$Apache::lonxml::counter.'.answer'};  
       $response = $let_to_num{$response};  
   } else {    } else {
       $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1']};        $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1']};
   }    }

Removed from v.1.68  
changed lines
  Added in v.1.69


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