loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.158, 2006/12/18 21:37:47	version 1.159, 2007/02/24 01:44:14
Line 1026 sub submitted {	Line 1026 sub submitted {
if ($who eq 'scantron') { return 0; }	if ($who eq 'scantron') { return 0; }
# 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 ($env{'form.submitted'} eq "part_$partid") {
	return 1;
	}
	if ($env{'form.submitted'} eq "yes"
	&& defined($env{'form.submit_'.$partid})) {
	return 1;
	}
# Submit All button on a .page was pressed	# Submit All button on a .page was pressed
if (defined($env{'form.all_submit'})) { return 1; }	if (defined($env{'form.all_submit'})) { return 1; }
# otherwise no submission occured	# otherwise no submission occured