--- loncom/homework/radiobuttonresponse.pm	2002/10/17 14:40:23	1.56
+++ loncom/homework/radiobuttonresponse.pm	2002/10/25 19:02:38	1.58
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # mutliple choice style responses
 #
-# $Id: radiobuttonresponse.pm,v 1.56 2002/10/17 14:40:23 sakharuk Exp $
+# $Id: radiobuttonresponse.pm,v 1.58 2002/10/25 19:02:38 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -42,6 +42,7 @@ sub start_radiobuttonresponse {
   &Apache::lonxml::register('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup'));
   push (@Apache::lonxml::namespace,'radiobuttonresponse');
   my $id = &Apache::response::start_response($parstack,$safeeval);
+  %Apache::hint::radiobutton=();
   if ($target eq 'meta') {
     $result=&Apache::response::meta_package_write('radiobuttonresponse');
   } elsif ($target eq 'edit' ) {
@@ -86,10 +87,7 @@ sub start_foilgroup {
   &Apache::response::setrandomnumber();
   if ($target eq 'tex' && $Apache::lonhomework::type eq 'exam') {
       $result.='\item[\textbf{'.$Apache::lonxml::counter.'}.]';
-      $Apache::lonxml::counter++;
-      my %moreenv;
-      $moreenv{'form.counter'}=$Apache::lonxml::counter;
-      &Apache::lonnet::appenv(%moreenv);
+      &Apache::lonxml::increment_counter();
   }
   return $result;
 }
@@ -386,7 +384,7 @@ sub displayfoils {
 	  }
       } else {
 	  if ($Apache::lonhomework::type eq 'exam') {
-	      $result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\';
+	      $result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\';  #' stupid emacs
 	      $i++;
 	  } else {
 	      $result .= '\item '.$Apache::response::foilgroup{$name.'.text'};
@@ -444,6 +442,10 @@ sub end_conceptgroup {
       my $concept = &Apache::lonxml::get_param('concept',$parstack,$safeeval);
       $Apache::response::foilgroup{"$name.concept"} = $concept;
       &Apache::lonxml::debug("Selecting $name in $concept");
+      my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";
+      push(@{ $Apache::hint::radiobutton{"$part_id.concepts"} },$concept);
+      $Apache::hint::radiobutton{"$part_id.concept.$concept"}=
+	  $Apache::response::conceptgroup{'names'};
     }
   } elsif ($target eq 'edit') {
     $result=&Apache::edit::end_table();