--- loncom/interface/loncommon.pm 2016/11/29 03:01:04 1.1267 +++ loncom/interface/loncommon.pm 2017/01/01 16:32:01 1.1268 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1267 2016/11/29 03:01:04 raeburn Exp $ +# $Id: loncommon.pm,v 1.1268 2017/01/01 16:32:01 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -15981,6 +15981,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') {