Diff for /loncom/homework/grades.pm between versions 1.493 and 1.494

version 1.493, 2007/11/16 08:50:39 version 1.494, 2007/11/16 08:52:15
Line 5403  sub scantron_parse_scanline { Line 5403  sub scantron_parse_scanline {
     $questions =~ s/\r$//;      # Get rid of trailing \r too (MAC or Win uploads).      $questions =~ s/\r$//;      # Get rid of trailing \r too (MAC or Win uploads).
     while (length($questions)) {      while (length($questions)) {
  my $answers_needed = $bubble_lines_per_response{$questnum};   my $answers_needed = $bubble_lines_per_response{$questnum};
  my $answer_length  = $$scantron_config{'Qlength'} * $answers_needed;   my $answer_length  = ($$scantron_config{'Qlength'} * $answers_needed)
                        || 1;
   
  $questnum++;   $questnum++;
  my $currentquest = substr($questions,0,$answer_length);   my $currentquest = substr($questions,0,$answer_length);

Removed from v.1.493  
changed lines
  Added in v.1.494


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