version 1.70, 2003/04/08 02:42:55
|
version 1.72, 2003/04/21 20:59:02
|
Line 417 sub getresponse {
|
Line 417 sub getresponse {
|
'P'=>15,'Q'=>16,'R'=>17,'S'=>18,'T'=>19,'U'=>20,'V'=>21, |
'P'=>15,'Q'=>16,'R'=>17,'S'=>18,'T'=>19,'U'=>20,'V'=>21, |
'W'=>22,'X'=>23,'Y'=>24,'Z'=>25); |
'W'=>22,'X'=>23,'Y'=>24,'Z'=>25); |
if ($ENV{'form.submitted'} eq 'scantron') { |
if ($ENV{'form.submitted'} eq 'scantron') { |
|
my $part = $Apache::inputtags::part; |
|
my $id = $Apache::inputtags::response[-1]; |
$response = $ENV{'scantron.'.($Apache::lonxml::counter+$temp-1). |
$response = $ENV{'scantron.'.($Apache::lonxml::counter+$temp-1). |
'.answer'}; |
'.answer'}; |
|
# save bubbled letter for later |
|
$Apache::lonhomework::results{"resource.$part.$id.scantron"}.= |
|
$response; |
$response = $let_to_num{$response}; |
$response = $let_to_num{$response}; |
} else { |
} else { |
$response = $ENV{$formparm}; |
$response = $ENV{$formparm}; |
} |
} |
return $response; |
return $response; |
} |
} |
|
|
|
sub repetition { |
|
my $id = $Apache::inputtags::part; |
|
my $weight = &Apache::lonnet::EXT("resource.$id.weight"); |
|
my $repetition = int $weight/9; |
|
if ($weight % 9 != 0) {$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__ |
|
|