version 1.163, 2005/02/21 20:29:00
|
version 1.165, 2005/02/23 23:41:23
|
Line 361 sub end_numericalresponse {
|
Line 361 sub end_numericalresponse {
|
push (@{ $Apache::lonhomework::analyze{"$part_id.ans_high"} }, $high); |
push (@{ $Apache::lonhomework::analyze{"$part_id.ans_high"} }, $high); |
push (@{ $Apache::lonhomework::analyze{"$part_id.ans_low"} }, $low); |
push (@{ $Apache::lonhomework::analyze{"$part_id.ans_low"} }, $low); |
} |
} |
|
if ($fmt) { |
|
push (@{ $Apache::lonhomework::analyze{"$part_id.format"} }, $fmt); |
|
} |
} |
} |
} |
} |
if (defined($unit) and ($unit ne '') and |
if (defined($unit) and ($unit ne '') and |
Line 613 sub end_stringresponse {
|
Line 616 sub end_stringresponse {
|
if ($Apache::lonhomework::type eq 'exam' || |
if ($Apache::lonhomework::type eq 'exam' || |
&Apache::response::submitted('scantron')) { |
&Apache::response::submitted('scantron')) { |
$increment=&Apache::response::scored_response($part,$id); |
$increment=&Apache::response::scored_response($part,$id); |
} elsif (0 && $Apache::lonhomework::type eq 'survey') { |
|
my $response = &Apache::response::getresponse(); |
|
if ( $response =~ /[^\s]/) { |
|
my %previous=&Apache::response::check_for_previous($response, |
|
$part,$id); |
|
$Apache::lonhomework::results{"resource.$part.$id.submission"}= |
|
$response; |
|
my $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='SUBMITTED'; |
|
&Apache::response::handle_previous(\%previous,$ad); |
|
} |
|
} else { |
} else { |
my $response = &Apache::response::getresponse(); |
my $response = &Apache::response::getresponse(); |
if ( $response =~ /[^\s]/) { |
if ( $response =~ /[^\s]/) { |