--- loncom/homework/radiobuttonresponse.pm	2001/08/06 20:33:23	1.22
+++ loncom/homework/radiobuttonresponse.pm	2001/08/13 21:44:24	1.25
@@ -12,9 +12,13 @@ sub BEGIN {
 sub start_radiobuttonresponse {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   #when in a radiobutton response use these
+  my $result;
   &Apache::lonxml::register('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup'));
   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 {
@@ -48,7 +52,7 @@ sub end_foilgroup {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   
   my $result;
-  if ($target ne 'meta') {
+  if ($target eq 'grade' || $target eq 'web') {
     my $style = &Apache::lonxml::get_param('style',$parstack,$safeeval,'-2');
     if ( $style eq 'survey' ) {
       if ($target eq 'web') {
@@ -204,7 +208,9 @@ sub end_conceptgroup {
 }
 
 sub start_foil {
-  &Apache::lonxml::startredirection;
+  my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
+  my $result='';
+  if ($target eq 'web') { &Apache::lonxml::startredirection; }
   return '';
 }