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

[albertel]

albertel		Tue Dec  7 18:59:54 2004 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm mydesk.tab 
  Log:
  - PORT would disappear BUG#3685
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.139 loncom/interface/lonmenu.pm:1.140
--- loncom/interface/lonmenu.pm:1.139	Mon Dec  6 14:37:46 2004
+++ loncom/interface/lonmenu.pm	Tue Dec  7 18:59:52 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.139 2004/12/06 19:37:46 albertel Exp $
+# $Id: lonmenu.pm,v 1.140 2004/12/07 23:59:52 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -464,6 +464,8 @@
 	    $requri=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($requri));
 	    my $cursymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'});
 	    my $navstatus=&get_nav_status();
+	    my $clearcstr;
+	    if ($ENV{'user.adv'}) { $clearcstr='clearbut(6,1)'; }
 	    $result = (<<ENDREGTHIS);
      
 <script type="text/javascript">
@@ -498,7 +500,7 @@
           swmenu.clearbut(7,3);
           swmenu.menucltim=swmenu.setTimeout(
  'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+
- 'clearbut(9,1);clearbut(9,3);clearbut(6,3);clearbut(6,1)',
+ 'clearbut(9,1);clearbut(9,3);clearbut(6,3);$clearcstr',
 			  2000);
       }
 
Index: loncom/interface/mydesk.tab
diff -u loncom/interface/mydesk.tab:1.60 loncom/interface/mydesk.tab:1.61
--- loncom/interface/mydesk.tab:1.60	Thu Nov 11 13:43:25 2004
+++ loncom/interface/mydesk.tab	Tue Dec  7 18:59:52 2004
@@ -43,7 +43,7 @@
 5:3:clear
 5:3:pccc:$requested_domain:ccrs.gif:create[_1]:course[_8]:go('/adm/createcourse');:Create a new course
 5:3:popa:$crs:parm.gif:course[_9]:parms[_1]:go('/adm/parmset');:Set deadlines and other assessment parameters, as well as modify course environment
-6:1:clear
+#6:1:clear
 6:1:smp:any:port.gif:port-[_1]:folio[_1]:go('/adm/portfolio');:Enter my portfolio space
 6:1:author:rau:cstr.gif:con-[_1]:struct[_1]:go('/priv/$uname/');:Enter my resource construction space
 6:1:author:rca:cstr.gif:co con-[_1]:struct[_2]:go('/priv/$caname/');:Enter construction space as a co-author