version 1.27, 2003/04/18 07:12:13
|
version 1.28, 2003/04/18 08:00:04
|
Line 99 sub end_essayresponse {
|
Line 99 sub end_essayresponse {
|
if ($collaborators ne $previous_list); |
if ($collaborators ne $previous_list); |
} |
} |
if ( defined($ENV{'form.submitted'}) && |
if ( defined($ENV{'form.submitted'}) && |
$ENV{'form.submitted'}='scantron' ) { |
$ENV{'form.submitted'} eq 'scantron' ) { |
my $repetition=&Apache::response::repetition(); |
my $repetition=&Apache::response::repetition(); |
$increment=$repetition; |
$increment=$repetition; |
|
my $score=0; |
|
for (my $i=0;$i<$repetition;$i++) { |
|
my $increase=&Apache::response::getresponse($i+1); |
|
if ($increase ne '') { $score+=$increase+1; } |
|
} |
|
my $weight = &Apache::lonnet::EXT("resource.$id.weight"); |
|
my $pcr=$score/$weight; |
|
#FIXME, won't work for multiple essay in a single part |
|
$Apache::lonhomewok::results{"resource.$id.awarded"}; |
} 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'}; |