loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.163, 2005/02/21 20:29:00	version 1.164, 2005/02/21 20:39:46
Line 613 sub end_stringresponse {	Line 613 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]/) {