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

Diff for /loncom/homework/response.pm between versions 1.228 and 1.230

version 1.228, 2011/11/29 13:24:38 version 1.230, 2011/12/15 01:21:28
Line 491  sub end_customresponse { Line 491  sub end_customresponse {
  $result .= &Apache::response::answer_footer('customresponse');   $result .= &Apache::response::answer_footer('customresponse');
     }      }
     if ($target eq 'web') {      if ($target eq 'web') {
  &setup_prior_tries_hash(\&format_prior_response_math);   &setup_prior_tries_hash(\&format_prior_response_custom);
     }      }
     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') {
Line 512  sub end_customresponse { Line 512  sub end_customresponse {
   
 sub format_prior_response_custom {  sub format_prior_response_custom {
     my ($mode,$answer) =@_;      my ($mode,$answer) =@_;
       if (ref($answer) eq 'ARRAY') {
           $answer = '('.join(', ', @{ $answer }).')';
       }
     return '<span class="LC_prior_custom">'.      return '<span class="LC_prior_custom">'.
     &HTML::Entities::encode($answer,'"<>&').'</span>';      &HTML::Entities::encode($answer,'"<>&').'</span>';
 }  }
Line 1186  sub show_answer { Line 1189  sub show_answer {
     my $status = $Apache::inputtags::status[-1];      my $status = $Apache::inputtags::status[-1];
     my $canshow = 0;      my $canshow = 0;
     if ($award =~ /^correct/) {      if ($award =~ /^correct/) {
         if ((&Apache::inputtags::grading_is_nonlenient($part)) ||          if (($Apache::lonhomework::history{"resource.$part.awarded"} >= 1) ||
             ($Apache::lonhomework::history{"resource.$part.awarded"} == 1)) {              (&Apache::lonnet::EXT("resource.$part.retrypartial") !~/^1|on|yes$/)) {
             $canshow = 1;              $canshow = 1;
         }             }   
     }      }
Removed from v.1.228  
changed lines
  Added in v.1.230

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