--- loncom/auth/lonroles.pm	2002/05/13 09:10:15	1.37
+++ loncom/auth/lonroles.pm	2002/05/21 13:07:40	1.38
@@ -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 @@ ENDHEADER
                ("<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 @@ ENDHEADER
                     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 @@ ENDHEADER
                 } 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};