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

version 1.97, 2003/05/09 22:24:05 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) { $ans.= " Sig <i>$siglow - $sighigh</i>"; }   if ($sighigh) {
       if ($ENV{'form.answer_output_mode'} eq 'tex') {
    $ans.= " Sig \\textit{$siglow - $sighigh}";
       } else {
    $ans.= " Sig <i>$siglow - $sighigh</i>";
       }
    }
  $result.=&Apache::response::answer_part($$tagstack[-1],$ans);   $result.=&Apache::response::answer_part($$tagstack[-1],$ans);
     } elsif ($target eq 'analyze') {      } elsif ($target eq 'analyze') {
  push (@{ $Apache::lonhomework::analyze{"$part_id.answer"} }, $ans);   push (@{ $Apache::lonhomework::analyze{"$part_id.answer"} }, $ans);
Line 330  sub end_numericalresponse { Line 336  sub end_numericalresponse {
  }   }
  if ($unit) {   if ($unit) {
     if ($target eq 'answer') {      if ($target eq 'answer') {
  $result.=&Apache::response::answer_part($$tagstack[-1],   if ($ENV{'form.answer_output_mode'} eq 'tex') {
  "Unit: <b>$unit</b>");      $result.=&Apache::response::answer_part($$tagstack[-1],
       "Unit: \\verb|$unit|");
    } else {
       $result.=&Apache::response::answer_part($$tagstack[-1],
       "Unit: <b>$unit</b>");
    }
     } elsif ($target eq 'analyze') {      } elsif ($target eq 'analyze') {
  push (@{ $Apache::lonhomework::analyze{"$part_id.unit"} },   push (@{ $Apache::lonhomework::analyze{"$part_id.unit"} },
       $unit);        $unit);
Line 349  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.97  
changed lines
  Added in v.1.101

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