--- loncom/homework/optionresponse.pm	2001/09/14 20:14:46	1.25
+++ loncom/homework/optionresponse.pm	2001/12/04 14:57:31	1.26
@@ -130,13 +130,13 @@ sub end_foilgroup {
       if ( defined $ENV{'form.submitted'}) {
 	my @whichopt = &whichfoils($count);
 	my $temp=1;my $name;
-	my $allresponse;
+	my %responsehash;
 	my $right=0;
 	my $wrong=0;
 	my $ignored=0;
 	foreach $name (@whichopt) {
 	  my $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1'].":$temp"};
-	  $allresponse.="$response:";
+	  $responsehash{$name}=$response;
 	  if ( $response =~ /[^\s]/) {
 	    &Apache::lonxml::debug("submitted a $response<br />\n");
 	    my $value=$Apache::response::foilgroup{$name.'.value'};
@@ -147,7 +147,7 @@ sub end_foilgroup {
 	  $temp++;
 	}
 	my $id = $Apache::inputtags::response['-1'];
-	$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=$allresponse;
+	$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=&Apache::lonnet::hash2str(%responsehash);
 	&Apache::lonxml::debug("Got $right right and $wrong wrong, and $ignored were ignored");
 	if ($wrong==0 && $ignored==0) {
 	  $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}='EXACT_ANS';