version 1.71, 2003/04/18 07:12:13
|
version 1.72, 2003/04/21 20:59:02
|
Line 439 sub repetition {
|
Line 439 sub repetition {
|
return $repetition; |
return $repetition; |
} |
} |
|
|
|
sub scored_response { |
|
my ($part,$id)=@_; |
|
my $repetition=&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::lonhomework::results{"resource.$part.$id.awarded"}=$pcr; |
|
$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}= |
|
'ASSIGNED_SCORE'; |
|
return $repetition; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|