loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1075.2.119, 2016/11/29 13:13:22	version 1.1075.2.120, 2017/01/21 23:46:54
Line 15334 sub init_user_environment {	Line 15334 sub init_user_environment {
$env{'user.noloadbalance'} = $lonhost;	$env{'user.noloadbalance'} = $lonhost;
}	}

	if ($form->{'noloadbalance'}) {
	my @hosts = &Apache::lonnet::current_machine_ids();
	my $hosthere = $form->{'noloadbalance'};
	if (grep(/^\Q$hosthere\E$/,@hosts)) {
	$initial_env{"user.noloadbalance"} = $hosthere;
	$env{'user.noloadbalance'} = $hosthere;
	}
	}

my %is_adv = ( is_adv => $env{'user.adv'} );	my %is_adv = ( is_adv => $env{'user.adv'} );
my %domdef;	my %domdef;
unless ($domain eq 'public') {	unless ($domain eq 'public') {