--- loncom/interface/statistics/lonstathelpers.pm	2004/03/16 16:41:26	1.9
+++ loncom/interface/statistics/lonstathelpers.pm	2004/03/31 05:24:00	1.10
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstathelpers.pm,v 1.9 2004/03/16 16:41:26 matthew Exp $
+# $Id: lonstathelpers.pm,v 1.10 2004/03/31 05:24:00 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -478,11 +478,11 @@ sub get_answer {
             }
             foreach my $foil (@{$Answer{$prefix.'.shown'}}) {
                 if (ref($values{$foil}) eq 'ARRAY') {
-                    $returnvalue.=&HTML::Entities::encode($foil).'='.
-                        join(',',map {&HTML::Entities::encode($_)} @{$values{$foil}}).'&';
+                    $returnvalue.=&HTML::Entities::encode($foil,'<>&"').'='.
+                        join(',',map {&HTML::Entities::encode($_,'<>&"')} @{$values{$foil}}).'&';
                 } else {
-                    $returnvalue.=&HTML::Entities::encode($foil).'='.
-                        &HTML::Entities::encode($values{$foil}).'&';
+                    $returnvalue.=&HTML::Entities::encode($foil,'<>&"').'='.
+                        &HTML::Entities::encode($values{$foil},'<>&"').'&';
                 }
             }
             $returnvalue =~ s/ /\%20/g;