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

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

version 1.60, 2008/12/11 04:02:18 version 1.65, 2011/06/07 17:27:37
Line 52  sub start_rankresponse { Line 52  sub start_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::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>'
            .'<td>&nbsp;'.&Apache::edit::end_row()             .'<td>&nbsp;'.&Apache::edit::end_row()
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;
Line 505  sub end_foil { Line 538  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.60  
changed lines
  Added in v.1.65

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