[LON-CAPA-cvs] cvs: loncom /interface lonmenu.pm

[albertel]

albertel		Mon May  8 18:30:59 2006 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm 
  Log:
  - BUG#4746, 'Launch Remote Control' removed from default student interface, now available in 'Pref'
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.178 loncom/interface/lonmenu.pm:1.179
--- loncom/interface/lonmenu.pm:1.178	Mon May  8 15:32:09 2006
+++ loncom/interface/lonmenu.pm	Mon May  8 18:30:56 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.178 2006/05/08 19:32:09 albertel Exp $
+# $Id: lonmenu.pm,v 1.179 2006/05/08 22:30:56 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -228,7 +228,10 @@
         my $form=&serverform();
 	my $utility=&utilityfunctions();
 	my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");
-
+	my $remote;
+	if ($env{'user.adv'}) {
+	    $remote = '<td><a href="/adm/remote?action=launch&amp;url=$escurl" target="_top">'.$lt{'launch'}.'</a></td>'
+	}
 	return (<<ENDINLINEMENU);
 <script type="text/javascript">
 // BEGIN LON-CAPA Internal
@@ -243,7 +246,7 @@
 $navmaps
 $docs
 $groups
-<td><a href="/adm/remote?action=launch&amp;url=$escurl" target="_top">$lt{'launch'}</a></td>
+$remote
 <td><a href="/adm/roles" target="_top">$lt{'roles'}</a></td>
 <td><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>
 <td><img align="right" src="$logo" alt="Logo" /><b>LON-CAPA</b></td>