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.116, 2005/03/28 23:19:45
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 515 sub showallfoils {	Line 513 sub showallfoils {
if (defined($ENV{'form.showallfoils'})) {	if (defined($ENV{'form.showallfoils'})) {
my ($symb)=&Apache::lonxml::whichuser();	my ($symb)=&Apache::lonxml::whichuser();
if ($ENV{'request.state'} eq 'construct' \|\|	if ($ENV{'request.state'} eq 'construct' \|\|
($ENV{'user.adv'} && $symb eq '')) {	$ENV{'user.adv'} ) {
return 1;	return 1;
}	}
}	}
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__