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.122, 2005/06/29 19:20:10
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;
Line 738 sub submitted {	Line 739 sub submitted {
# if the Submit Answer button for this particular part was pressed	# if the Submit Answer button for this particular part was pressed
my $partid=$Apache::inputtags::part;	my $partid=$Apache::inputtags::part;
if (defined($env{'form.submit_'.$partid})) { return 1; }	if (defined($env{'form.submit_'.$partid})) { return 1; }
	# Submit All button on a .page was pressed
	if (defined($env{'form.all_submit'})) { return 1; }
# otherwise no submission occured	# otherwise no submission occured
return 0;	return 0;
}	}