loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.173, 2005/07/11 18:24:12	version 1.174, 2005/07/11 18:35:23
Line 353 sub end_numericalresponse {	Line 353 sub end_numericalresponse {
#}	#}
}	}
my $response=$ans;	my $response=$ans;
if ($unit) {	my $hideunit=&Apache::lonnet::EXT('resource.'.$partid.'_'.
	$id.'.turnoffunit');
	if ($unit ne '' &&
	! ($Apache::lonhomework::type eq 'exam' \|\|
	lc($hideunit) eq "yes") ) {
my $cleanunit=$unit;	my $cleanunit=$unit;
$cleanunit=~s/\$\,//g;	$cleanunit=~s/\$\,//g;
$response.=" $cleanunit";	$response.=" $cleanunit";