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

[albertel]

albertel		Tue Jan  3 12:48:09 2006 EDT

  Modified files:              (Branch: version_2_1_X)
    /loncom/auth	lonroles.pm 
  Log:
  - backport 1.143
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.138 loncom/auth/lonroles.pm:1.138.2.1
--- loncom/auth/lonroles.pm:1.138	Thu Dec 15 18:31:22 2005
+++ loncom/auth/lonroles.pm	Tue Jan  3 12:48:06 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.138 2005/12/15 23:31:22 raeburn Exp $
+# $Id: lonroles.pm,v 1.138.2.1 2006/01/03 17:48:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -526,11 +526,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};