loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.28, 2001/12/07 23:58:35	version 1.29, 2001/12/14 23:00:52
Line 37 sub BEGIN {	Line 37 sub BEGIN {
sub start_optionresponse {	sub start_optionresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result='';	my $result='';
#when in a radiobutton response use these	#when in a option response use these
&Apache::lonxml::register('Apache::optionresponse',('foilgroup','foil','conceptgroup'));	&Apache::lonxml::register('Apache::optionresponse',('foilgroup','foil','conceptgroup'));
push (@Apache::lonxml::namespace,'optionresponse');	push (@Apache::lonxml::namespace,'optionresponse');
my $id = &Apache::response::start_response($parstack,$safeeval);	my $id = &Apache::response::start_response($parstack,$safeeval);
Line 65 sub end_optionresponse {	Line 65 sub end_optionresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
&Apache::response::end_response;	&Apache::response::end_response;
pop @Apache::lonxml::namespace;	pop @Apache::lonxml::namespace;
	&Apache::lonxml::deregister('Apache::optionresponse',('foilgroup','foil','conceptgroup'));
my $result;	my $result;
if ($target eq 'edit') { $result=&Apache::edit::end_table(); }	if ($target eq 'edit') { $result=&Apache::edit::end_table(); }
return $result;	return $result;