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.58, 2004/04/26 17:50:37
Line 187 sub mapread {	Line 187 sub mapread {
undef @links;	undef @links;
undef @resources;	undef @resources;
undef @order;	undef @order;
	undef @resparms;
@resources=('');	@resources=('');
@order=();	@order=();
	@resparms=();

my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,'');	my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,'');
if ($errtext) { return ($errtext,2); }	if ($errtext) { return ($errtext,2); }
Line 558 sub storeparameter {	Line 560 sub storeparameter {
$resparms[$to]=$newentry;	$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 {	sub getparameter {
my ($to,$name);	my ($to,$name)=@_;
my $value=undef;	my $value=undef;
my $ptype=undef;	my $ptype=undef;
foreach (split('&&&',$resparms[$to])) {	foreach (split('&&&',$resparms[$to])) {