rat/lonratedt.pm - diff

Return to lonratedt.pm CVS log

Up to [LON-CAPA] / rat

-version 1.56, 2004/04/24 15:37:30
+version 1.57, 2004/04/26 16:56:26
  Line 558  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;