loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.97, 2003/05/09 22:24:05	version 1.98, 2003/05/13 15:27:45
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.print_answer'} eq 'yes') {
	$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.print_answer'} eq 'yes') {
"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);