--- loncom/homework/response.pm	2001/08/09 15:35:47	1.42
+++ loncom/homework/response.pm	2001/08/09 15:39:56	1.43
@@ -211,7 +211,7 @@ sub start_essayresponse {
 
 sub start_responseparam {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
-  my $result=''
+  my $result='';
   if ($target eq 'meta') {
     $result = &meta_parameter_write($token->[2]->{'name'},
 				    $token->[2]->{'type'},
@@ -248,14 +248,14 @@ sub setup_params {
   my ($tag) = @_;
 
   @Apache::inputtags::params=();
-  my @paramlist=();
+  my %paramlist=();
   foreach my $key (keys(%Apache::lonnet::packagetab)) {
     if ($key =~ /^$tag/) {
       my ($package,$name) = split(/&/,$key);
-      push(@paramlist,$name);
+      $paramlist{$name}=1;
     }
   }
-  foreach my $key (@paramlist) {
+  foreach my $key (keys(%paramlist)) {
     my $entry= 'resource.'.$Apache::inputtags::part;
     if (defined($Apache::inputtags::response[-1])) {
       $entry.='_'.$Apache::inputtags::response[-1];