--- loncom/interface/loncommon.pm 2013/09/21 13:56:22 1.1156 +++ loncom/interface/loncommon.pm 2013/09/29 00:49:28 1.1157 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1156 2013/09/21 13:56:22 raeburn Exp $ +# $Id: loncommon.pm,v 1.1157 2013/09/29 00:49:28 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -14414,6 +14414,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') {