--- loncom/homework/radiobuttonresponse.pm	2003/10/13 19:25:30	1.74
+++ loncom/homework/radiobuttonresponse.pm	2003/10/27 19:27:09	1.78
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # mutliple choice style responses
 #
-# $Id: radiobuttonresponse.pm,v 1.74 2003/10/13 19:25:30 albertel Exp $
+# $Id: radiobuttonresponse.pm,v 1.78 2003/10/27 19:27:09 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -25,7 +25,6 @@
 #
 # http://www.lon-capa.org/
 #
-# 2/21 Guy
 
 package Apache::radiobuttonresponse;
 use strict;
@@ -73,6 +72,9 @@ sub start_radiobuttonresponse {
 	  $result .= ' \renewcommand{\labelenumi}{\roman{enumi}.}';
       }
       $result .= '\begin{enumerate}';
+  } elsif ($target eq 'analyze') {
+      my $part_id="$Apache::inputtags::part.$id";
+      push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
   }
   return $result;
 }
@@ -152,9 +154,9 @@ 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') {
+  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' ) {
+    if ( $style eq 'survey'  && $target ne 'analyze') {
       if ($target eq 'web' || $target eq 'answer' || $target eq 'tex') {
 	$result=&displayallfoils();
       } elsif ( $target eq 'grade' ) {
@@ -171,6 +173,9 @@ sub end_foilgroup {
 	$result=&displayanswers($max,$randomize);
       } elsif ( $target eq 'grade') {
 	&grade_response($max,$randomize);
+      }  elsif ( $target eq 'analyze') {
+	  my @shown = &whichfoils($max,$randomize);
+	  &Apache::response::analyze_store_foilgroup(\@shown,['text','value']);
       }
     }
   }
@@ -454,23 +459,12 @@ sub end_conceptgroup {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   $Apache::radiobuttonresponse::conceptgroup=0;
   my $result;
-  if ($target eq 'web' || $target eq 'grade' || $target eq 'answer'  || $target eq 'tex') {
-    if (defined(@{ $Apache::response::conceptgroup{'names'} })) {
-      my @names = @{ $Apache::response::conceptgroup{'names'} };
-      my $pick=int(&Math::Random::random_uniform() * ($#names+1));
-      my $name=$names[$pick];
-      push @{ $Apache::response::foilgroup{'names'} }, $name;
-      $Apache::response::foilgroup{"$name.text"} =  $Apache::response::conceptgroup{"$name.text"};
-      $Apache::response::foilgroup{"$name.value"} = $Apache::response::conceptgroup{"$name.value"};
-      $Apache::response::foilgroup{"$name.location"} = $Apache::response::conceptgroup{"$name.location"};
-      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'};
-    }
+  if ($target eq 'web' || $target eq 'grade' || $target eq 'answer'  ||
+      $target eq 'tex' || $target eq 'analyze') {
+      &Apache::response::pick_foil_for_concept($target,
+					       ['value','text','location'],
+					       \%Apache::hint::radiobutton,
+					       $parstack,$safeeval);
   } elsif ($target eq 'edit') {
     $result=&Apache::edit::end_table();
   }
@@ -485,7 +479,7 @@ sub insert_conceptgroup {
 sub start_foil {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $result='';
-  if ($target eq 'web' || $target eq 'tex') {
+  if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') {
     &Apache::lonxml::startredirection;
   } elsif ($target eq 'edit') {
     $result=&Apache::edit::tag_start($target,$token);
@@ -510,8 +504,10 @@ sub start_foil {
 sub end_foil {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $text='';
-  if ($target eq 'web' || $target eq 'tex') { $text=&Apache::lonxml::endredirection; }
-  if ($target eq 'web' || $target eq 'grade' || $target eq 'answer'  || $target eq 'tex') {
+  if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') {
+      $text=&Apache::lonxml::endredirection;
+  }
+  if ($target eq 'web' || $target eq 'grade' || $target eq 'answer'  || $target eq 'tex' || $target eq 'analyze') {
     my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval);
     if ($value ne 'unused') {
       my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);