version 1.1, 2001/04/04 19:17:50
|
version 1.2, 2001/04/05 00:07:53
|
Line 19 sub end_essayresponse {
|
Line 19 sub end_essayresponse {
|
if ( $target eq 'grade' ) { |
if ( $target eq 'grade' ) { |
if ( defined $ENV{'form.submitted'}) { |
if ( defined $ENV{'form.submitted'}) { |
my $id = $Apache::inputtags::response['-1']; |
my $id = $Apache::inputtags::response['-1']; |
$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=$response; |
my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']}; |
$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}="SUBMITTED"; |
if ( $response =~ /[^\s]/) { |
|
$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=$response; |
|
$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}="SUBMITTED"; |
|
} |
} |
} |
} |
} |
|
|
&Apache::response::end_response; |
&Apache::response::end_response; |
return ''; |
return ''; |
} |
} |
|
|
|
1; |
|
__END__ |