loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.404, 2003/08/22 16:07:11	version 1.405, 2003/08/25 17:20:09
Line 245 sub critical {	Line 245 sub critical {
}	}
return $answer;	return $answer;
}	}

	# -------------- Remove all key from the env that start witha lowercase letter
	# (Which is alweways a lon-capa value)
	sub cleanenv {
	foreach my $key (keys(%ENV)) {
	if ($key =~ /^[a-z]/) {
	delete($ENV{$key});
	}
	}
	}

# ------------------------------------------- Transfer profile into environment	# ------------------------------------------- Transfer profile into environment