Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.117 and 1.118

version 1.117, 2007/06/20 21:43:59 version 1.118, 2007/06/20 22:36:52
Line 146  sub grade_response { Line 146  sub grade_response {
     my ($answer,@whichfoils)=&whichfoils($max,$randomize);      my ($answer,@whichfoils)=&whichfoils($max,$randomize);
     if ( !&Apache::response::submitted() ) { return; }      if ( !&Apache::response::submitted() ) { return; }
     my $response;      my $response;
       
       # Need to know how many foils we have so that I know how many
       # bubble lines to consume:
       
       my $numfoils = scalar @whichfoils;
       my $bubble_lines = int($numfoils / $bubbles_per_line);
       if (($numfoils % $bubbles_per_line) != 0) {
    $bubble_lines++; # Partial line of bubbles too.
       }
       
       
     if ($env{'form.submitted'} eq 'scantron') {      if ($env{'form.submitted'} eq 'scantron') {
  # Need to know how many foils we have so that I know how many   $response = &Apache::response::getresponse(1,undef,$bubble_lines,
  # bubble lines to consume:   $bubbles_per_line);
   
  my $numfoils = scalar @whichfoils;  
  my $bubble_lines = int($numfoils / $bubbles_per_line);  
  if (($numfoils % $bubbles_per_line) != 0) {  
     $bubble_lines++; # Partial line of bubbles too.  
  }  
  # Get an array of the lines... note offsets seem to go from 1??...  
   
  my @responses;  
  for (my $i = 1; $i <= $bubble_lines; $i++) {  
     my $this_line = &Apache::response::getresponse($i);  
     push(@responses, $this_line);  
   
  }  
  #  Update the lonxml::counter so that the next problem  
  # Gets the right set of answers:  
   
  &Apache::lonxml::increment_counter($bubble_lines-1);  
   
  # This code assumes that unbubbled lines will be  
  # give empties. while bubbled lines nonblank.  
   
  my $answer_line;  
  my $answer_value = ''; # By default no answer given...  
  my $num_bubbled_lines=0;  
  for (my $line_number = 0; $line_number < $bubble_lines; $line_number++) {  
     if ($responses[$line_number] ne "") {  
  $answer_line  = $line_number;  
  $answer_value = $responses[$line_number];  
  last;  
     }  
  }  
   
  $response = $answer_line * $bubbles_per_line + $answer_value;  
   
   
     } else {      } else {
  $response = $env{'form.HWVAL_'.$Apache::inputtags::response['-1']};   $response = $env{'form.HWVAL_'.$Apache::inputtags::response['-1']};
     }      }
       &Apache::lonxml::increment_counter($bubble_lines-1);
   
     if ( $response !~ /[0-9]+/) { return; }      if ( $response !~ /[0-9]+/) { return; }
     my $part=$Apache::inputtags::part;      my $part=$Apache::inputtags::part;
     my $id = $Apache::inputtags::response['-1'];      my $id = $Apache::inputtags::response['-1'];

Removed from v.1.117  
changed lines
  Added in v.1.118


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