--- loncom/auth/lonroles.pm 2004/07/03 19:44:53 1.93 +++ loncom/auth/lonroles.pm 2004/11/12 15:33:32 1.108 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.93 2004/07/03 19:44:53 albertel Exp $ +# $Id: lonroles.pm,v 1.108 2004/11/12 15:33:32 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -36,16 +36,23 @@ use Apache::Constants qw(:common); use Apache::File(); use Apache::lonmenu; use Apache::loncommon; +use Apache::lonhtmlcommon; 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(); + my $navwindow; + if ($launch_nav eq 'on') { + $navwindow.=&Apache::lonnavmaps::launch_win('now'); + } else { + $navwindow.=&Apache::lonnavmaps::close(); + } my $bodytag=&Apache::loncommon::bodytag('Switching Role'); # Note to style police: # This must only replace the spaces, nothing else, or it bombs elsewhere. @@ -56,10 +63,12 @@ sub redirect_user { $bodytag - +$navwindow