loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.23, 2001/08/13 20:51:39	version 1.25, 2001/08/13 21:44:24
Line 12 sub BEGIN {	Line 12 sub BEGIN {
sub start_radiobuttonresponse {	sub start_radiobuttonresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
#when in a radiobutton response use these	#when in a radiobutton response use these
	my $result;
&Apache::lonxml::register('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup'));	&Apache::lonxml::register('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup'));
my $id = &Apache::response::start_response($parstack,$safeeval);	my $id = &Apache::response::start_response($parstack,$safeeval);
return '';	if ($target eq 'meta') {
	$result=&Apache::response::meta_package_write('radiobuttonresponse');
	}
	return $result;
}	}

sub end_radiobuttonresponse {	sub end_radiobuttonresponse {
Line 204 sub end_conceptgroup {	Line 208 sub end_conceptgroup {
}	}

sub start_foil {	sub start_foil {
&Apache::lonxml::startredirection;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	my $result='';
	if ($target eq 'web') { &Apache::lonxml::startredirection; }
return '';	return '';
}	}