loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.6, 2001/05/04 21:19:37	version 1.7, 2001/05/15 20:48:43
Line 13 sub start_optionresponse {	Line 13 sub start_optionresponse {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
#when in a radiobutton response use these	#when in a radiobutton response use these
&Apache::lonxml::register('Apache::optionresponse',('foilgroup','foil','conceptgroup'));	&Apache::lonxml::register('Apache::optionresponse',('foilgroup','foil','conceptgroup'));
	push (@Apache::lonxml::namespace,'optionresponse');
my $id = &Apache::response::start_response($parstack,$safeeval);	my $id = &Apache::response::start_response($parstack,$safeeval);
return '';	return '';
}	}

sub end_optionresponse {	sub end_optionresponse {
&Apache::response::end_response;	&Apache::response::end_response;
	pop @Apache::lonxml::namespace;
return '';	return '';
}	}

	sub insert_optionresponse {
	return '
	<optionresponse max="10">
	<foilgroup options=\"\">
	</foilgroup>
	</optionresponse>';
	}

%Apache::response::foilgroup={};	%Apache::response::foilgroup={};
sub start_foilgroup {	sub start_foilgroup {
%Apache::response::foilgroup={};	%Apache::response::foilgroup={};
Line 193 sub end_foil {	Line 203 sub end_foil {
return '';	return '';
}	}

	sub insert_foil {
	return '
	<foil name="" value="">
	</foil>';
	}
1;	1;
__END__	__END__