loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

-version 1.185, 2005/12/06 10:16:56
+version 1.186, 2005/12/28 21:26:21
  Line 191  sub start_numericalresponse {
  						    $safeeval);
  	    for (my $i=0; $i <= $#answers; $i++) {
  		my $answer=$answers[$i];
- 		my $format;
+ 		if ( scalar(@$tagstack)
- 		if ($#formats > 0) {
+ 		     && $tagstack->[-1] ne 'numericalresponse') {
- 		    $format=$formats[$i];
+ 		    $answertxt.=$answer.',';
  		} else {
- 		    $format=$formats[0];
+ 		    my $format;
+ 		    if ($#formats > 0) {
+ 			$format=$formats[$i];
+ 		    } else {
+ 			$format=$formats[0];
+ 		    }
+ 		    if ($unit=~/\$/) { $format="\$".$format; $unit=~s/\$//g; }
+ 		    if ($unit=~/\,/) { $format="\,".$format; $unit=~s/\,//g; }
+ 		    my $formatted=&format_number($answer,$format,$target,
+ 						 $safeeval);
+ 		    $answertxt.=$formatted.',';
  		}
- 		if ($unit=~/\$/) { $format="\$".$format; $unit=~s/\$//g; }
- 		if ($unit=~/\,/) { $format="\,".$format; $unit=~s/\,//g; }
- 		my $formatted=&format_number($answer,$format,$target,
- 					     $safeeval);
- 		$answertxt.=$formatted.',';
  	    }
  	    chop $answertxt;
  	    if ($target eq 'web') {