--- rat/lonratparms.pm	2003/10/23 21:01:54	1.19
+++ 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.19 2003/10/23 21:01:54 albertel Exp $
+# $Id: lonratparms.pm,v 1.22 2004/04/24 14:23:27 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,6 +53,8 @@ sub handler {
   my %display;
   my %value;
   
+# ---------------------------------------------------------- Current Parameters
+
   foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {
       if ($_=~/^parameter\_/) {
          $content{$_}=&Apache::lonnet::metadata($uri,$_);
@@ -75,28 +63,14 @@ sub handler {
       }
   }
 
-# -------------------------------------- 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 ($pname) { next; }
       unless ($type{$pname}) { $type{$pname}=$ptype; }
       $value{$pname}=$pvalue;
+      $content{$pname}=$pvalue;
+      $type{$pname}=$ptype;
+      $display{$pname}=&mt('Custom Parameter');
   } 
   
 # --------------------------------------------------- Print input screen header