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

Diff for /loncom/homework/rankresponse.pm between versions 1.61 and 1.76

version 1.61, 2008/12/12 09:19:34 version 1.76, 2025/01/27 14:46:20
Line 51  sub start_rankresponse { Line 51  sub start_rankresponse {
  $result=&Apache::response::meta_package_write('rankresponse');   $result=&Apache::response::meta_package_write('rankresponse');
     } elsif ($target eq 'edit' ) {      } elsif ($target eq 'edit' ) {
  $result.=&Apache::edit::start_table($token)   $result.=&Apache::edit::start_table($token)
            .'<tr><td>'.&Apache::lonxml::description($token).'</td>'             .'<tr><td>'.&Apache::loncommon::insert_folding_button()
              .&Apache::lonxml::description($token).'</td>'
            .'<td><span class="LC_nobreak">'.&mt('Delete?').' '             .'<td><span class="LC_nobreak">'.&mt('Delete?').' '
            .&Apache::edit::deletelist($target,$token)             .&Apache::edit::deletelist($target,$token)
            .'</span></td>'             .'</span></td>'
Line 96  sub start_foilgroup { Line 97  sub start_foilgroup {
     my $result;      my $result;
     %Apache::response::foilgroup=();      %Apache::response::foilgroup=();
     $Apache::rankresponse::conceptgroup=0;      $Apache::rankresponse::conceptgroup=0;
     &Apache::response::pushrandomnumber();      &Apache::response::pushrandomnumber(undef,$target);
     return $result;      return $result;
 }  }
   
Line 127  sub end_foilgroup { Line 128  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 187  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 240  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 280  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 265  sub grade_response { Line 303  sub grade_response {
     $ad='MISSING_ANSWER';      $ad='MISSING_ANSWER';
  }   }
     }      }
     if ($Apache::lonhomework::type eq 'survey' &&      if (($ad eq 'INCORRECT' || $ad eq 'EXACT_ANS')) {
  ($ad eq 'INCORRECT' || $ad eq 'EXACT_ANS') ) {          if ($Apache::lonhomework::type eq 'survey') {
  $ad='SUBMITTED';              $ad='SUBMITTED';
           } elsif ($Apache::lonhomework::type eq 'surveycred') {
       $ad='SUBMITTED_CREDIT';
           } elsif ($Apache::lonhomework::type eq 'anonsurvey') {
               $ad='ANONYMOUS';
           } elsif ($Apache::lonhomework::type eq 'anonsurveycred') {
               $ad='ANONYMOUS_CREDIT';
           } else {
               $Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=$gradestr;
           }
     } else {      } else {
  $Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=$gradestr;   $Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=$gradestr;
     }      }
       if ($Apache::lonhomework::type eq 'randomizetry') {
           if ($Apache::lonhomework::type eq 'randomizetry') {
               $Apache::lonhomework::results{"resource.$part.$id.foilorder"} = &Apache::lonnet::array2str(@whichfoils);
           }
       }
     $Apache::lonhomework::results{"resource.$part.$id.submission"}=      $Apache::lonhomework::results{"resource.$part.$id.submission"}=
  $responsestr;   $responsestr;
     $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$ad;      $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$ad;
Line 284  sub format_prior_answer { Line 336  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 307  sub displayfoils { Line 362  sub displayfoils {
     my $text=$Apache::response::foilgroup{$name.'.text'};      my $text=$Apache::response::foilgroup{$name.'.text'};
     my $value=shift(@correctorder);      my $value=shift(@correctorder);
     if ($target eq 'web') {      if ($target eq 'web') {
  $result.='<br /><b>'.$value.':</b> '.$text;   $result.='<div class="LC_rankfoil"><b>'.$value.':</b> '.$text.'</div>';
     } else {      } else {
  $result.=' \strut\\\\\strut '.$value.':'.$text;   $result.=' \strut\\\\\strut '.$value.':'.$text;
     }      }
Line 317  sub displayfoils { Line 372  sub displayfoils {
  my $temp=1;   my $temp=1;
  my $id=$Apache::inputtags::response[-1];   my $id=$Apache::inputtags::response[-1];
  my $part=$Apache::inputtags::part;   my $part=$Apache::inputtags::part;
  my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};          my ($lastresponse,$newvariation);
           if ((($Apache::lonhomework::history{"resource.$part.type"} eq 'randomizetry') ||
                ($Apache::lonhomework::type eq 'randomizetry')) &&
           ($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) {
               if ($env{'form.'.$part.'.rndseed'} ne
                   $Apache::lonhomework::history{"resource.$part.rndseed"}) {
                   $newvariation = 1;
               }
           }
           unless ($newvariation) {
               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 328  sub displayfoils { Line 410  sub displayfoils {
     my $lastopt=$lastresponse{$name};      my $lastopt=$lastresponse{$name};
     my $optionlist='';      my $optionlist='';
     if ($target ne 'tex') {      if ($target ne 'tex') {
                 $optionlist = "<option></option>\n";                  $optionlist = "<option value=\"\"></option>\n";
             }               } 
             if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {              if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {
                 my $fieldname = $env{'request.symb'}.'&part_'.$Apache::inputtags::part.'&rankresponse'.'&HWVAL_'.$Apache::inputtags::response['-1'].':'.$temp;                  my $fieldname = $env{'request.symb'}.'&part_'.$Apache::inputtags::part.'&rankresponse'.'&HWVAL_'.$Apache::inputtags::response['-1'].':'.$temp;
Line 338  sub displayfoils { Line 420  sub displayfoils {
     foreach $option (@whichopt) {      foreach $option (@whichopt) {
  if ($option eq $lastopt) {   if ($option eq $lastopt) {
     if ($target ne 'tex' ) {      if ($target ne 'tex' ) {
                         $optionlist.="<option selected=\"on\">$option</option>\n";                          $optionlist.="<option value=\"$option\" selected=\"selected\">$option</option>\n";
                     } elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {                      } elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {
                         $optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option);                           $optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option); 
                     }                      }
  } else {   } else {
     if ($target ne 'tex') {      if ($target ne 'tex') {
                         $optionlist.="<option>$option</option>\n";                          $optionlist.="<option value=\"$option\">$option</option>\n";
                     } elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {                      } elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {
                         $optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option);                           $optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option); 
                     }                      }
  }    } 
     }      }
     if ($target ne 'tex' && $Apache::lonhomework::type ne 'exam') {      if ($target ne 'tex' && $Apache::lonhomework::type ne 'exam') {
  $optionlist='<select onchange="javascript:setSubmittedPart(\''.   $optionlist='<label><select onchange="javascript:setSubmittedPart(\''.
   $part.'\');" name="HWVAL_'.    $part.'\');" name="HWVAL_'.
     $Apache::inputtags::response[-1].':'.$temp.'">'.      $Apache::inputtags::response[-1].':'.$temp.'">'.
         $optionlist."</select>\n";          $optionlist."</select>\n";
Line 362  sub displayfoils { Line 444  sub displayfoils {
     }      }
     my $text=$Apache::response::foilgroup{$name.'.text'};      my $text=$Apache::response::foilgroup{$name.'.text'};
     if ($target ne 'tex') {      if ($target ne 'tex') {
                   $result .= '<div class="LC_rankfoil">';
  if ($Apache::lonhomework::type ne 'exam') {   if ($Apache::lonhomework::type ne 'exam') {
     $result.='<br />'.$optionlist.$text."\n";      $result.=$optionlist.$text."</label>\n";
  } else {   } else {
     $result.='<br />'.$text."\n";      $result.=$text."\n";
  }   }
  if ($Apache::lonhomework::type eq 'exam') {   if ($Apache::lonhomework::type eq 'exam') {
     my @values=(1..scalar(@whichopt));      my @values=(1..scalar(@whichopt));
     $result.=&Apache::optionresponse::webbubbles(\@values,\@whichopt,$temp,$lastopt);      $result.=&Apache::optionresponse::webbubbles(\@values,\@whichopt,$temp,$lastopt);
  }   }
                   $result .= '</div>';
     } else {      } else {
  if ($Apache::lonhomework::type eq 'exam') {   if ($Apache::lonhomework::type eq 'exam') {
     $result.='\vskip 0 mm   '.$text.' \vskip 0 mm '."\n";                      my $itemlabel;
     $result.='\vskip -1 mm\noindent\begin{enumerate}\item[\textbf{'.$internal_counter.'}.]'.&Apache::optionresponse::bubbles(\@alp,\@whichopt,'rankresponse').'\end{enumerate} \vskip -8 mm \strut ';                      if ($numrows == 1) {
     $internal_counter++;                          $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 -1 mm';
                       $result .= '\begin{enumerate}'.$itemlabel;
       $result .= &Apache::optionresponse::bubbles(\@alp,\@whichopt,'rankresponse',undef,$numrows,$bubbles_per_row,$internal_counter);
                       $result .= '\end{enumerate} \vskip -8 mm \strut ';
       $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 388  sub displayfoils { Line 489  sub displayfoils {
  }   }
     }      }
     if ($target eq 'web') {      if ($target eq 'web') {
           my $questiontype;
           if ($Apache::lonhomework::type eq 'randomizetry') {
               $questiontype = $Apache::lonhomework::type;
           }
  &Apache::response::setup_prior_tries_hash(\&format_prior_answer,   &Apache::response::setup_prior_tries_hash(\&format_prior_answer,
   [\@whichfoils,    [\@whichfoils,
    'submissiongrading']);     'submissiongrading'],
                                                     $questiontype);
     }      }
     if ($target ne 'tex') {$result.="<br />";} else {$result.=' \vskip 0 mm ';}      if ($target ne 'tex') {$result.="<br />";} else {$result.=' \vskip 0 mm ';}
     return $result;      return $result;
Removed from v.1.61  
changed lines
  Added in v.1.76

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