[BACK]Return to rankresponse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/rankresponse.pm between versions 1.65 and 1.71

version 1.65, 2011/06/07 17:27:37 version 1.71, 2014/05/05 17:40:54
Line 127  sub end_foilgroup { Line 127  sub end_foilgroup {
  }   }
  my $part = $Apache::inputtags::part;   my $part = $Apache::inputtags::part;
  my $id   = $Apache::inputtags::response[-1];   my $id   = $Apache::inputtags::response[-1];
  &Apache::lonxml::increment_counter(&getfoilcounts($max),          my ($numrows,$bubbles_per_row);
    "$part.$id");          if (($target eq 'tex') && ($Apache::lonhomework::type eq 'exam')) {
               my (@whichfoils)=&whichfoils($max,$randomize);
               ($numrows,$bubbles_per_row) =
                   &Apache::optionresponse::getnumrows(scalar(@whichfoils));
           }
           if ($numrows < 1) {
               $numrows = 1;
           }
           my $increment = &getfoilcounts($max) * $numrows;
    &Apache::lonxml::increment_counter($increment,"$part.$id");
  if ($target eq 'analyze') {   if ($target eq 'analyze') {
     &Apache::lonhomework::set_bubble_lines();      &Apache::lonhomework::set_bubble_lines();
  }   }
Line 177  sub get_correct_order { Line 186  sub get_correct_order {
   
 sub displayanswers {  sub displayanswers {
     my ($max,$randomize,$tol,@opt)=@_;      my ($max,$randomize,$tol,@opt)=@_;
     if (!defined(@{ $Apache::response::foilgroup{'names'} })) { return; }      my @names;
     my @names = @{ $Apache::response::foilgroup{'names'} };      if (ref($Apache::response::foilgroup{'names'}) eq 'ARRAY') {
           @names = @{ $Apache::response::foilgroup{'names'} };
       }
       return if (!@names);
     my @whichfoils = &whichfoils($max,$randomize);      my @whichfoils = &whichfoils($max,$randomize);
     my @correctorder=&get_correct_order($tol,@whichfoils);      my @correctorder=&get_correct_order($tol,@whichfoils);
     my $result;      my $result;
Line 227  sub grade_response { Line 239  sub grade_response {
     my %grade;      my %grade;
     my ($temp,$right,$wrong,$ignored)=(1,0,0,0);      my ($temp,$right,$wrong,$ignored)=(1,0,0,0);
     my @correctorder=&get_correct_order($tol,@whichfoils);      my @correctorder=&get_correct_order($tol,@whichfoils);
       my ($numrows,$bubbles_per_row);
       if ($Apache::lonhomework::scantronmode) {
           my $numitems = scalar(@whichfoils);
           ($numrows,$bubbles_per_row) =
               &Apache::optionresponse::getnumrows($numitems);
       }
       if ($numrows < 1) {
           $numrows = 1;
       }
   
     foreach my $name (@whichfoils) {      foreach my $name (@whichfoils) {
  my $response = &Apache::response::getresponse($temp,'A is 1');          my $response;
           if ($numrows > 1) {
               my $num = $temp;
               my $totalnum;
               for (my $i=0; $i<$numrows; $i++) {
                   my $item = &Apache::response::getresponse($num,'A is 1');
                   if ($item =~ /^\d+$/) {
                       $totalnum = $i*$bubbles_per_row + $item;
                   }
                   $num ++;
               }
               $response = $totalnum;
               $temp += $numrows;
           } else {
               $response = &Apache::response::getresponse($temp,'A is 1');
               $temp ++;
           }
  my $value=shift(@correctorder);   my $value=shift(@correctorder);
  if ( $response =~ /[^\s]/) {   if ( $response =~ /[^\s]/) {
     $responsehash{$name}=$response;      $responsehash{$name}=$response;
Line 241  sub grade_response { Line 279  sub grade_response {
  } else {   } else {
     $ignored++;      $ignored++;
  }   }
  $temp++;  
     }      }
     my $malformed=&check_response_order(%responsehash);      my $malformed=&check_response_order(%responsehash);
     my $part=$Apache::inputtags::part;      my $part=$Apache::inputtags::part;
Line 298  sub format_prior_answer { Line 335  sub format_prior_answer {
     my %grading     =&Apache::lonnet::str2hash($other_data->[1]);      my %grading     =&Apache::lonnet::str2hash($other_data->[1]);
     my $output;      my $output;
     foreach my $name (@{ $foil_order }) {      foreach my $name (@{ $foil_order }) {
  next if (!defined($lastresponse{$name}));          if (defined($lastresponse{$name})) {
  $output .= '<tr><td>'.$lastresponse{$name}.'</td></tr>';              $output .= '<tr><td>'.&HTML::Entities::encode($lastresponse{$name},'<>&"').'</td></tr>';
           } else {
               $output .= '<tr><td>&nbsp;</td></tr>';
           }
     }      }
     return if (!defined($output));      return if (!defined($output));
     $output =      $output =
Line 340  sub displayfoils { Line 380  sub displayfoils {
                 $newvariation = 1;                  $newvariation = 1;
             }              }
         }          }
         unless (((($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') || ($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) && (defined($env{'form.grade_symb'}))) || $newvariation) {          unless ($newvariation) {
             $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};              if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) ||
                   (($env{'form.grade_username'} eq $env{'user.name'}) &&
                    ($env{'form.grade_domain'} eq $env{'user.domain'}))) {
                   $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
               } else {
                   unless (($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') ||
                           ($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) {
                       $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
                   }
               }
         }          }
  my %lastresponse=&Apache::lonnet::str2hash($lastresponse);    my %lastresponse=&Apache::lonnet::str2hash($lastresponse); 
  my @alp = splice @alphabet, 0, $#whichopt + 1;   my @alp = splice @alphabet, 0, $#whichopt + 1;
  my $internal_counter=$Apache::lonxml::counter;   my $internal_counter=$Apache::lonxml::counter;
           my ($numrows,$bubbles_per_row);
           if (($target eq 'tex') && ($Apache::lonhomework::type eq 'exam')) {
               ($numrows,$bubbles_per_row) = 
                   &Apache::optionresponse::getnumrows(scalar(@alp));
           } else {
               $numrows = 1;
           }
         if($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {          if($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {
             $result .= '\strut \\\\ \strut \\\\' ;              $result .= '\strut \\\\ \strut \\\\' ;
         }          }
Line 398  sub displayfoils { Line 454  sub displayfoils {
  }   }
     } else {      } else {
  if ($Apache::lonhomework::type eq 'exam') {   if ($Apache::lonhomework::type eq 'exam') {
                       my $itemlabel;
                       if ($numrows == 1) {
                           $itemlabel = '\item[\textbf{'.$internal_counter.'}]';
                       } else {
                           my $linetext;
                           for (my $i=0; $i<$numrows; $i++) {
                               $linetext .= $internal_counter+$i.', ';
                           }
                           $linetext =~ s/,\s$//;
                           $itemlabel = '\item[\small {\textbf{'.$linetext.'}}]'.
                                        ' {\footnotesize '.
                                        &mt('(Bubble once in [_1] lines)',$numrows).
                                        '} \hspace*{\fill} \\\\';
                       }
     $result .= '\vskip 0 mm '.$text.' \vskip 0 mm '."\n";      $result .= '\vskip 0 mm '.$text.' \vskip 0 mm '."\n";
     $result .= '\vskip -1 mm';      $result .= '\vskip -1 mm';
     $result .= '\begin{enumerate}\item[\textbf{'.$internal_counter.'}.]';                      $result .= '\begin{enumerate}'.$itemlabel;
     $result .= &Apache::optionresponse::bubbles(\@alp,\@whichopt,'rankresponse');      $result .= &Apache::optionresponse::bubbles(\@alp,\@whichopt,'rankresponse',undef,$numrows,$bubbles_per_row,$internal_counter);
     $result .= '\end{enumerate} \vskip -8 mm \strut ';                      $result .= '\end{enumerate} \vskip -8 mm \strut ';
     $internal_counter++;      $internal_counter += $numrows;
  } else {   } else {
                     if($env{'form.pdfFormFields'} ne 'yes') {                      if($env{'form.pdfFormFields'} ne 'yes') {
         $result.=' \vskip 0mm \framebox[5 mm][s]{\tiny\strut} '.$text."\n";          $result.=' \vskip 0mm \framebox[5 mm][s]{\tiny\strut} '.$text."\n";
Line 538  sub end_foil { Line 608  sub end_foil {
  $name=$Apache::lonxml::curdepth;   $name=$Apache::lonxml::curdepth;
     }      }
     &Apache::lonxml::debug("Using a name of :$name:");      &Apache::lonxml::debug("Using a name of :$name:");
             if ($name eq "0") {  
                 &Apache::lonxml::error(&mt('Foil name [_1] is not supported. Please choose another name.','<b><tt>'.$name.'</tt></b>'));  
             }  
     if (defined($Apache::response::foilnames{$name})) {      if (defined($Apache::response::foilnames{$name})) {
  &Apache::lonxml::error(&mt('Foil name [_1] appears more than once. Foil names need to be unique.','<b><tt>'.$name.'</tt></b>'));   &Apache::lonxml::error(&mt('Foil name [_1] appears more than once. Foil names need to be unique.','<b><tt>'.$name.'</tt></b>'));
     }      }
Removed from v.1.65  
changed lines
  Added in v.1.71

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