loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.11, 2001/02/05 18:19:28	version 1.12, 2001/02/19 20:36:49
Line 58 sub end_foilgroup {	Line 58 sub end_foilgroup {
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
my $id = $Apache::inputtags::response['-1'];	my $id = $Apache::inputtags::response['-1'];
$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=$response;	$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=$response;
&Apache::lonxml::debug("submitted a $response<br>\n");	&Apache::lonxml::debug("submitted a $response<br />\n");
if ($response == $answer) {	if ($response == $answer) {
$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}='EXACT_ANS';	$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}='EXACT_ANS';
} else {	} else {
Line 100 sub displayfoils {	Line 100 sub displayfoils {
my $name;	my $name;

foreach $name (@names) {	foreach $name (@names) {
#result.="<br><b>$name</b> is <i> $Apache::response::foilgroup{$name.'.value'} </i>";	#result.="<br /><b>$name</b> is <i> $Apache::response::foilgroup{$name.'.value'} </i>";
if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {	if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
push (@truelist,$name);	push (@truelist,$name);
} elsif ($Apache::response::foilgroup{$name.'.value'} eq 'false') {	} elsif ($Apache::response::foilgroup{$name.'.value'} eq 'false') {