version 1.70, 2003/04/08 02:42:55
|
version 1.71, 2003/04/18 07:12:13
|
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; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|