|
version 1.156, 2004/10/21 02:43:34
|
version 1.157, 2004/10/21 03:24:23
|
|
Line 609 sub end_stringresponse {
|
Line 609 sub end_stringresponse {
|
| if ($Apache::lonhomework::type eq 'exam' || |
if ($Apache::lonhomework::type eq 'exam' || |
| $ENV{'form.submitted'} eq 'scantron') { |
$ENV{'form.submitted'} eq 'scantron') { |
| $increment=&Apache::response::scored_response($part,$id); |
$increment=&Apache::response::scored_response($part,$id); |
| |
} elsif ($Apache::lonhomework::type eq 'survey') { |
| |
if ( !defined($ENV{'form.submitted'})) { return ''; } |
| |
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]/) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to caparesponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework / caparesponse