[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.99 and 1.101

version 1.99, 2003/05/13 15:47:45 version 1.101, 2003/05/14 13:33:00
Line 318  sub end_numericalresponse { Line 318  sub end_numericalresponse {
     }      }
     if ($target eq 'answer') {      if ($target eq 'answer') {
  if ($high) { $ans.=' ['.$low.','.$high.']'; }   if ($high) { $ans.=' ['.$low.','.$high.']'; }
  if ($sighigh) {    if ($sighigh) {
     if (($ENV{'form.print_answer'} eq 'yes') && ($ENV{'form.grade_target'} eq 'answer')) {      if ($ENV{'form.answer_output_mode'} eq 'tex') {
  $ans.= " Sig \\textit{$siglow - $sighigh}";    $ans.= " Sig \\textit{$siglow - $sighigh}";
     } else {      } else {
  $ans.= " Sig <i>$siglow - $sighigh</i>";    $ans.= " Sig <i>$siglow - $sighigh</i>";
     }      }
  }   }
  $result.=&Apache::response::answer_part($$tagstack[-1],$ans);   $result.=&Apache::response::answer_part($$tagstack[-1],$ans);
Line 336  sub end_numericalresponse { Line 336  sub end_numericalresponse {
  }   }
  if ($unit) {   if ($unit) {
     if ($target eq 'answer') {      if ($target eq 'answer') {
  if (($ENV{'form.print_answer'} eq 'yes') && ($ENV{'form.grade_target'} eq 'answer')) {   if ($ENV{'form.answer_output_mode'} eq 'tex') {
     $result.=&Apache::response::answer_part($$tagstack[-1],      $result.=&Apache::response::answer_part($$tagstack[-1],
     "Unit: \\verb|$unit|");      "Unit: \\verb|$unit|");
  } else {   } else {
Line 360  sub end_numericalresponse { Line 360  sub end_numericalresponse {
  $string='Formula';   $string='Formula';
     }      }
     if ($target eq 'answer') {      if ($target eq 'answer') {
  $result.=&Apache::response::answer_part($$tagstack[-1],   if ($ENV{'form.answer_output_mode'} eq 'tex') {
  '<b>'.$string.'</b>');      $result.=&Apache::response::answer_part($$tagstack[-1],
     "\\textbf{$string}");
    } else {
       $result.=&Apache::response::answer_part($$tagstack[-1],
       "<b>$string</b>");
    }
     } elsif ($target eq 'analyze') {      } elsif ($target eq 'analyze') {
  push (@{ $Apache::lonhomework::analyze{"$part_id.type"} },   push (@{ $Apache::lonhomework::analyze{"$part_id.type"} },
       $type);        $type);
Removed from v.1.99  
changed lines
  Added in v.1.101

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