loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.81, 2006/08/30 16:50:23	version 1.82, 2006/08/30 22:12:11
Line 180 sub success {	Line 180 sub success {
}	}

&add_to_env($idf,\%initial_env);	&add_to_env($idf,\%initial_env);
&add_to_env($idf,\%userenv);	&add_to_env($idf,\%userenv,'environment.');
&add_to_env($idf,$userroles);	&add_to_env($idf,$userroles);
&add_to_env($idf,$extra_env);	&add_to_env($idf,$extra_env);
close($idf);	close($idf);
Line 250 ENDSUCCESS	Line 250 ENDSUCCESS
}	}

sub add_to_env {	sub add_to_env {
my ($idf,$env_data) = @_;	my ($idf,$env_data,$prefix) = @_;
@env{keys(%$env_data)} = @$env_data{keys(%$env_data)};
while (my ($key,$value) = each(%$env_data)) {	while (my ($key,$value) = each(%$env_data)) {
print $idf (&escape($key).'='.&escape($value)."\n");	print $idf (&escape($prefix.$key).'='.&escape($value)."\n");
	$env{$prefix.$key} = $value;
}	}
}	}