--- rat/lonpage.pm	2000/10/19 10:09:59	1.14
+++ rat/lonpage.pm	2000/11/14 15:44:05	1.19
@@ -5,7 +5,7 @@
 #
 # 05/29/00,05/30 Gerd Kortemeyer)
 # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,
-# 10/02,10/10,10/14,10/16,10/18,10/19 Gerd Kortemeyer
+# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14 Gerd Kortemeyer
 
 package Apache::lonpage;
 
@@ -262,6 +262,8 @@ sub handler {
 				  $nforms++;
                                   $output=~s/\<form[^\>]*\>//gsi;
                                   $output=~s/\<\/form[^\>]*\>//gsi;
+                                  $output=~
+				      s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([\w\.\:]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;
                               }
                               $thisdir=~s/\/[^\/]*$//;
 			      map {
@@ -274,6 +276,15 @@ sub handler {
 			      } @rlinks;
                      $output=~s/\<\s*applet/\<applet codebase=\"$thisdir\" /gi;
 			      $ssibody{$_}=$output;
+# ------------------------------------------------------------- Any parameters?
+                              if ($hash{'param_'.$_}) {
+				  my ($mapid,$resid)=split(/\./,$_);
+                                  &Apache::lonnet::appendparms(
+			 &Apache::lonnet::declutter($hash{'map_id_'.$mapid}).
+                        '___'.$resid.'___'.&Apache::lonnet::declutter($src),
+						      $hash{'param_'.$_});
+                              }
+
 # ---------------------------------------------------------------- End SSI cell
                           }
                       } @colcont;