version 1.146, 2004/06/04 22:06:07
|
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 517 sub get_tolrange {
|
Line 518 sub get_tolrange {
|
sub get_sigrange { |
sub get_sigrange { |
my ($sig)=@_; |
my ($sig)=@_; |
&Apache::lonxml::debug("Got a sig of :$sig:"); |
&Apache::lonxml::debug("Got a sig of :$sig:"); |
|
my $courseid=$ENV{'request.course.id'}; |
|
if (lc($ENV{"course.$courseid.disablesigfigs"}) eq 'yes') { |
|
return (15,0); |
|
} |
my $sig_lbound; |
my $sig_lbound; |
my $sig_ubound; |
my $sig_ubound; |
if ($sig eq '') { |
if ($sig eq '') { |
Line 548 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); |