--- rat/lonratedt.pm	2004/04/24 15:37:30	1.56
+++ rat/lonratedt.pm	2004/04/26 16:56:26	1.57
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Edit Handler for RAT Maps
 #
-# $Id: lonratedt.pm,v 1.56 2004/04/24 15:37:30 www Exp $
+# $Id: lonratedt.pm,v 1.57 2004/04/26 16:56:26 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -558,6 +558,21 @@ sub storeparameter {
     $resparms[$to]=$newentry;
 }
 
+sub delparameter {
+    my ($to,$name)=@_;
+    my $newentry='';
+    my $nametype='';
+    foreach (split('&&&',$resparms[$to])) {
+	my ($thistype,$thisname,$thisvalue)=split('___',$_);
+	if ($thisname) {
+	    unless ($thisname eq $name) {
+		$newentry.=$_.'&&&';
+	    }
+	}
+    }
+    $resparms[$to]=$newentry;
+}
+
 sub getparameter {
     my ($to,$name);
     my $value=undef;