|
version 1.30, 2003/04/19 09:00:54
|
version 1.31, 2003/04/21 20:59:02
|
|
Line 100 sub end_essayresponse {
|
Line 100 sub end_essayresponse {
|
| } |
} |
| if ( defined($ENV{'form.submitted'}) && |
if ( defined($ENV{'form.submitted'}) && |
| $ENV{'form.submitted'} eq 'scantron' ) { |
$ENV{'form.submitted'} eq 'scantron' ) { |
| my $repetition=&Apache::response::repetition(); |
$increment=&Apache::response::scored_response($part,$id); |
| $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.$part.weight"); |
|
| my $pcr=$score/$weight; |
|
| $Apache::lonhomewok::results{"resource.$part.$id.awarded"}=$pcr; |
|
| $Apache::lonhomewok::results{"resource.$part.$id.awarddetail"}='ASSIGNED_SCORE'; |
|
| } 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'}; |
![[BACK]](/icons/back.gif){kind=icon}
Return to essayresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework