--- loncom/homework/radiobuttonresponse.pm	2003/10/27 19:27:09	1.78
+++ loncom/homework/radiobuttonresponse.pm	2003/10/27 20:04:34	1.79
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # mutliple choice style responses
 #
-# $Id: radiobuttonresponse.pm,v 1.78 2003/10/27 19:27:09 albertel Exp $
+# $Id: radiobuttonresponse.pm,v 1.79 2003/10/27 20:04:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -154,7 +154,8 @@ sub end_foilgroup {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
 
   my $result;
-  if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || $target eq 'tex' || $target eq 'analyze') {
+  if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||
+      $target eq 'tex' || $target eq 'analyze') {
     my $style = $Apache::lonhomework::type;
     if ( $style eq 'survey'  && $target ne 'analyze') {
       if ($target eq 'web' || $target eq 'answer' || $target eq 'tex') {
@@ -175,7 +176,11 @@ sub end_foilgroup {
 	&grade_response($max,$randomize);
       }  elsif ( $target eq 'analyze') {
 	  my @shown = &whichfoils($max,$randomize);
-	  &Apache::response::analyze_store_foilgroup(\@shown,['text','value']);
+	  &Apache::response::analyze_store_foilgroup(\@shown,
+						  ['text','value','location']);
+	  my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";
+	  push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },
+		('true','false'));
       }
     }
   }