--- loncom/auth/lonroles.pm	2004/07/04 05:53:35	1.94
+++ loncom/auth/lonroles.pm	2004/07/21 19:54:43	1.95
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.94 2004/07/04 05:53:35 albertel Exp $
+# $Id: lonroles.pm,v 1.95 2004/07/21 19:54:43 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,12 +40,15 @@ use Apache::lonannounce;
 use Apache::lonlocal;
 
 sub redirect_user {
-    my ($r,$title,$url,$msg) = @_;
+    my ($r,$title,$url,$msg,$launch_nav) = @_;
     $msg = $title if (! defined($msg));
     &Apache::loncommon::content_type($r,'text/html');
     &Apache::loncommon::no_cache($r);
     $r->send_http_header;
     my $swinfo=&Apache::lonmenu::rawconfig();
+    if ($launch_nav eq 'on') {
+	$swinfo.=&Apache::lonnavmaps::launch_win('now','no');
+    }
     my $bodytag=&Apache::loncommon::bodytag('Switching Role');
 # Note to style police: 
 # This must only replace the spaces, nothing else, or it bombs elsewhere.
@@ -60,6 +63,7 @@ $bodytag
 $swinfo
 </script>
 <h1>$msg</h1>
+<a href="$url">Continue</a>
 </body>
 </html>
 ENDREDIR
@@ -246,7 +250,8 @@ ENDENTERKEY
                             #
                             # Send the user to the course they selected
                             &redirect_user($r,&mt('Entering Course'),
-                                           $furl,$msg);
+                                           $furl,$msg,
+					   $ENV{'environment.remotenavmap'});
                             return OK;
 			}
 		    }