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

Diff for /loncom/homework/caparesponse/caparesponse.pm between versions 1.246 and 1.264

version 1.246, 2011/02/24 23:09:32 version 1.264, 2024/09/29 01:58:43
Line 36  use Apache::lonnet; Line 36  use Apache::lonnet;
 use Apache::lonmsg();  use Apache::lonmsg();
 use Apache::response();  use Apache::response();
 use Storable qw(dclone);  use Storable qw(dclone);
   use Apache::lonnet;
   
 BEGIN {  BEGIN {
     &Apache::lonxml::register('Apache::caparesponse',('numericalresponse','stringresponse','formularesponse'));      &Apache::lonxml::register('Apache::caparesponse',('numericalresponse','stringresponse','formularesponse'));
Line 43  BEGIN { Line 44  BEGIN {
   
 my %answer;  my %answer;
 my @answers;  my @answers;
   my @alphabet=('A'..'Z');
   
 sub get_answer { return %answer; };  sub get_answer { return %answer; };
 sub push_answer{ push(@answers,dclone(\%answer)); undef(%answer) }  sub push_answer{ push(@answers,dclone(\%answer)); undef(%answer) }
 sub pop_answer { %answer = %{pop(@answers)}; };  sub pop_answer { %answer = %{pop(@answers)}; };
Line 280  sub start_numericalresponse { Line 283  sub start_numericalresponse {
      $token,40).       $token,40).
       &Apache::loncommon::help_open_topic('Formula_Response_Sampling');        &Apache::loncommon::help_open_topic('Formula_Response_Sampling');
  }   }
           $result.=&Apache::edit::text_arg('Pre-Processor Subroutine:','preprocess',
                                                $token,10);
  $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row();   $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
  my $constructtag;   my $constructtag;
Line 287  sub start_numericalresponse { Line 292  sub start_numericalresponse {
     $constructtag=&Apache::edit::get_new_args($token,$parstack,      $constructtag=&Apache::edit::get_new_args($token,$parstack,
       $safeeval,'answer',        $safeeval,'answer',
        'incorrect','unit',         'incorrect','unit',
       'format');        'format','preprocess');
  } elsif ($token->[1] eq 'formularesponse') {   } elsif ($token->[1] eq 'formularesponse') {
     $constructtag=&Apache::edit::get_new_args($token,$parstack,      $constructtag=&Apache::edit::get_new_args($token,$parstack,
       $safeeval,'answer',        $safeeval,'answer',
       'samples');        'samples','preprocess');
  }   }
  if ($constructtag) {   if ($constructtag) {
     $result = &Apache::edit::rebuild_tag($token);      $result = &Apache::edit::rebuild_tag($token);
Line 322  sub start_numericalresponse { Line 327  sub start_numericalresponse {
 sub set_answertext {  sub set_answertext {
     my ($name,$target,$token,$tagstack,$parstack,$parser,$safeeval,      my ($name,$target,$token,$tagstack,$parstack,$parser,$safeeval,
  $response_level) = @_;   $response_level) = @_;
     &add_in_tag_answer($parstack,$safeeval,$response_level);      my $stringify;
       if (scalar(@$tagstack)) {
           if ($$tagstack[-1] eq 'formularesponse') {
               if (&Apache::lonxml::get_param('samples',$parstack,$safeeval)) {
                   $stringify = 1;
               }
           } elsif ($$tagstack[-1] eq 'numericalresponse') {
               $stringify = 1;
           }
       }
       &add_in_tag_answer($parstack,$safeeval,$stringify,$response_level);
   
     if ($name eq '' || !ref($answer{$name})) {      if ($name eq '' || !ref($answer{$name})) {
  if (ref($answer{$tag_internal_answer_name})) {   if (ref($answer{$tag_internal_answer_name})) {
Line 396  sub setup_capa_response { Line 411  sub setup_capa_response {
     if (ref($response)) {      if (ref($response)) {
  $$args_ref{'response'}=dclone($response);   $$args_ref{'response'}=dclone($response);
     } else {      } else {
  $$args_ref{'response'}=dclone([$response]);   $$args_ref{'response'}=dclone(["$response"]);
     }      }
 }  }
   
 sub check_submission {  sub check_submission {
     my ($response,$partid,$id,$tag,$parstack,$safeeval,$ignore_sig)=@_;      my ($response,$partid,$id,$tag,$parstack,$safeeval,$ignore_sig)=@_;
     my @args = ('type','tol','sig','format','unit','calc','samples');      my @args = ('type','tol','sig','format','unit','calc','samples','preprocess');
     my $args_ref = &setup_capa_args($safeeval,$parstack,\@args,$response);      my $args_ref = &setup_capa_args($safeeval,$parstack,\@args,$response);
       my $stringify;
   
     my $hideunit=      my $hideunit=
  &Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoffunit');   &Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoffunit');
Line 423  sub check_submission { Line 439  sub check_submission {
     if ($tag eq 'formularesponse') {      if ($tag eq 'formularesponse') {
  if ($$args_ref{'samples'}) {   if ($$args_ref{'samples'}) {
     $$args_ref{'type'}='fml';      $$args_ref{'type'}='fml';
               $stringify = 1;
  } else {   } else {
     $$args_ref{'type'}='math';      $$args_ref{'type'}='math';
  }   }
     } elsif ($tag eq 'numericalresponse') {      } elsif ($tag eq 'numericalresponse') {
  $$args_ref{'type'}='float';   $$args_ref{'type'}='float';
           $stringify = 1;
     } elsif ($tag eq 'stringresponse') {      } elsif ($tag eq 'stringresponse') {
         if ($$args_ref{'type'} eq '') {          if ($$args_ref{'type'} eq '') {
             $$args_ref{'type'} = 'ci';              $$args_ref{'type'} = 'ci';
         }          }
     }      }
   
     &add_in_tag_answer($parstack,$safeeval);      &add_in_tag_answer($parstack,$safeeval,$stringify);
   
     if (!%answer) {      if (!%answer) {
  &Apache::lonxml::error("No answers are defined");   &Apache::lonxml::error("No answers are defined");
Line 451  sub check_submission { Line 469  sub check_submission {
  my ($result,@msgs) =    my ($result,@msgs) = 
     &Apache::run::run("&caparesponse_check_list()",$safeeval);      &Apache::run::run("&caparesponse_check_list()",$safeeval);
  &Apache::lonxml::debug("checking $name $result with $response took ".&Time::HiRes::tv_interval($t0));   &Apache::lonxml::debug("checking $name $result with $response took ".&Time::HiRes::tv_interval($t0));
           
  &Apache::lonxml::debug('msgs are '.join(':',@msgs));   &Apache::lonxml::debug('msgs are '.join(':',@msgs));
  my ($awards)=split(/:/,$result);   my ($awards)=split(/:/,$result);
  my @awards= split(/,/,$awards);   my @awards= split(/,/,$awards);
Line 510  sub stringresponse_gradechange { Line 527  sub stringresponse_gradechange {
 }  }
   
 sub add_in_tag_answer {  sub add_in_tag_answer {
     my ($parstack,$safeeval,$response_level) = @_;      my ($parstack,$safeeval,$stringify,$response_level) = @_;
     my @answer=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval,      my @answer=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval,
       $response_level);        $response_level);
     &Apache::lonxml::debug('answer is'.join(':',@answer));      &Apache::lonxml::debug('answer is'.join(':',@answer));
     if (@answer && $answer[0] =~ /\S/) {      if (@answer && $answer[0] =~ /\S/) {
           if ($stringify) {
               @answer = map { $_ .= ''; } @answer;
           }
  $answer{$tag_internal_answer_name}= {'type' => 'ordered',   $answer{$tag_internal_answer_name}= {'type' => 'ordered',
      'answers' => [\@answer] };       'answers' => [\@answer] };
     }      }
Line 540  sub end_numericalresponse { Line 560  sub end_numericalresponse {
     }      }
     my $partid = $Apache::inputtags::part;      my $partid = $Apache::inputtags::part;
     my $id = $Apache::inputtags::response[-1];      my $id = $Apache::inputtags::response[-1];
     my $tag;      my ($tag,$stringify);
     my $safehole = new Safe::Hole;      my $safehole = new Safe::Hole;
     $safeeval->share_from('capa',['&caparesponse_capa_check_answer']);      $safeeval->share_from('capa',['&caparesponse_capa_check_answer']);
   
Line 558  sub end_numericalresponse { Line 578  sub end_numericalresponse {
  &Apache::lonxml::debug($$parstack[-1] . "\n<br>");   &Apache::lonxml::debug($$parstack[-1] . "\n<br>");
   
  if ( &Apache::response::submitted('scantron')) {   if ( &Apache::response::submitted('scantron')) {
     &add_in_tag_answer($parstack,$safeeval);                      if ($tag eq 'numericalresponse') {
     my ($values,$display)=&make_numerical_bubbles($partid,$id,                          $stringify = 1;
   $target,$parstack,$safeeval);                      } elsif ($tag eq 'formularesponse') {
     $response=$values->[$response];                          if (&Apache::lonxml::get_param('samples',$parstack,$safeeval)) {
  }                              $stringify = 1;
  $Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response;                          }
                       }
               &add_in_tag_answer($parstack,$safeeval,$stringify);
               my ($values,$display)=&make_numerical_bubbles($partid,$id,$target,
                             $parstack,$safeeval);
               $response=$values->[$response];
           }
           $Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response;
  my ($ad,$msg,$name)=&check_submission($response,$partid,$id,   my ($ad,$msg,$name)=&check_submission($response,$partid,$id,
       $tag,$parstack,        $tag,$parstack,
       $safeeval);        $safeeval);
Line 597  sub end_numericalresponse { Line 624  sub end_numericalresponse {
     }      }
  }   }
     } elsif ($target eq 'web' || $target eq 'tex') {      } elsif ($target eq 'web' || $target eq 'tex') {
  &check_for_answer_errors($parstack,$safeeval);          if ($tag eq 'numericalresponse') {
               $stringify = 1;
           } elsif ($tag eq 'formularesponse') {
               if (&Apache::lonxml::get_param('samples',$parstack,$safeeval)) {
                   $stringify = 1;
               }
           }
    &check_for_answer_errors($parstack,$safeeval,$stringify);
  my $award = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};   my $award = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
  my $status = $Apache::inputtags::status['-1'];   my $status = $Apache::inputtags::status['-1'];
  if ($Apache::lonhomework::type eq 'exam') {   if ($Apache::lonhomework::type eq 'exam') {
Line 609  sub end_numericalresponse { Line 643  sub end_numericalresponse {
     my $number_of_bubbles = scalar(@{ $bubble_values });      my $number_of_bubbles = scalar(@{ $bubble_values });
     my $unit=&Apache::lonxml::get_param_var('unit',$parstack,      my $unit=&Apache::lonxml::get_param_var('unit',$parstack,
     $safeeval);      $safeeval);
     my @alphabet=('A'..'Z');  
     if ($target eq 'web') {      if ($target eq 'web') {
  if ($tag eq 'numericalresponse') {   if ($tag eq 'numericalresponse') {
     if ($unit=~/\S/) {$result.=' (in '.$unit.')<br /><br />';}      if ($unit=~/\S/) {$result.=' (in '.$unit.')<br /><br />';}
Line 632  sub end_numericalresponse { Line 665  sub end_numericalresponse {
     $result.=' \textit{(in} \verb|'.$unit.'|\textit{)} ';      $result.=' \textit{(in} \verb|'.$unit.'|\textit{)} ';
  }   }
  if ($tag eq 'numericalresponse') {   if ($tag eq 'numericalresponse') {
     my ($celllength,$number_of_tables,@table_range)=      $result .= &make_horizontal_latex_bubbles($bubble_values, $bubble_display,
  &get_table_sizes($number_of_bubbles,$bubble_display);   '$\bigcirc$');
     my $j=0;  
     my $cou=0;  
     $result.='\vskip 2mm \noindent ';  
     $result .= '\textbf{'.$Apache::lonxml::counter.'.} \vskip -3mm ';  
   
     for (my $i=0;$i<$number_of_tables;$i++) {  
  if ($i == 0) {  
     $result .= '\vskip -1mm ';  
  } else {  
     $result .= '\vskip 1mm ';  
  }  
  $result.='\noindent \setlength{\tabcolsep}{2 mm}\hskip 2pc\begin{tabular}{';  
  for (my $ind=0;$ind<$table_range[$j];$ind++) {  
     $result.='p{3 mm}p{'.$celllength.' mm}';  
  }  
  $result.='}';  
  for (my $ind=$cou;$ind<$cou+$table_range[$j];$ind++) {  
     $result.='\hskip -4 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$ & \hskip -3 mm {\small '.$bubble_display->[$ind].'} ';  
     if ($ind != $cou+$table_range[$j]-1) {$result.=' & ';}  
  }  
  $cou += $table_range[$j];  
  $j++;  
  $result.='\\\\\end{tabular}\vskip 0 mm ';  
     }  
  } else {   } else {
     $increment = &Apache::response::repetition();      $increment = &Apache::response::repetition();
  }   }
     }      }
  }   }
         if (($target eq 'web') && ($tag eq 'formularesponse')  
             && ($Apache::lonhomework::type ne 'exam') && ($Apache::inputtags::status['-1'] eq 'CAN_ANSWER')  
     && (&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoffeditor') ne 'yes')) {  
             $result.=&Apache::response::edit_mathresponse_button($id,"HWVAL_$id");  
         }  
               
  &Apache::response::setup_prior_tries_hash(\&format_prior_response_numerical);   &Apache::response::setup_prior_tries_hash(\&format_prior_response_numerical);
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
  $result.='</td></tr>'.&Apache::edit::end_table;   $result.='</td></tr>'.&Apache::edit::end_table;
     } elsif ($target eq 'answer' || $target eq 'analyze') {      } elsif ($target eq 'answer' || $target eq 'analyze') {
  my $part_id="$partid.$id";   my $part_id="$partid.$id";
           my $samples;
  if ($target eq 'analyze') {   if ($target eq 'analyze') {
     push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);      push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
     $Apache::lonhomework::analyze{"$part_id.type"} = $tag;      $Apache::lonhomework::analyze{"$part_id.type"} = $tag;
Line 686  sub end_numericalresponse { Line 691  sub end_numericalresponse {
  if (scalar(@$tagstack)) {   if (scalar(@$tagstack)) {
     &Apache::response::setup_params($tag,$safeeval);      &Apache::response::setup_params($tag,$safeeval);
  }   }
  &add_in_tag_answer($parstack,$safeeval);          if ($tag eq 'numericalresponse') {
               $stringify = 1;
           } elsif ($tag eq 'formularesponse') {
               $samples=&Apache::lonxml::get_param('samples',$parstack,$safeeval);
               if ($samples) {
                   $stringify = 1;
               }
           }
    &add_in_tag_answer($parstack,$safeeval,$stringify);
  my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval);   my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval);
   
  my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval);   my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval);
    my ($needsdollar,$needscomma);
    if ($unit =~ /\$/) {
       $needsdollar = 1;
    }
    if ($unit =~ /\,/) {
       $needscomma = 1;
    }
   
  if ($target eq 'answer') {   if ($target eq 'answer') {
     $result.=&Apache::response::answer_header($tag,undef,      $result.=&Apache::response::answer_header($tag,undef,
       scalar(keys(%answer)));        scalar(keys(%answer)));
Line 779  sub end_numericalresponse { Line 799  sub end_numericalresponse {
  my $ans=$answers[$i];   my $ans=$answers[$i];
  my $fmt=$formats[0];   my $fmt=$formats[0];
  if (@formats && $#formats) {$fmt=$formats[$i];}   if (@formats && $#formats) {$fmt=$formats[$i];}
  foreach my $element (@$ans) {       my @answers;
    if (ref($ans) eq 'ARRAY') {
       @answers = (@{$ans});
    }
    foreach my $element (@answers) {    
     if ($fmt && $tag eq 'numericalresponse') {      if ($fmt && $tag eq 'numericalresponse') {
  $fmt=~s/e/E/g;   $fmt=~s/e/E/g;
  if ($unit=~/\$/) { $fmt="\$".$fmt; $unit=~s/\$//g; }   if ($unit=~/\$/) { $fmt="\$".$fmt; $unit=~s/\$//g; }
  if ($unit=~/\,/) { $fmt="\,".$fmt; $unit=~s/\,//g; }   if ($unit=~/\,/) { $fmt="\,".$fmt; $unit=~s/\,//g; }
  $element = &format_number($element,$fmt,$target,   $element = &format_number($element,$fmt,$target,
   $safeeval);    $safeeval);
  if ($fmt=~/\$/ && $unit!~/\$/) { $element=~s/\$//; }   if ($fmt=~/\$/ && !$needsdollar) { $element=~s/\$//; }
     }      }
  }   }
  push(@fmt_ans,join(',',@$ans));   push(@fmt_ans,join(',',@answers));
     }      }
     my $response=\@fmt_ans;      my $response=\@fmt_ans;
   
Line 799  sub end_numericalresponse { Line 823  sub end_numericalresponse {
  ! ($Apache::lonhomework::type eq 'exam' ||   ! ($Apache::lonhomework::type eq 'exam' ||
    lc($hideunit) eq "yes") )  {     lc($hideunit) eq "yes") )  {
  my $cleanunit=$unit;   my $cleanunit=$unit;
  $cleanunit=~s/\$\,//g;   $cleanunit=~s/[\$,]//g;
  foreach my $ans (@fmt_ans) {   foreach my $ans (@fmt_ans) {
     $ans.=" $cleanunit";      $ans.=" $cleanunit";
  }   }
Line 816  sub end_numericalresponse { Line 840  sub end_numericalresponse {
     $tag,$parstack,      $tag,$parstack,
     $safeeval,1);      $safeeval,1);
     $error=&mt("Computer's answer is incorrect ([_1]).",'"'.join(', ',@$response).'"').' ';      $error=&mt("Computer's answer is incorrect ([_1]).",'"'.join(', ',@$response).'"').' ';
     if ($sigline ne '') {                      if (($ad eq 'NO_UNIT') && $needsdollar) {
                           $error.=&mt('The unit attribute includes [_1] but the answer format does not.','$').' '.
                                   &mt('Either remove the [_1] from the unit or prepend [_1] to the answer format.','$');    
                       } elsif (($ad eq 'COMMA_FAIL') && $needscomma) {
                           $error.=&mt('The unit attribute includes [_1] but the answer format does not.',',').' '.
                                   &mt('Either remove the [_1] from the unit or prepend [_1] to the answer format.',',');
                       } elsif ($ad eq 'UNIT_INVALID_STUDENT') {
                           $error.=&mt('Unable to interpret units. Computer reads units as "[_1]".',$msg).' '.
                                   &mt('The unit attribute in the numericalresponse item needs to be a supported physical unit.');
       } elsif ($sigline ne '') {
  $error.=&mt('It is likely that the tolerance range [_1] or significant figures [_2] need to be adjusted.',$tolline,$sigline);   $error.=&mt('It is likely that the tolerance range [_1] or significant figures [_2] need to be adjusted.',$tolline,$sigline);
     } else {      } else {
  $error.=&mt('It is likely that the tolerance range [_1] needs to be adjusted.',$tolline);   $error.=&mt('It is likely that the tolerance range [_1] needs to be adjusted.',$tolline);
Line 844  sub end_numericalresponse { Line 877  sub end_numericalresponse {
  }   }
     }      }
     if ($tag eq 'formularesponse' && $target eq 'answer') {      if ($tag eq 'formularesponse' && $target eq 'answer') {
  my $samples=&Apache::lonxml::get_param('samples',$parstack,$safeeval);  
  $result.=&Apache::response::answer_part($tag,$samples);   $result.=&Apache::response::answer_part($tag,$samples);
     }      }
     $result.=&Apache::response::next_answer($tag,$name);      $result.=&Apache::response::next_answer($tag,$name);
Line 887  sub format_prior_response_numerical { Line 919  sub format_prior_response_numerical {
 }  }
   
 sub check_for_answer_errors {  sub check_for_answer_errors {
     my ($parstack,$safeeval) = @_;      my ($parstack,$safeeval,$stringify) = @_;
     &add_in_tag_answer($parstack,$safeeval);      &add_in_tag_answer($parstack,$safeeval,$stringify);
     my %counts;      my %counts;
     foreach my $name (keys(%answer)) {      foreach my $name (keys(%answer)) {
  push(@{$counts{scalar(@{$answer{$name}{'answers'}})}},$name);   push(@{$counts{scalar(@{$answer{$name}{'answers'}})}},$name);
Line 917  sub get_table_sizes { Line 949  sub get_table_sizes {
     my $cell_width=0;      my $cell_width=0;
     foreach my $member (@$rbubble_values) {      foreach my $member (@$rbubble_values) {
  my $cell_width_real=0;   my $cell_width_real=0;
  if ($member=~/(\+|-)?(\d*)\.?(\d*)\s*\$?\\times\s*10\^{(\+|-)?(\d+)}\$?/) {   if ($member=~/(\+|-)?(\d*)\.?(\d*)\s*\$?\\times\s*10\^\{(\+|-)?(\d+)}\$?/) {
     $cell_width_real=(length($2)+length($3)+length($5)+7)*$scale;      $cell_width_real=(length($2)+length($3)+length($5)+7)*$scale;
  } elsif ($member=~/(\d*)\.?(\d*)(E|e)(\+|-)?(\d*)/) {   } elsif ($member=~/(\d*)\.?(\d*)(E|e)(\+|-)?(\d*)/) {
     $cell_width_real=(length($1)+length($2)+length($5)+9)*$scale;      $cell_width_real=(length($1)+length($2)+length($5)+9)*$scale;
Line 990  sub make_numerical_bubbles { Line 1022  sub make_numerical_bubbles {
     my $number_of_bubbles =       my $number_of_bubbles = 
  &Apache::response::get_response_param($part.'_'.$id,'numbubbles',8);   &Apache::response::get_response_param($part.'_'.$id,'numbubbles',8);
   
       #
       # Fixes for BZ 6519 - number of bubbles <= 0 or non-integer.
       # 
       $number_of_bubbles = int($number_of_bubbles + 0.5);
       if ($number_of_bubbles <= 0) {
    $number_of_bubbles = 8;
       }
       
   
     my ($format)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval);      my ($format)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval);
     my $name = (exists($answer{$tag_internal_answer_name})       my $name = (exists($answer{$tag_internal_answer_name}) 
  ? $tag_internal_answer_name   ? $tag_internal_answer_name
Line 1062  sub make_numerical_bubbles { Line 1103  sub make_numerical_bubbles {
                      &Math::Random::random_uniform_integer(1,1,10);                       &Math::Random::random_uniform_integer(1,1,10);
     }      }
     for ($ind=0;$ind<$number_of_bubbles;$ind++) {      for ($ind=0;$ind<$number_of_bubbles;$ind++) {
  $bubble_values[$ind] = $answerfactor*($factor**($power-$powers[$#powers-$ind]));   my $exponent = $power-$powers[$#powers-$ind];
    $bubble_values[$ind] = $answerfactor*($factor**$exponent);
   
    # If bubble is for correct answer (i.e., exponent = 0), and value
    # of $answerfactor * factor**$exponent is an integer with more than
    # 15 digits, assign $answerfactor itself as bubble value.
    # This prevents a "use fewer digits" issue on 64bit servers
    # when correct answer is >= 1e+16, and when correct bubble is A.
   
    if ($exponent == 0) {
       if ($bubble_values[$ind] =~ /^-?(\d+)$/) {
    if (length($1) > 15) {
       $bubble_values[$ind] = $answerfactor;
    }
       }
    }
   
  $bubble_display[$ind] = &format_number($bubble_values[$ind],   $bubble_display[$ind] = &format_number($bubble_values[$ind],
        $format,$target,$safeeval);         $format,$target,$safeeval);
     }      }
Line 1077  sub make_numerical_bubbles { Line 1134  sub make_numerical_bubbles {
     return (\@bubble_values,\@bubble_display,$correct);      return (\@bubble_values,\@bubble_display,$correct);
 }  }
   
   ##
   # Produce LaTeX bubbles laid out horizontally given a set of bubble values:
   #
   # @param bubble_values  - reference to an array of bubble 'values'
   # @param bubble_display - reference to the array of texts to display to the user
   #                         for each bubble_value (this is mostly for numerical response
   #                         when the displayed value may not be an exact
   #                         representation of the bubble value. 
   # @param bubble_fragment- The LaTeX fragment that will be plugged in to make
   #                         the bubble itself. Note that the code will autonomously
   #                         label each bubble with a lable...and that it's perfectly
   #                         acceptable to use "" for the bubble_fragment.
   # 
   # @return string - the LaTeX fragment that produces the bubbles.
   #
   sub make_horizontal_latex_bubbles {
       my ($bubble_values, $bubble_display, $bubble_fragment)     = @_;
       my $result;
   
       my $number_of_bubbles = scalar(@{$bubble_values}); 
   
       # Get the number of rows and columns in each row of the bubble
       # table:
   
       my ($celllength, $number_of_tables, @table_range) =
    &get_table_sizes($number_of_bubbles, $bubble_display);
   
       my $j=0;
       my $cou=0;
       $result.='\vskip 2mm \noindent ';
       $result .= '\textbf{'.$Apache::lonxml::counter.'.} \vskip -3mm ';
   
       for (my $i=0;$i<$number_of_tables;$i++) {
    if ($i == 0) {
       $result .= '\vskip -1mm ';
    } else {
       $result .= '\vskip 1mm ';
    }
    $result.='\noindent \setlength{\tabcolsep}{2 mm}\hskip 2pc\begin{tabular}{';
    for (my $ind=0;$ind<$table_range[$j];$ind++) {
       $result.='p{4 mm}p{'.$celllength.' mm}';
    }
    $result.='}';
    for (my $ind=$cou;$ind<$cou+$table_range[$j];$ind++) {
       $result.='\hskip -4 mm {\small \textbf{ '.$alphabet[$ind].'}}'
    . $bubble_fragment 
    . '& \hskip -3 mm {\small '.$bubble_display->[$ind].'} ';
       if ($ind != $cou+$table_range[$j]-1) {
    $result.=' & ';
       }
    }
    $cou += $table_range[$j];
    $j++;
    $result.='\\\\\end{tabular}\vskip 0 mm ';
       }
       return $result;
   }
   
 sub get_tolrange {  sub get_tolrange {
     my ($ans,$tol)=@_;      my ($ans,$tol)=@_;
     my ($high,$low);      my ($high,$low);
Line 1148  sub start_stringresponse { Line 1263  sub start_stringresponse {
   ['re','Regular Expression']],$token);    ['re','Regular Expression']],$token);
  $result.=&Apache::edit::text_arg('String to display for answer:',   $result.=&Apache::edit::text_arg('String to display for answer:',
  'answerdisplay',$token);   'answerdisplay',$token);
           $result.=&Apache::edit::text_arg('Pre-Processor Subroutine:','preprocess',
                                                $token,10);
  $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row();   $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
  my $constructtag;   my $constructtag;
  $constructtag=&Apache::edit::get_new_args($token,$parstack,   $constructtag=&Apache::edit::get_new_args($token,$parstack,
   $safeeval,'answer',    $safeeval,'answer',
   'type','answerdisplay');    'type','answerdisplay','preprocess');
  if ($constructtag) {   if ($constructtag) {
     $result = &Apache::edit::rebuild_tag($token);      $result = &Apache::edit::rebuild_tag($token);
     $result.=&Apache::edit::handle_insert();      $result.=&Apache::edit::handle_insert();
Line 1187  sub end_stringresponse { Line 1304  sub end_stringresponse {
     if (!$Apache::lonxml::default_homework_loaded) {      if (!$Apache::lonxml::default_homework_loaded) {
  &Apache::lonxml::default_homework_load($safeeval);   &Apache::lonxml::default_homework_load($safeeval);
     }      }
       my $tag;
       if (scalar(@$tagstack)) { $tag=$$tagstack[-1]; }
     if ( $target eq 'grade' && &Apache::response::submitted() ) {      if ( $target eq 'grade' && &Apache::response::submitted() ) {
  &Apache::response::setup_params('stringresponse',$safeeval);   &Apache::response::setup_params('stringresponse',$safeeval);
  $safeeval->share_from('capa',['&caparesponse_capa_check_answer']);   $safeeval->share_from('capa',['&caparesponse_capa_check_answer']);
Line 1213  sub end_stringresponse { Line 1332  sub end_stringresponse {
 # $answer=$token->[2]->{'answer'};  # $answer=$token->[2]->{'answer'};
 #    }  #    }
     ${$safeeval->varglob('LONCAPA::response')}=$response;      ${$safeeval->varglob('LONCAPA::response')}=$response;
                       my $preprocess=&Apache::lonxml::get_param('preprocess',$parstack,$safeeval);
                       $preprocess=~s/^\&//;
                       if (defined($preprocess)) {
                           &Apache::run::run('$LONCAPA::response=&'.$preprocess.'($LONCAPA::response);',$safeeval);
                       }
     $result = &Apache::run::run('if ($LONCAPA::response=~m'.$answer.') { return 1; } else { return 0; }',$safeeval);      $result = &Apache::run::run('if ($LONCAPA::response=~m'.$answer.') { return 1; } else { return 0; }',$safeeval);
     &Apache::lonxml::debug("current $response");      &Apache::lonxml::debug("current $response");
     &Apache::lonxml::debug("current $answer");      &Apache::lonxml::debug("current $answer");
     $ad = ($result) ? 'APPROX_ANS' : 'INCORRECT';      $ad = ($result) ? 'APPROX_ANS' : 'INCORRECT';
  } else {   } else {
     my @args = ('type');      my @args = ('type','preprocess');
     my $args_ref = &setup_capa_args($safeeval,$parstack,      my $args_ref = &setup_capa_args($safeeval,$parstack,
     \@args,$response);      \@args,$response);
                     if ($$args_ref{'type'} eq '') {                      if ($$args_ref{'type'} eq '') {
                         $$args_ref{'type'} = 'ci';                          $$args_ref{'type'} = 'ci';
                     }                      }
     &add_in_tag_answer($parstack,$safeeval);                      my $stringify = 1;
       &add_in_tag_answer($parstack,$safeeval,$stringify);
     my (@final_awards,@final_msgs,@names,%ansstring);      my (@final_awards,@final_msgs,@names,%ansstring);
     foreach my $name (keys(%answer)) {      foreach my $name (keys(%answer)) {
  &Apache::lonxml::debug(" doing $name with ".join(':',@{ $answer{$name}{'answers'} }));   &Apache::lonxml::debug(" doing $name with ".join(':',@{ $answer{$name}{'answers'} }));
Line 1315  sub end_stringresponse { Line 1440  sub end_stringresponse {
     }      }
  }   }
     } elsif ($target eq 'answer' || $target eq 'analyze') {      } elsif ($target eq 'answer' || $target eq 'analyze') {
  &add_in_tag_answer($parstack,$safeeval);          my $stringify;
           if ($type ne 're') {
               $stringify = 1;
           }
    &add_in_tag_answer($parstack,$safeeval,$stringify);
  if ($target eq 'analyze') {   if ($target eq 'analyze') {
     push (@{ $Apache::lonhomework::analyze{"parts"} },"$part.$id");      push (@{ $Apache::lonhomework::analyze{"parts"} },"$part.$id");
     $Apache::lonhomework::analyze{"$part.$id.type"} = 'stringresponse';      $Apache::lonhomework::analyze{"$part.$id.type"} = 'stringresponse';
Line 1380  sub end_stringresponse { Line 1509  sub end_stringresponse {
     }      }
     if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||       if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || 
  $target eq 'tex' || $target eq 'analyze') {   $target eq 'tex' || $target eq 'analyze') {
  &Apache::lonxml::increment_counter(&Apache::response::repetition(),          my $repetition = &Apache::response::repetition();
    "$part.$id");   &Apache::lonxml::increment_counter($repetition,"$part.$id");
  if ($target eq 'analyze') {   if ($target eq 'analyze') {
     &Apache::lonhomework::set_bubble_lines();      &Apache::lonhomework::set_bubble_lines();
  }   }
Removed from v.1.246  
changed lines
  Added in v.1.264

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