--- loncom/interface/lonnavmaps.pm	2005/08/02 20:51:18	1.335
+++ loncom/interface/lonnavmaps.pm	2005/08/02 21:15:51	1.336
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.335 2005/08/02 20:51:18 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.336 2005/08/02 21:15:51 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -90,14 +90,20 @@ my %colormap =
 my $hurryUpColor = "#FF0000";
 
 sub launch_win {
-    my ($mode,$script,$toplinkitems)=@_;
+    my ($mode,$script,$toplinkitems,$firsttime)=@_;
     my $result;
     if ($script ne 'no') {
 	$result.='<script type="text/javascript">';
     }
-    $result.='function launch_navmapwin() {
+    if ($firsttime) {
+	$result.='function launch_navmapwin() {
+                 newWindow=open(\'/adm/navmaps?launchExternalRoles\',\'loncapanav\',\'width=400,height=600,scrollbars=1\');
+               }';
+    } else {
+	$result.='function launch_navmapwin() {
                  newWindow=open(\'/adm/navmaps?launchExternal\',\'loncapanav\',\'width=400,height=600,scrollbars=1\');
                }';
+    }
     if ($mode eq 'now') {
 	$result.="\nlaunch_navmapwin();\n";
     }
@@ -205,7 +211,7 @@ MENU
 ENDSUBM
         return;
     }
-    if ($ENV{QUERY_STRING} eq 'launchExternal') {
+    if ($ENV{QUERY_STRING} =~ /^launchExternal/) {
 	&Apache::lonnet::put('environment',{'remotenavmap' => 'on'});
 	&Apache::lonnet::appenv('environment.remotenavmap' => 'on');
  	my $menu=&Apache::lonmenu::reopenmenu();