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; |
} |
} |