loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.675, 2008/08/28 03:04:41	version 1.676, 2008/09/01 17:58:29
Line 9380 sub init_user_environment {	Line 9380 sub init_user_environment {

sub _add_to_env {	sub _add_to_env {
my ($idf,$env_data,$prefix) = @_;	my ($idf,$env_data,$prefix) = @_;
while (my ($key,$value) = each(%$env_data)) {	if (ref($env_data) eq 'HASH') {
$idf->{$prefix.$key} = $value;	while (my ($key,$value) = each(%$env_data)) {
$env{$prefix.$key} = $value;	$idf->{$prefix.$key} = $value;
	$env{$prefix.$key} = $value;
	}
}	}
}	}