version 1.28, 2003/04/18 08:00:04
|
version 1.29, 2003/04/18 22:27:28
|
Line 110 sub end_essayresponse {
|
Line 110 sub end_essayresponse {
|
my $weight = &Apache::lonnet::EXT("resource.$id.weight"); |
my $weight = &Apache::lonnet::EXT("resource.$id.weight"); |
my $pcr=$score/$weight; |
my $pcr=$score/$weight; |
#FIXME, won't work for multiple essay in a single part |
#FIXME, won't work for multiple essay in a single part |
$Apache::lonhomewok::results{"resource.$id.awarded"}; |
$Apache::lonhomewok::results{"resource.$id.awarded"}=$pcr; |
} elsif ( defined($ENV{'form.submitted'}) ) { |
} elsif ( defined($ENV{'form.submitted'}) ) { |
my $response = $ENV{'form.HWVAL_'.$id}; |
my $response = $ENV{'form.HWVAL_'.$id}; |
my $filename= $ENV{'form.HWFILE'.$part.'_'.$id.'.filename'}; |
my $filename= $ENV{'form.HWFILE'.$part.'_'.$id.'.filename'}; |