loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.43, 2002/07/18 15:45:41	version 1.44, 2002/07/29 20:43:47
Line 76 sub end_optionresponse {	Line 76 sub end_optionresponse {
return $result;	return $result;
}	}

%Apache::response::foilgroup={};	%Apache::response::foilgroup=();
sub start_foilgroup {	sub start_foilgroup {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;

my $result='';	my $result='';
%Apache::response::foilgroup={};	%Apache::response::foilgroup=();
$Apache::optionresponse::conceptgroup=0;	$Apache::optionresponse::conceptgroup=0;
&Apache::response::setrandomnumber();	&Apache::response::setrandomnumber();
if ($target eq 'edit') {	if ($target eq 'edit') {
Line 334 sub displayfoils {	Line 334 sub displayfoils {
sub start_conceptgroup {	sub start_conceptgroup {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
$Apache::optionresponse::conceptgroup=1;	$Apache::optionresponse::conceptgroup=1;
%Apache::response::conceptgroup={};	%Apache::response::conceptgroup=();
my $result;	my $result;
if ($target eq 'edit') {	if ($target eq 'edit') {
$result.=&Apache::edit::tag_start($target,$token,"Concept Grouped Foils");	$result.=&Apache::edit::tag_start($target,$token,"Concept Grouped Foils");