loncom/homework/matchresponse.pm - diff

Return to matchresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.40, 2004/04/08 14:22:48	version 1.42, 2004/07/02 08:20:55
Line 232 sub start_foilgroup {	Line 232 sub start_foilgroup {
my $result;	my $result;
%Apache::response::foilgroup=();	%Apache::response::foilgroup=();
$Apache::matchresponse::conceptgroup=0;	$Apache::matchresponse::conceptgroup=0;
&Apache::response::setrandomnumber();	&Apache::response::pushrandomnumber();
if ($target eq 'edit') {	if ($target eq 'edit') {
$result.=&Apache::edit::start_table($token)	$result.=&Apache::edit::start_table($token)
."<tr><td>Collection Of Foils</td><td>Delete:"	."<tr><td>Collection Of Foils</td><td>Delete:"
Line 266 sub end_foilgroup {	Line 266 sub end_foilgroup {
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result=&Apache::edit::end_table();	$result=&Apache::edit::end_table();
}	}
	&Apache::response::poprandomnumber();
return $result;	return $result;
}	}

Line 463 sub displayfoils {	Line 464 sub displayfoils {
$question.='<br />'.$text."\n";	$question.='<br />'.$text."\n";
}	}
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {
$question.=&Apache::optionresponse::webbubbles(\@used_letters,\@used_letters,$temp,$last_letter);	my @blank;
	$question.=&Apache::optionresponse::webbubbles(\@used_letters,\@blank,$temp,$last_letter);
}	}
} else {	} else {
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {