[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.64

version 1.61, 2008/12/12 09:19:34 version 1.64, 2010/12/19 00:48:50
Line 96  sub start_foilgroup { Line 96  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 265  sub grade_response { Line 265  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 317  sub displayfoils { Line 331  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 (((($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') || ($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) && (defined($env{'form.grade_symb'}))) || $newvariation) {
               $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;
Line 338  sub displayfoils { Line 363  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 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); 
                     }                      }
Line 373  sub displayfoils { Line 398  sub displayfoils {
  }   }
     } else {      } else {
  if ($Apache::lonhomework::type eq 'exam') {   if ($Apache::lonhomework::type eq 'exam') {
     $result.='\vskip 0 mm   '.$text.' \vskip 0 mm '."\n";      $result .= '\vskip 0 mm '.$text.' \vskip 0 mm '."\n";
     $result.='\vskip -1 mm\noindent\begin{enumerate}\item[\textbf{'.$internal_counter.'}.]'.&Apache::optionresponse::bubbles(\@alp,\@whichopt,'rankresponse').'\end{enumerate} \vskip -8 mm \strut ';      $result .= '\vskip -1 mm';
       $result .= '\begin{enumerate}\item[\textbf{'.$internal_counter.'}.]';
       $result .= &Apache::optionresponse::bubbles(\@alp,\@whichopt,'rankresponse');
       $result .= '\end{enumerate} \vskip -8 mm \strut ';
     $internal_counter++;      $internal_counter++;
  } else {   } else {
                     if($env{'form.pdfFormFields'} ne 'yes') {                      if($env{'form.pdfFormFields'} ne 'yes') {
Line 388  sub displayfoils { Line 416  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.64

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