--- loncom/interface/lonnavmaps.pm	2004/07/21 19:54:43	1.268
+++ loncom/interface/lonnavmaps.pm	2004/07/21 20:19:01	1.269
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.268 2004/07/21 19:54:43 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.269 2004/07/21 20:19:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -105,6 +105,19 @@ sub launch_win {
     return $result;
 }
 
+sub close {
+    if ($ENV{'environment.remotenavmap'} ne 'on') { return ''; }
+    return(<<ENDCLOSE);
+<script type="text/javascript">
+window.status='Accessing Nav Control';
+menu=window.open("/adm/rat/empty.html","loncapanav",
+                 "height=600,width=400,scrollbars=1");
+window.status='Closing Nav Control';
+menu.close();
+window.status='Done.';
+</script>
+ENDCLOSE
+}
 
 
 sub handler {