--- rat/lonratparms.pm	2004/04/23 19:39:25	1.20
+++ rat/lonratparms.pm	2004/04/24 14:23:27	1.22
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Set parameters inside of the RAT
 #
-# $Id: lonratparms.pm,v 1.20 2004/04/23 19:39:25 www Exp $
+# $Id: lonratparms.pm,v 1.22 2004/04/24 14:23:27 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -55,22 +55,23 @@ sub handler {
   
 # ---------------------------------------------------------- Current Parameters
 
+  foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {
+      if ($_=~/^parameter\_/) {
+         $content{$_}=&Apache::lonnet::metadata($uri,$_);
+         $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');
+         $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');
+      }
+  }
+
   foreach (split(/\:/,$ENV{'form.parms'})) {
       my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_);
+      unless ($pname) { next; }
       unless ($type{$pname}) { $type{$pname}=$ptype; }
       $value{$pname}=$pvalue;
       $content{$pname}=$pvalue;
       $type{$pname}=$ptype;
       $display{$pname}=&mt('Custom Parameter');
   } 
-
-  foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {
-      if ($_=~/^parameter\_/) {
-         $content{$_}=&Apache::lonnet::metadata($uri,$_);
-         $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');
-         $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');
-      }
-  }
   
 # --------------------------------------------------- Print input screen header
     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();