--- loncom/interface/lonpreferences.pm	2011/07/31 01:21:04	1.194
+++ loncom/interface/lonpreferences.pm	2012/05/13 19:11:13	1.196.4.2
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.194 2011/07/31 01:21:04 raeburn Exp $
+# $Id: lonpreferences.pm,v 1.196.4.2 2012/05/13 19:11:13 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -283,6 +283,7 @@ $jsMath_start
 if (jsMath.nofonts == 1) {
     document.writeln($jsMathWarning);
 }
+
 </script>
 <iframe src="/res/adm/pages/math_example.tex?inhibitmenu=yes&texengine=jsMath" width="400" height="120"></iframe>
 </p>
@@ -1195,16 +1196,10 @@ sub colorschanger {
     $r->print(<<ENDCOL);
 <script type="text/javascript" language="JavaScript">
 
-    function pclose() {
-        parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
-                 "height=350,width=350,scrollbars=no,menubar=no");
-        parmwin.close();
-    }
-
     $pjump_def
 
     function psub() {
-        pclose();
+        modalWindow.close();
         if (document.parmform.pres_marker.value!='') {
             if (document.parmform.pres_type.value!='') {
                 eval('document.prefs.'+
@@ -2096,6 +2091,25 @@ push(@{ $menu[0]->{items} }, {
 	linktitle => 'Change your password.',
 	});
     }
+    if ($env{'environment.remote'} eq 'off') {
+push(@{ $menu[1]->{items} }, {
+        linktext => 'Launch Remote Control',
+        url => '/adm/remote?url=/adm/preferences&amp;action=launch',
+        permission => 'F',
+        #help => '',
+        icon => 'remotecontrol.png',
+        linktitle => 'Launch the remote control for LON-CAPA.',
+        });
+    }else{
+push(@{ $menu[1]->{items} }, {
+        linktext => 'Collapse Remote Control',
+        url => '/adm/remote?url=/adm/preferences&amp;action=collapse',
+        permission => 'F',
+        #help => '',
+        icon => 'remotecontrol.png',
+        linktitle => 'Collapse the remote control for LON-CAPA.',
+        });
+    }
 
     if (&can_toggle_namelocking()) {
         push(@{ $menu[0]->{items} }, {