version 1.71, 2002/11/08 20:36:27
|
version 1.74, 2002/11/27 16:50:09
|
Line 113 sub start_numericalresponse {
|
Line 113 sub start_numericalresponse {
|
} |
} |
} elsif ($target eq 'meta') { |
} elsif ($target eq 'meta') { |
$result=&Apache::response::meta_package_write('numericalresponse'); |
$result=&Apache::response::meta_package_write('numericalresponse'); |
|
} elsif ($target eq 'answer' || $target eq 'grade') { |
|
&Apache::response::reset_params(); |
} |
} |
return $result; |
return $result; |
} |
} |
Line 120 sub start_numericalresponse {
|
Line 122 sub start_numericalresponse {
|
sub end_numericalresponse { |
sub end_numericalresponse { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result = ''; |
my $result = ''; |
|
if (!$Apache::lonxml::default_homework_loaded) { |
|
&Apache::lonxml::default_homework_load($safeeval); |
|
} |
if ( $target eq 'grade' ) { |
if ( $target eq 'grade' ) { |
if ( defined $ENV{'form.submitted'}) { |
if ( defined $ENV{'form.submitted'}) { |
&Apache::response::setup_params($$tagstack[-1]); |
&Apache::response::setup_params($$tagstack[-1]); |
Line 355 sub end_numericalresponse {
|
Line 360 sub end_numericalresponse {
|
} |
} |
} |
} |
if ($target eq 'answer') { |
if ($target eq 'answer') { |
if ($high) { $ans.=' ['.$low.','.$high.'] '; } |
if ($high) { $ans.=' ['.$low.','.$high.']'; } |
if ($sighigh) { $ans.= "Sig <i>$siglow - $sighigh</i>"; } |
if ($sighigh) { $ans.= " Sig <i>$siglow - $sighigh</i>"; } |
$result.=&Apache::response::answer_part($$tagstack[-1],$ans); |
$result.=&Apache::response::answer_part($$tagstack[-1],$ans); |
} elsif ($target eq 'analyze') { |
} elsif ($target eq 'analyze') { |
push (@{ $Apache::lonhomework::analyze{"$part_id.answer"} }, |
push (@{ $Apache::lonhomework::analyze{"$part_id.answer"} }, |