[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.212 and 1.214

version 1.212, 2007/04/17 23:25:24 version 1.214, 2007/05/22 00:45:43
Line 465  sub add_in_tag_answer { Line 465  sub add_in_tag_answer {
     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 && defined($answer[0])) {      if (@answer && $answer[0] =~ /\S/) {
  $answer{$tag_internal_answer_name}= {'type' => 'ordered',   $answer{$tag_internal_answer_name}= {'type' => 'ordered',
      'answers' => [\@answer] };       'answers' => [\@answer] };
     }      }
Line 794  sub end_numericalresponse { Line 794  sub end_numericalresponse {
   
 sub format_prior_response_numerical {  sub format_prior_response_numerical {
     my ($mode,$answer) = @_;      my ($mode,$answer) = @_;
     #FIXME needs to support multianswer modes      if (ref($answer)) {
    my $result = '<table class="LC_prior_numerical"><tr>';
    foreach my $element (@{ $answer }) {
       $result.= '<td><span class="LC_prior_numerical">'.
    &HTML::Entities::encode($element,'"<>&').'</span></td>';
    }
    $result.='</tr></table>';
    return $result;
       }
     return '<span class="LC_prior_numerical">'.      return '<span class="LC_prior_numerical">'.
     &HTML::Entities::encode($answer,'"<>&').'</span>';      &HTML::Entities::encode($answer,'"<>&').'</span>';
   
Line 819  sub check_for_answer_errors { Line 827  sub check_for_answer_errors {
     use Data::Dumper;      use Data::Dumper;
     &Apache::lonxml::debug("count dump is ".&Dumper(\%counts));      &Apache::lonxml::debug("count dump is ".&Dumper(\%counts));
     my $expected_number_of_inputs = (keys(%counts))[0];      my $expected_number_of_inputs = (keys(%counts))[0];
     if ( $expected_number_of_inputs != scalar(@Apache::inputtags::inputlist)) {      if ( $expected_number_of_inputs > 0 
    && $expected_number_of_inputs != scalar(@Apache::inputtags::inputlist)) {
  &Apache::lonxml::error(&mt("Expected [_1] input fields, but there were only [_2] seen.",    &Apache::lonxml::error(&mt("Expected [_1] input fields, but there were only [_2] seen.", 
    $expected_number_of_inputs,     $expected_number_of_inputs,
    scalar(@Apache::inputtags::inputlist)));     scalar(@Apache::inputtags::inputlist)));
Removed from v.1.212  
changed lines
  Added in v.1.214

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