version 1.147, 2004/06/04 22:56:45
|
version 1.150, 2004/06/29 22:42:50
|
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; |
} |
} |
Line 552 sub start_stringresponse {
|
Line 553 sub start_stringresponse {
|
my $result; |
my $result; |
my $id = &Apache::response::start_response($parstack,$safeeval); |
my $id = &Apache::response::start_response($parstack,$safeeval); |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
&Apache::response::start_response($parstack,$safeeval); |
|
$result=&Apache::response::meta_package_write('stringresponse'); |
$result=&Apache::response::meta_package_write('stringresponse'); |
&Apache::response::end_response(); |
|
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::text_arg('Answer:','answer',$token); |
$result.=&Apache::edit::text_arg('Answer:','answer',$token); |