version 1.120, 2005/04/07 06:56:22
|
version 1.121, 2005/06/17 20:17:02
|
Line 573 sub getresponse {
|
Line 573 sub getresponse {
|
sub repetition { |
sub repetition { |
my $id = $Apache::inputtags::part; |
my $id = $Apache::inputtags::part; |
my $weight = &Apache::lonnet::EXT("resource.$id.weight"); |
my $weight = &Apache::lonnet::EXT("resource.$id.weight"); |
|
if (!defined($weight) || ($weight eq '')) { $weight=1; } |
my $repetition = int $weight/9; |
my $repetition = int $weight/9; |
if ($weight % 9 != 0) {$repetition++;} |
if ($weight % 9 != 0) {$repetition++;} |
return $repetition; |
return $repetition; |