loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.112, 2004/12/23 22:53:41	version 1.114, 2005/02/24 00:36:10
Line 431 sub end_responseparam {	Line 431 sub end_responseparam {
}	}

sub start_parameter {	sub start_parameter {
my $result = &start_responseparam(@_);	return &start_responseparam(@_);
return $result;
}	}

sub end_parameter {	sub end_parameter {
my $result = &end_responseparam(@_);	return &end_responseparam(@_);
return $result;
}	}

sub reset_params {	sub reset_params {
Line 715 sub get_response_param {	Line 713 sub get_response_param {
return $parameter;	return $parameter;
}	}

	sub submitted {
	my ($who)=@_;

	# when scatron grading any submission is a submission
	if ($ENV{'form.submitted'} eq 'scantron') { return 1; }
	# if the caller only cared if this was a scantron submission
	if ($who eq 'scantron') { return 0; }
	# if the Submit Answer button for this particular part was pressed
	my $partid=$Apache::inputtags::part;
	if (defined($ENV{'form.submit_'.$partid})) { return 1; }
	# otherwise no submission occured
	return 0;
	}
1;	1;
__END__	__END__