--- rat/lonratparms.pm	2003/10/23 21:01:54	1.19
+++ rat/lonratparms.pm	2004/04/23 19:39:25	1.20
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Set parameters inside of the RAT
 #
-# $Id: lonratparms.pm,v 1.19 2003/10/23 21:01:54 albertel Exp $
+# $Id: lonratparms.pm,v 1.20 2004/04/23 19:39:25 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -25,21 +25,7 @@
 #
 # http://www.lon-capa.org/
 #
-# (Search Catalog
-#
-# (Internal Server Error Handler
-#
-# (Login Screen
-# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
-# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)
-#
-# 3/1/1 Gerd Kortemeyer)
-#
-# 3/1 Gerd Kortemeyer)
-#
-# 03/03/01,06/15,06/25,06/26,06/30,07/02,07/03,07/04 Gerd Kortemeyer
-# 03/11/02 Matthew Hall
-#
+
 package Apache::lonratparms;
 
 use strict;
@@ -67,37 +53,24 @@ sub handler {
   my %display;
   my %value;
   
-  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');
-      }
-  }
-
-# -------------------------------------- Additional parms for certain resources
-
-    if ($uri=~/\.(sequence|page)\.meta$/) {
-        $content{'parameter_randompick'}='';
-        $type{'parameter_randompick'}='int_pos';
-	$display{'parameter_randompick'}='Randomly pick number of resources';
-        
-        $content{'parameter_randompickseed'}='';
-        $type{'parameter_randompickseed'}='int_pos';
-	$display{'parameter_randompickseed'}=
- 'Random seed for randomly picking number of resources (optional, only set if you know what you are doing)';
-    } else {
-        $content{'parameter_mapalias'}='';
-        $type{'parameter_mapalias'}='string';
-	$display{'parameter_mapalias'}='Resource alias name for conditions';
-    }
 # ---------------------------------------------------------- Current Parameters
 
   foreach (split(/\:/,$ENV{'form.parms'})) {
       my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_);
       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();