--- loncom/auth/lonroles.pm	2002/05/21 13:07:40	1.38
+++ loncom/auth/lonroles.pm	2002/05/21 15:01:12	1.39
@@ -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 @@ 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'}, '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 @@ ENDHEADER
                     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 @@ ENDHEADER
                 } 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};