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

[albertel]

albertel		Tue Jan  3 12:46:35 2006 EDT

  Modified files:              
    /loncom/auth	lonroles.pm 
  Log:
  - fix author role so switch server works for author too
  
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.142 loncom/auth/lonroles.pm:1.143
--- loncom/auth/lonroles.pm:1.142	Wed Dec 21 22:39:36 2005
+++ loncom/auth/lonroles.pm	Tue Jan  3 12:46:35 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.142 2005/12/22 03:39:36 raeburn Exp $
+# $Id: lonroles.pm,v 1.143 2006/01/03 17:46:35 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -531,11 +531,7 @@
 		    foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
                     if (!$allowed) {
 			$button=0;
-                        $switchserver=&Apache::lonnet::escape('http://'.
-                         $Apache::lonnet::hostname{$home}.
-                          '/adm/login?domain='.$env{'user.domain'}.
-			   '&username='.$env{'user.name'}.
-                           '&firsturl=/priv/'.$env{'user.name'}.'/');
+                        $switchserver='otherserver='.$home.'&role='.$trolecode;
                     }
                     #next if ($home eq 'no_host');
                     $home = $Apache::lonnet::hostname{$home};