--- loncom/homework/radiobuttonresponse.pm	2003/10/24 18:06:06	1.76
+++ loncom/homework/radiobuttonresponse.pm	2004/03/05 19:44:18	1.82
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # mutliple choice style responses
 #
-# $Id: radiobuttonresponse.pm,v 1.76 2003/10/24 18:06:06 sakharuk Exp $
+# $Id: radiobuttonresponse.pm,v 1.82 2004/03/05 19:44:18 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;
@@ -47,7 +46,9 @@ sub start_radiobuttonresponse {
     $result=&Apache::response::meta_package_write('radiobuttonresponse');
   } elsif ($target eq 'edit' ) {
     $result.=&Apache::edit::start_table($token).
-	'<tr><td>'.&Apache::lonxml::description($token)."</td><td>Delete:".
+	'<tr><td>'.&Apache::lonxml::description($token).
+	&Apache::loncommon::help_open_topic('Radio_Response_Problems').
+	"</td><td>Delete:".
 	&Apache::edit::deletelist($target,$token)
 	."</td><td>&nbsp".&Apache::edit::end_row()
         .&Apache::edit::start_spanning_row();
@@ -73,6 +74,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,14 +156,17 @@ 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 ($target eq 'web' || $target eq 'answer' || $target eq 'tex') {
-	$result=&displayallfoils();
-      } elsif ( $target eq 'grade' ) {
-	$result=&storesurvey();
-      }
+    if ( $style eq 'survey'  && $target ne 'analyze') {
+	if ($target eq 'web' || $target eq 'tex') {
+	    $result=&displayallfoils();
+	} elsif ( $target eq 'answer' ) {
+	    $result=&displayallanswers();
+	} elsif ( $target eq 'grade' ) {
+	    $result=&storesurvey();
+	}
     } else {
       my $name;
       my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2');
@@ -171,6 +178,13 @@ 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','location']);
+	  my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";
+	  push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },
+		('true','false'));
       }
     }
   }
@@ -321,7 +335,7 @@ sub whichfoils {
     &Apache::lonxml::debug("Answer wants $answer");
     my $truename=$truelist[$whichtrue];
     my $dosplice=1;
-    if ($notrue) {
+    if ($notrue && $Apache::lonhomework::type ne 'survey') {
 	$dosplice=0;
 	&Apache::lonxml::error("There are no true statements available.<br />");
     }
@@ -421,6 +435,18 @@ sub displayfoils {
   return $result;
 }
 
+sub displayallanswers {
+    my @names = @{ $Apache::response::foilgroup{'names'} };
+  
+    my $result=&Apache::response::answer_header('radiobuttonresponse');
+    foreach my $name (@names) {
+	$result.=&Apache::response::answer_part('radiobuttonresponse',
+				$Apache::response::foilgroup{$name.'.value'});
+    }
+    $result.=&Apache::response::answer_footer('radiobuttonresponse');
+    return $result;
+}
+
 sub displayanswers {
   my ($max,$randomize)=@_;
   my ($answer,@whichopt) = &whichfoils($max,$randomize);
@@ -454,23 +480,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 +500,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 +525,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);