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

[stredwic]

stredwic		Tue May 21 09:07:41 2002 EDT

  Modified files:              
    /loncom/auth	lonroles.pm 
  Log:
  See bug 458.  Added true flag to lonnet::homeserver.  Supposed to be used with negative caching to speed up the display of roles page.
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.37 loncom/auth/lonroles.pm:1.38
--- loncom/auth/lonroles.pm:1.37	Mon May 13 05:10:15 2002
+++ loncom/auth/lonroles.pm	Tue May 21 09:07:40 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.37 2002/05/13 09:10:15 albertel Exp $
+# $Id: lonroles.pm,v 1.38 2002/05/21 13:07:40 stredwic Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -212,7 +212,8 @@
                ("<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'})}."<br />\n");
+                     ($ENV{'user.name'},$ENV{'user.domain'}, 'true')}.
+		     "<br />\n");
            $r->print("Author and Co-Author roles may not be available on ".
                      "servers other than your home server.");
         } else {
@@ -296,7 +297,8 @@
                     split(/\//,Apache::lonnet::declutter($where));
                 # First, Co-Authorship roles
                 if ($role eq 'ca') {
-                    my $home = &Apache::lonnet::homeserver($trest,$tdom);
+                    my $home = &Apache::lonnet::homeserver($trest,$tdom, 
+							   'true');
                     $button = 0 if ($home ne $r->dir_config('lonHostID'));
                     #next if ($home eq 'no_host');
                     $home = $Apache::lonnet::hostname{$home};
@@ -307,7 +309,7 @@
                 } elsif ($role eq 'au') {
                     # Authors
                     my $home = &Apache::lonnet::homeserver
-                        ($ENV{'user.name'},$ENV{'user.domain'});
+                        ($ENV{'user.name'},$ENV{'user.domain'}, 'true');
                     $button = 0 if ($home ne $r->dir_config('lonHostID'));
                     #next if ($home eq 'no_host');
                     $home = $Apache::lonnet::hostname{$home};