loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.147, 2004/06/04 22:56:45	version 1.149, 2004/06/15 18:34:44
Line 45 sub start_numericalresponse {	Line 45 sub start_numericalresponse {
$result.=&Apache::edit::text_arg('Answer:','answer',$token);	$result.=&Apache::edit::text_arg('Answer:','answer',$token);
if ($token->[1] eq 'numericalresponse') {	if ($token->[1] eq 'numericalresponse') {
$result.=&Apache::edit::text_arg('Incorrect Answers:','incorrect',	$result.=&Apache::edit::text_arg('Incorrect Answers:','incorrect',
$token);	$token).
	&Apache::loncommon::help_open_topic('numerical_wrong_answers');
$result.=&Apache::edit::text_arg('Unit:','unit',$token,5).	$result.=&Apache::edit::text_arg('Unit:','unit',$token,5).
&Apache::loncommon::help_open_topic('Physical_Units');	&Apache::loncommon::help_open_topic('Physical_Units');
$result.=&Apache::edit::text_arg('Format:','format',$token,4).	$result.=&Apache::edit::text_arg('Format:','format',$token,4).
Line 115 sub start_numericalresponse {	Line 116 sub start_numericalresponse {
}	}
chop $answertxt;	chop $answertxt;
if ($target eq 'web') {	if ($target eq 'web') {
$answertxt.=" $unit.<br />";	$answertxt.=" $unit ";
}	}
$Apache::inputtags::answertxt{$id}=$answertxt;	$Apache::inputtags::answertxt{$id}=$answertxt;
}	}