loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

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;