--- loncom/interface/loncommon.pm 2016/11/29 13:13:22 1.1075.2.119 +++ loncom/interface/loncommon.pm 2017/01/21 23:46:54 1.1075.2.120 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1075.2.119 2016/11/29 13:13:22 raeburn Exp $ +# $Id: loncommon.pm,v 1.1075.2.120 2017/01/21 23:46:54 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -15334,6 +15334,15 @@ sub init_user_environment { $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 %domdef; unless ($domain eq 'public') {