--- loncom/homework/matchresponse.pm	2003/10/27 19:27:09	1.28
+++ loncom/homework/matchresponse.pm	2003/10/27 20:04:34	1.29
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Full matching style response
 #
-# $Id: matchresponse.pm,v 1.28 2003/10/27 19:27:09 albertel Exp $
+# $Id: matchresponse.pm,v 1.29 2003/10/27 20:04:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -251,7 +251,7 @@ sub end_foilgroup {
 	} elsif ( $target eq 'analyze') {
 	    my @shown=&whichfoils($max,$randomize);
 	    &Apache::response::analyze_store_foilgroup(\@shown,
-						       ['text','value']);
+						 ['text','value','location']);
 	    #FIXME need to store options in some way
 	}
 	&Apache::lonxml::increment_counter(&getfoilcounts($max));
@@ -261,6 +261,14 @@ sub end_foilgroup {
     return $result;
 }
 
+sub whichfoils {
+    my ($max,$randomize)=@_;
+    return &Apache::response::whichorder(&getfoilcounts($max),
+					 $randomize,
+					 &Apache::response::showallfoils(),
+					 \%Apache::response::foilgroup);
+}
+
 sub displayanswers {
     my ($max,$randomize,@opt)=@_;
     if (!defined(@{ $Apache::response::foilgroup{'names'} })) { return; }