loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.34, 2000/09/30 17:25:04	version 1.35, 2000/10/04 15:59:07
Line 52	Line 52
# 06/26 Ben Tyszka	# 06/26 Ben Tyszka
# 06/30,07/15,07/17,07/18,07/20,07/21,07/22,07/25 Gerd Kortemeyer	# 06/30,07/15,07/17,07/18,07/20,07/21,07/22,07/25 Gerd Kortemeyer
# 08/14 Ben Tyszka	# 08/14 Ben Tyszka
# 08/22,08/28,08/31,09/01,09/02,09/04,09/05,09/25,09/28,09/30 Gerd Kortemeyer	# 08/22,08/28,08/31,09/01,09/02,09/04,09/05,09/25,09/28,09/30,
	# 10/04 Gerd Kortemeyer

package Apache::lonnet;	package Apache::lonnet;

Line 197 sub critical {	Line 198 sub critical {

sub appenv {	sub appenv {
my %newenv=@_;	my %newenv=@_;
	map {
	if (($newenv{$_}=~/^user\.role/) \|\| ($newenv{$_}=~/^user\.priv/)) {
	&logthis("<font color=blue>WARNING: ".
	"Attempt to modify environment ".$_." to ".$newenv{$_});
	delete($newenv{$_});
	} else {
	$ENV{$_}=$newenv{$_};
	}
	} keys %newenv;
my @oldenv;	my @oldenv;
{	{
my $fh;	my $fh;