loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.98, 2005/01/10 19:21:57	version 1.99, 2005/01/31 22:00:40
Line 114 sub start_foilgroup {	Line 114 sub start_foilgroup {
}	}

sub storesurvey {	sub storesurvey {
if ( !defined($ENV{'form.submitted'})) { return ''; }	if ( !&Apache::response::submitted() ) { return ''; }
my $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1']};	my $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1']};
&Apache::lonxml::debug("Here I am!:$response:");	&Apache::lonxml::debug("Here I am!:$response:");
if ( $response !~ /[0-9]+/) { return ''; }	if ( $response !~ /[0-9]+/) { return ''; }
Line 137 sub grade_response {	Line 137 sub grade_response {
my ($max,$randomize)=@_;	my ($max,$randomize)=@_;
#keep the random numbers the same must always call this	#keep the random numbers the same must always call this
my ($answer,@whichfoils)=&whichfoils($max,$randomize);	my ($answer,@whichfoils)=&whichfoils($max,$randomize);
if (!defined($ENV{'form.submitted'})) { return; }	if ( !&Apache::response::submitted() ) { return; }
my $response;	my $response;
if ($ENV{'form.submitted'} eq 'scantron') {	if ($ENV{'form.submitted'} eq 'scantron') {
$response=&Apache::response::getresponse();	$response=&Apache::response::getresponse();