--- loncom/lonnet/perl/lonnet.pm	2012/02/01 18:27:09	1.1056.4.33.2.1
+++ loncom/lonnet/perl/lonnet.pm	2012/01/06 18:13:41	1.1056.4.34
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1056.4.33.2.1 2012/02/01 18:27:09 raeburn Exp $
+# $Id: lonnet.pm,v 1.1056.4.34 2012/01/06 18:13:41 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -882,7 +882,7 @@ sub choose_server {
     my %domconfhash = &Apache::loncommon::get_domainconf($udom);
     my %servers = &get_servers($udom);
     my $lowest_load = 30000;
-    my ($login_host,$hostname,$portal_path,$isredirect);
+    my ($login_host,$hostname,$portal_path);
     foreach my $lonhost (keys(%servers)) {
         my $loginvia;
         if ($checkloginvia) {
@@ -893,14 +893,12 @@ sub choose_server {
                     &compare_server_load($lonhost, $login_host, $lowest_load);
                 if ($login_host eq $server) {
                     $portal_path = $path;
-                    $isredirect = 1;
                 }
             } else {
                 ($login_host, $lowest_load) =
                     &compare_server_load($lonhost, $login_host, $lowest_load);
                 if ($login_host eq $lonhost) {
                     $portal_path = '';
-                    $isredirect = '';
                 }
             }
         } else {
@@ -911,7 +909,7 @@ sub choose_server {
     if ($login_host ne '') {
         $hostname = &hostname($login_host);
     }
-    return ($login_host,$hostname,$portal_path,$isredirect);
+    return ($login_host,$hostname);
 }
 
 # --------------------------------------------- Try to change a user's password