--- loncom/interface/loncommon.pm 2013/09/22 01:58:13 1.1075.2.53 +++ loncom/interface/loncommon.pm 2013/09/29 06:57:54 1.1075.2.54 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1075.2.53 2013/09/22 01:58:13 raeburn Exp $ +# $Id: loncommon.pm,v 1.1075.2.54 2013/09/29 06:57:54 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -14400,6 +14400,12 @@ sub init_user_environment { $env{'browser.interface'}=$form->{'interface'}; } + if ($form->{'iptoken'}) { + my $lonhost = $r->dir_config('lonHostID'); + $initial_env{"user.noloadbalance"} = $lonhost; + $env{'user.noloadbalance'} = $lonhost; + } + my %is_adv = ( is_adv => $env{'user.adv'} ); my %domdef; unless ($domain eq 'public') {