rat/lonratsrv.pm - diff

Return to lonratsrv.pm CVS log

Up to [LON-CAPA] / rat

version 1.16, 2001/11/29 19:23:49	version 1.18, 2002/06/24 14:05:51
Line 262 sub savemap {	Line 262 sub savemap {
} elsif ($parts[0] eq 'objparms') {	} elsif ($parts[0] eq 'objparms') {
undef %alltypes;	undef %alltypes;
undef %allvalues;	undef %allvalues;
map {	foreach (split(/:/,$parts[$#parts])) {
my ($type,$name,$value)=split(/\_\_\_/,$_);	my ($type,$name,$value)=split(/\_\_\_/,$_);
$alltypes{$name}=$type;	$alltypes{$name}=$type;
$allvalues{$name}=$value;	$allvalues{$name}=$value;
} split(/:/,$parts[$#parts]);	}
map {	foreach (keys %allvalues) {
	if ($allvalues{$_} ne '') {
$outstr.='<param to="'.$parts[1].'" type="'	$outstr.='<param to="'.$parts[1].'" type="'
.$alltypes{$_}.'" name="'.$_	.$alltypes{$_}.'" name="'.$_
.'" value="'.$allvalues{$_}.'">'	.'" value="'.$allvalues{$_}.'">'
."</param>\n";	."</param>\n";
} keys %allvalues;	}
	}
} elsif (($parts[0] ne '') && ($graphdef)) {	} elsif (($parts[0] ne '') && ($graphdef)) {
# ------------------------------------------------------------- Graphical input	# ------------------------------------------------------------- Graphical input
$outstr.='<'.$parts[0];	$outstr.='<'.$parts[0];
Line 290 sub savemap {	Line 292 sub savemap {
print $fh $outstr;	print $fh $outstr;
$errtext.="Map saved as $fn. ";	$errtext.="Map saved as $fn. ";
} else {	} else {
$errtext.='Could not write file $fn. Map not saved. ';	$errtext.='Could not write file '.$fn.'. Map not saved. ';
}	}
}	}
} else {	} else {