--- loncom/homework/response.pm	2002/10/14 20:37:27	1.66
+++ loncom/homework/response.pm	2002/11/25 21:36:42	1.67
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.66 2002/10/14 20:37:27 albertel Exp $
+# $Id: response.pm,v 1.67 2002/11/25 21:36:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -320,11 +320,14 @@ sub end_parameter {
   return $result;
 }
 
+sub reset_params {
+    %Apache::inputtags::params=();
+}
+
 sub setup_params {
   my ($tag) = @_;
 
   if ($ENV{'request.state'} eq 'construct') { return; }
-  %Apache::inputtags::params=();
   my %paramlist=();
   foreach my $key (keys(%Apache::lonnet::packagetab)) {
     if ($key =~ /^$tag/) {