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

Diff for /loncom/homework/rankresponse.pm between versions 1.16 and 1.66

version 1.16, 2003/07/16 13:14:12 version 1.66, 2011/09/13 21:42:58
Line 24 Line 24
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 # 2/21 Guy  
   
 package Apache::rankresponse;  package Apache::rankresponse;
 use strict;  use strict;
 use HTML::Entities();  use HTML::Entities();
 use Apache::optionresponse;  use Apache::optionresponse();
   use Apache::lonlocal;
   use Apache::lonxml;
   use Apache::lonnet;
   
 BEGIN {  BEGIN {
     &Apache::lonxml::register('Apache::rankresponse',('rankresponse'));      &Apache::lonxml::register('Apache::rankresponse',('rankresponse'));
Line 44  sub start_rankresponse { Line 46  sub start_rankresponse {
     push (@Apache::lonxml::namespace,'rankresponse');      push (@Apache::lonxml::namespace,'rankresponse');
     my $id = &Apache::response::start_response($parstack,$safeeval);      my $id = &Apache::response::start_response($parstack,$safeeval);
     %Apache::hint::rank=();      %Apache::hint::rank=();
       undef(%Apache::response::foilnames);
     if ($target eq 'meta') {      if ($target eq 'meta') {
  $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><td>Delete:".             .'<tr><td>'.&Apache::lonxml::description($token).'</td>'
     &Apache::edit::deletelist($target,$token)             .'<td><span class="LC_nobreak">'.&mt('Delete?').' '
     ."</td><td>&nbsp".&Apache::edit::end_row()             .&Apache::edit::deletelist($target,$token)
     .&Apache::edit::start_spanning_row();             .'</span></td>'
              .'<td>&nbsp;'.&Apache::edit::end_row()
              .&Apache::edit::start_spanning_row();
   
  $result.=   $result.=
     &Apache::edit::text_arg('Max Number Of Shown Foils:','max',$token,'4').      &Apache::edit::text_arg('Max Number Of Shown Foils:','max',$token,'4').
     &Apache::edit::select_arg('Randomize Foil Order','randomize',      &Apache::edit::select_arg('Randomize Foil Order:','randomize',
       ['yes','no'],$token).        ['yes','no'],$token).
     &Apache::edit::end_row().&Apache::edit::start_spanning_row()."\n";      &Apache::edit::end_row().&Apache::edit::start_spanning_row()."\n";
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
Line 63  sub start_rankresponse { Line 68  sub start_rankresponse {
      $safeeval,'max',       $safeeval,'max',
      'randomize');       'randomize');
  if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }   if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
       } elsif ($target eq 'analyze') {
    my $part_id="$Apache::inputtags::part.$id";
           $Apache::lonhomework::analyze{"$part_id.type"} = 'rankresponse';
    push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
    push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} }, 1);
   
     }      }
     return $result;      return $result;
 }  }
Line 75  sub end_rankresponse { Line 86  sub end_rankresponse {
     pop @Apache::lonxml::namespace;      pop @Apache::lonxml::namespace;
     &Apache::lonxml::deregister('Apache::rankresponse',      &Apache::lonxml::deregister('Apache::rankresponse',
  ('foilgroup','foil','conceptgroup'));   ('foilgroup','foil','conceptgroup'));
       undef(%Apache::response::foilnames);
     return $result;      return $result;
 }  }
   
Line 84  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::setrandomnumber();      &Apache::response::pushrandomnumber(undef,$target);
     return $result;      return $result;
 }  }
   
 sub end_foilgroup {  sub end_foilgroup {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result;      my $result;
     if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || $target eq 'tex') {      if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||
    $target eq 'tex' || $target eq 'analyze') {
  my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2');   my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2');
  my $randomize = &Apache::lonxml::get_param('randomize',$parstack,   my $randomize = &Apache::lonxml::get_param('randomize',$parstack,
    $safeeval,'-2');     $safeeval,'-2');
Line 99  sub end_foilgroup { Line 112  sub end_foilgroup {
  if (!defined($tol)) { $tol=0; }   if (!defined($tol)) { $tol=0; }
  if ($target eq 'web' || $target eq 'tex') {   if ($target eq 'web' || $target eq 'tex') {
     $result=&displayfoils($target,$max,$randomize,$tol);      $result=&displayfoils($target,$max,$randomize,$tol);
       $Apache::lonxml::post_evaluate=0;
  } elsif ($target eq 'answer' ) {   } elsif ($target eq 'answer' ) {
     $result=&displayanswers($max,$randomize,$tol);      $result=&displayanswers($max,$randomize,$tol);
  } elsif ( $target eq 'grade') {   } elsif ( $target eq 'grade') {
     &grade_response($max,$randomize,$tol);      &grade_response($max,$randomize,$tol);
    } elsif ( $target eq 'analyze') {
       my @shown = &whichfoils($max,$randomize);
       &Apache::response::analyze_store_foilgroup(\@shown,
     ['text','value','location']);
       my $part_id=
    "$Apache::inputtags::part.$Apache::inputtags::response[-1]";
       $Apache::lonhomework::analyze{"$part_id.tol"}=$tol;
    }
    my $part = $Apache::inputtags::part;
    my $id   = $Apache::inputtags::response[-1];
           my ($numrows,$bubbles_per_row);
           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') {
       &Apache::lonhomework::set_bubble_lines();
  }   }
  &Apache::lonxml::increment_counter(&getfoilcounts($max));  
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
  $result=&Apache::edit::end_table();   $result=&Apache::edit::end_table();
     }      }
       &Apache::response::poprandomnumber();
     return $result;      return $result;
 }  }
   
Line 121  sub get_correct_order { Line 158  sub get_correct_order {
     }      }
     @value_names =      @value_names =
  sort {   sort {
     if (abs($a->[0] - $b->[0]) > $tol) {return ($a->[0] cmp $b->[0]);}      if (abs($a->[0] - $b->[0]) > $tol) {return ($a->[0] <=> $b->[0]);}
     return 0;      return 0;
  } @value_names;   } @value_names;
     my @value_names_tmp=@value_names;      my @value_names_tmp=@value_names;
Line 152  sub displayanswers { Line 189  sub displayanswers {
     if (!defined(@{ $Apache::response::foilgroup{'names'} })) { return; }      if (!defined(@{ $Apache::response::foilgroup{'names'} })) { return; }
     my @names = @{ $Apache::response::foilgroup{'names'} };      my @names = @{ $Apache::response::foilgroup{'names'} };
     my @whichfoils = &whichfoils($max,$randomize);      my @whichfoils = &whichfoils($max,$randomize);
     my $result=&Apache::response::answer_header('rankresponse');  
     my @correctorder=&get_correct_order($tol,@whichfoils);      my @correctorder=&get_correct_order($tol,@whichfoils);
     foreach my $order (@correctorder) {      my $result;
  $result.=&Apache::response::answer_part('rankresponse',$order);      if ($Apache::lonhomework::type eq 'exam') {
    my @alphabet = ('A'..'Z');
    my $i=0;
    foreach my $order (@correctorder) {
       $result.=&Apache::response::answer_header('rankresponse',$i++);
       $result.=&Apache::response::answer_part('rankresponse',
       $alphabet[$order-1]);
       $result.=&Apache::response::answer_part('rankresponse',$order);
       $result.=&Apache::response::answer_footer('rankresponse');
    }
       } else {
    $result=&Apache::response::answer_header('rankresponse');
    foreach my $order (@correctorder) {
       $result.=&Apache::response::answer_part('rankresponse',$order);
    }
    $result.=&Apache::response::answer_footer('rankresponse');
     }      }
     $result.=&Apache::response::answer_footer('rankresponse');  
     return $result;      return $result;
 }  }
   
 sub check_response_order {  sub check_response_order {
     my (%responsehash)=@_;      my (%responsehash)=@_;
     my @order=sort(values(%responsehash));      my @order=sort( {$a <=> $b} values(%responsehash));
     my $lastvalue=0;      my $lastvalue=0;
     my $expected=1;      my $expected=1;
     my $malformed=0;      my $malformed=0;
Line 181  sub check_response_order { Line 231  sub check_response_order {
 sub grade_response {  sub grade_response {
     my ($max,$randomize,$tol)=@_;      my ($max,$randomize,$tol)=@_;
     my (@whichfoils)=&whichfoils($max,$randomize);      my (@whichfoils)=&whichfoils($max,$randomize);
     if (!defined($ENV{'form.submitted'})) { return; }      if (!&Apache::response::submitted()) { return; }
     my %responsehash;      my %responsehash;
     my %grade;      my %grade;
     my ($temp,$right,$wrong,$ignored)=(0,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 = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1'].":$temp"};          my $response;
  $responsehash{$name}=$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;
     &Apache::lonxml::debug("submitted a $response for $value<br />\n");      &Apache::lonxml::debug("submitted a $response for $value<br />\n");
     if ($value eq $response) {      if ($value eq $response) {
  $grade{$name}='1'; $right++;   $grade{$name}='1'; $right++;
Line 200  sub grade_response { Line 276  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 224  sub grade_response { Line 299  sub grade_response {
     $ad='MISSING_ANSWER';      $ad='MISSING_ANSWER';
  }   }
     }      }
       if (($ad eq 'INCORRECT' || $ad eq 'EXACT_ANS')) {
           if ($Apache::lonhomework::type eq 'survey') {
               $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 {
    $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.submissiongrading"}=$gradestr;  
     $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$ad;      $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$ad;
     &Apache::response::handle_previous(\%previous,$ad);      &Apache::response::handle_previous(\%previous,$ad);
 }  }
   
   sub format_prior_answer {
       my ($mode,$answer,$other_data) = @_;
       my %lastresponse=&Apache::lonnet::str2hash($answer);
       my $foil_order  =$other_data->[0];
       my %grading     =&Apache::lonnet::str2hash($other_data->[1]);
       my $output;
       foreach my $name (@{ $foil_order }) {
    next if (!defined($lastresponse{$name}));
    $output .= '<tr><td>'.$lastresponse{$name}.'</td></tr>';
       }
       return if (!defined($output));
       $output =
    '<table class="LC_prior_rank">'.$output.'</table>';
       return $output;
   }
   
 sub displayfoils {  sub displayfoils {
     my ($target,$max,$randomize,$tol)=@_;      my ($target,$max,$randomize,$tol)=@_;
     my $result;      my $result;
Line 238  sub displayfoils { Line 348  sub displayfoils {
     my (@whichfoils)=&whichfoils($max,$randomize);      my (@whichfoils)=&whichfoils($max,$randomize);
     my $part=$Apache::inputtags::part;      my $part=$Apache::inputtags::part;
     my $solved=$Apache::lonhomework::history{"resource.$part.solved"};      my $solved=$Apache::lonhomework::history{"resource.$part.solved"};
     my $status=$Apache::inputtags::status[-1];  
     my @whichopt=(1..($#whichfoils+1));      my @whichopt=(1..($#whichfoils+1));
     my @correctorder=&get_correct_order($tol,@whichfoils);      my @correctorder=&get_correct_order($tol,@whichfoils);
     if (($solved =~ /^correct/) || ($status eq  'SHOW_ANSWER')) {      if ( &Apache::response::show_answer() && ($target ne 'tex')) {
  foreach my $name (@whichfoils) {   foreach my $name (@whichfoils) {
     my $text=$Apache::response::foilgroup{$name.'.text'};      my $text=$Apache::response::foilgroup{$name.'.text'};
     my $value=shift(@correctorder);      my $value=shift(@correctorder);
     $result.='<br />'.$value.':'.$text;      if ($target eq 'web') {
    $result.='<br /><b>'.$value.':</b> '.$text;
       } else {
    $result.=' \strut\\\\\strut '.$value.':'.$text;
       }
  }   }
     } else {      } else {
  my $i = 0;   my $i = 0;
  my $temp=0;   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;
  foreach my $name (@whichfoils) {          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') {
               $result .= '\strut \\\\ \strut \\\\' ;
           }
           foreach my $name (@whichfoils) {
     my $lastopt=$lastresponse{$name};      my $lastopt=$lastresponse{$name};
     my $optionlist='';      my $optionlist='';
     if ($target ne 'tex') {$optionlist="<option></option>\n";}      if ($target ne 'tex') {
                   $optionlist = "<option></option>\n";
               } 
               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;
                   $optionlist =  &Apache::lonxml::print_pdf_start_combobox($fieldname);
               }
     my $option;      my $option;
     foreach $option (@whichopt) {      foreach $option (@whichopt) {
  if ($option eq $lastopt) {   if ($option eq $lastopt) {
     if ($target ne 'tex') {$optionlist.="<option selected=\"on\">$option</option>\n";}      if ($target ne 'tex' ) {
                           $optionlist.="<option selected=\"selected\">$option</option>\n";
                       } elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {
                           $optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option); 
                       }
  } else {   } else {
     if ($target ne 'tex') {$optionlist.="<option>$option</option>\n";}      if ($target ne 'tex') {
  }                          $optionlist.="<option>$option</option>\n";
                       } elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {
                           $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 name="HWVAL_'.   $optionlist='<select onchange="javascript:setSubmittedPart(\''.
     $part.'\');" name="HWVAL_'.
     $Apache::inputtags::response[-1].':'.$temp.'">'.      $Apache::inputtags::response[-1].':'.$temp.'">'.
         $optionlist."</select>\n";          $optionlist."</select>\n";
     } else {      } elsif ($env{'form.pdfFormFields'} eq 'yes') {
                   #do nothing
               } else {
  $optionlist=' '.$temp.' '.$optionlist.' ';   $optionlist=' '.$temp.' '.$optionlist.' ';
     }      }
     my $text=$Apache::response::foilgroup{$name.'.text'};      my $text=$Apache::response::foilgroup{$name.'.text'};
Line 283  sub displayfoils { Line 434  sub displayfoils {
     $result.='<br />'.$text."\n";      $result.='<br />'.$text."\n";
  }   }
  if ($Apache::lonhomework::type eq 'exam') {   if ($Apache::lonhomework::type eq 'exam') {
     $result.=&Apache::optionresponse::webbubbles(\@alp,\@whichopt,$temp);      my @values=(1..scalar(@whichopt));
       $result.=&Apache::optionresponse::webbubbles(\@values,\@whichopt,$temp,$lastopt);
  }   }
     } else {      } else {
  if ($Apache::lonhomework::type eq 'exam') {   if ($Apache::lonhomework::type eq 'exam') {
     $result.='\vskip 0 mm   '.$text.' \vskip -3 mm '."\n";                      my $itemlabel;
     $result.='\vskip -5 mm\begin{enumerate}\item[\textbf{'.$internal_counter.'}.]\parbox{\textwidth - 5 mm}{'.&Apache::optionresponse::bubbles(\@alp,\@whichopt).'}\end{enumerate} \vskip -5 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 {
     $result.=' \vskip 0mm \framebox[5 mm][s]{\tiny\strut} '.$text."\n";                      if($env{'form.pdfFormFields'} ne 'yes') {
           $result.=' \vskip 0mm \framebox[5 mm][s]{\tiny\strut} '.$text."\n";
                       } else {
                           $result.= $optionlist.' '. &Apache::lonxml::print_pdf_end_combobox($text).'\strut \\\\';
                       }
  }   }
     }      }
     $temp++;      $temp++;
  }   }
     }      }
       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,
     [\@whichfoils,
      '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 341  sub end_conceptgroup { Line 524  sub end_conceptgroup {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     $Apache::rankresponse::conceptgroup=0;      $Apache::rankresponse::conceptgroup=0;
     my $result='';      my $result='';
     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || $target eq 'tex') {      if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
    $target eq 'tex' || $target eq 'analyze') {
  #if not there aren't any foils to display and thus no question   #if not there aren't any foils to display and thus no question
  if (defined(@{ $Apache::response::conceptgroup{'names'} })) {   &Apache::response::pick_foil_for_concept($target,
     my @names = @{ $Apache::response::conceptgroup{'names'} };   ['value','text','location'],
     my $pick=int(&Math::Random::random_uniform() * ($#names+1));   \%Apache::hint::rank,
     my $name=$names[$pick];   $parstack,$safeeval);
     push @{ $Apache::response::foilgroup{'names'} }, $name;  
     $Apache::response::foilgroup{"$name.value"} =  
  $Apache::response::conceptgroup{"$name.value"};  
     $Apache::response::foilgroup{"$name.text"} =  
  $Apache::response::conceptgroup{"$name.text"};  
     $Apache::response::foilgroup{"$name.location"} =  
  $Apache::response::conceptgroup{"$name.location"};  
     my $concept = &Apache::lonxml::get_param('concept',$parstack,  
      $safeeval);  
     $Apache::response::foilgroup{"$name.concept"} = $concept;  
     &Apache::lonxml::debug("Selecting $name in $concept");  
     if ($target eq 'web' || $target eq 'tex') {  
  my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";  
  push(@{ $Apache::hint::rank{"$part_id.concepts"} },  
      $concept);  
  $Apache::hint::rank{"$part_id.concept.$concept"}=  
     $Apache::response::conceptgroup{'names'};  
     }  
  }  
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
  $result=&Apache::edit::end_table();   $result=&Apache::edit::end_table();
     }      }
Line 380  sub insert_conceptgroup { Line 545  sub insert_conceptgroup {
 sub start_foil {  sub start_foil {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result='';      my $result='';
     if ($target eq 'web' || $target eq 'tex') {      if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') {
  &Apache::lonxml::startredirection;   &Apache::lonxml::startredirection;
    if ($target eq 'analyze') {
       &Apache::response::check_if_computed($token,$parstack,$safeeval,'value');
    }
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
  $result=&Apache::edit::tag_start($target,$token,"Foil");   $result=&Apache::edit::tag_start($target,$token,"Foil");
  my $level='-2';   my $level='-2';
Line 408  sub end_foil { Line 576  sub end_foil {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $text ='';      my $text ='';
     my $result = '';      my $result = '';
     if ($target eq 'web' || $target eq 'tex') {      if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') {
  $text=&Apache::lonxml::endredirection;   $text=&Apache::lonxml::endredirection;
     }      }
     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || $target eq 'tex') {      if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
    $target eq 'tex' || $target eq 'analyze') {
  my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval);   my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval);
    if ($target eq 'tex' && $Apache::lonhomework::type eq 'exam') {
       $text='\vskip 5mm $\triangleright$ '.$text;
    }
  if ($value ne 'unused') {   if ($value ne 'unused') {
     my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);      my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
     my $location =&Apache::lonxml::get_param('location',$parstack,$safeeval);  
     &Apache::lonxml::debug("Got a name of :$name:");      &Apache::lonxml::debug("Got a name of :$name:");
     if (!$name) { $name=$Apache::lonxml::curdepth; }      if ($name eq "") {
    &Apache::lonxml::warning(&mt('Foils without names exist. This can cause problems to malfunction.'));
    $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})) {
    &Apache::lonxml::error(&mt('Foil name [_1] appears more than once. Foil names need to be unique.','<b><tt>'.$name.'</tt></b>'));
       }
       $Apache::response::foilnames{$name}++;
       my $location =&Apache::lonxml::get_param('location',$parstack,
        $safeeval);
     if ( $Apache::rankresponse::conceptgroup      if ( $Apache::rankresponse::conceptgroup
  && !&Apache::response::showallfoils() ) {   && !&Apache::response::showallfoils() ) {
  push @{ $Apache::response::conceptgroup{'names'} }, $name;   push @{ $Apache::response::conceptgroup{'names'} }, $name;
  $Apache::response::conceptgroup{"$name.value"} = $value;   $Apache::response::conceptgroup{"$name.value"} = $value;
  if ($target eq 'tex' and $Apache::lonhomework::type eq 'exam') {   $Apache::response::conceptgroup{"$name.text"} = $text;
     $Apache::response::conceptgroup{"$name.text"} = ' $\triangleright$ '.$text;  
  } else {  
     $Apache::response::conceptgroup{"$name.text"} = $text;  
  }  
  $Apache::response::conceptgroup{"$name.location"} = $location;   $Apache::response::conceptgroup{"$name.location"} = $location;
     } else {      } else {
  push @{ $Apache::response::foilgroup{'names'} }, $name;   push @{ $Apache::response::foilgroup{'names'} }, $name;
  $Apache::response::foilgroup{"$name.value"} = $value;   $Apache::response::foilgroup{"$name.value"} = $value;
  if ($target eq 'tex' and $Apache::lonhomework::type eq 'exam') {   $Apache::response::foilgroup{"$name.text"} = $text;
     $Apache::response::foilgroup{"$name.text"} = '\vskip 5 mm $\triangleright$ '.$text;  
  } else {  
     if ($target eq 'tex' and $Apache::lonhomework::type eq 'exam') {  
  $Apache::response::foilgroup{"$name.text"} = ' $\triangleright$ '.$text;  
     } else {  
  $Apache::response::foilgroup{"$name.text"} = $text;  
     }   
  }  
  $Apache::response::foilgroup{"$name.location"} = $location;   $Apache::response::foilgroup{"$name.location"} = $location;
     }      }
  }   }
Removed from v.1.16  
changed lines
  Added in v.1.66

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.