[LON-CAPA-cvs] cvs: loncom /auth lonroles.pm

[stredwic]

stredwic		Tue May 21 11:01:12 2002 EDT

  Modified files:              
    /loncom/auth	lonroles.pm 
  Log:
  See bug report 458.  Reversed default value for lonnet::homeserver to using the caching of negative results.
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.38 loncom/auth/lonroles.pm:1.39
--- loncom/auth/lonroles.pm:1.38	Tue May 21 09:07:40 2002
+++ loncom/auth/lonroles.pm	Tue May 21 11:01:12 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.38 2002/05/21 13:07:40 stredwic Exp $
+# $Id: lonroles.pm,v 1.39 2002/05/21 15:01:12 stredwic Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -212,7 +212,7 @@
                ("<h2>$ENV{'user.name'}, Please Select a Role</h2>\n");
            $r->print("Your home server is ".
                      $Apache::lonnet::hostname{&Apache::lonnet::homeserver
-                     ($ENV{'user.name'},$ENV{'user.domain'}, 'true')}.
+                     ($ENV{'user.name'},$ENV{'user.domain'})}.
 		     "<br />\n");
            $r->print("Author and Co-Author roles may not be available on ".
                      "servers other than your home server.");
@@ -297,8 +297,7 @@
                     split(/\//,Apache::lonnet::declutter($where));
                 # First, Co-Authorship roles
                 if ($role eq 'ca') {
-                    my $home = &Apache::lonnet::homeserver($trest,$tdom, 
-							   'true');
+                    my $home = &Apache::lonnet::homeserver($trest,$tdom);
                     $button = 0 if ($home ne $r->dir_config('lonHostID'));
                     #next if ($home eq 'no_host');
                     $home = $Apache::lonnet::hostname{$home};
@@ -309,7 +308,7 @@
                 } elsif ($role eq 'au') {
                     # Authors
                     my $home = &Apache::lonnet::homeserver
-                        ($ENV{'user.name'},$ENV{'user.domain'}, 'true');
+                        ($ENV{'user.name'},$ENV{'user.domain'});
                     $button = 0 if ($home ne $r->dir_config('lonHostID'));
                     #next if ($home eq 'no_host');
                     $home = $Apache::lonnet::hostname{$home};