Diff for /loncom/homework/caparesponse/caparesponse.pm between versions 1.168 and 1.169

version 1.168, 2005/05/23 21:18:25 version 1.169, 2005/06/20 21:30:22
Line 352  sub end_numericalresponse { Line 352  sub end_numericalresponse {
  #}   #}
     }      }
     my $response=$ans;      my $response=$ans;
       if ($unit) {
    my $cleanunit=$unit;
    $cleanunit=~s/\$\,//g;
    $response.=" $cleanunit";
       }
     if ($target eq 'answer') {      if ($target eq 'answer') {
  if ($high && $tag eq 'numericalresponse') { $ans.=' ['.$low.','.$high.']'; }   if ($high && $tag eq 'numericalresponse') { $ans.=' ['.$low.','.$high.']'; }
  if (defined($sighigh) && $tag eq 'numericalresponse') {   if (defined($sighigh) && $tag eq 'numericalresponse') {

Removed from v.1.168  
changed lines
  Added in v.1.169


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