--- loncom/interface/mydesk.tab	2002/03/19 19:00:04	1.16
+++ loncom/interface/mydesk.tab	2002/04/17 13:17:10	1.18
@@ -1,5 +1,13 @@
-# This configuration file can now include comments.
-# I should write something to explain the file format, but not today.
+# 
+# row:col:pro:prt:img:top:bot:act
+#
+# pro = clear    clear the button
+# pro = any      any permission level is allowed this button
+# pro = smp      allowed if $ENV{'user.adv'} is undefined
+# pro = adv      allowed if $ENV{'user.adv'} is defined
+# pro = author   prt = rca and user is a co-author
+# pro = author   prt = any 
+# pro = p???     allowed if the user has the permissions given in ???
 1:1:smp:any:courses.gif:choose:course:go('/adm/roles');
 1:1:smp:rst:courses.gif:switch:course:go('/adm/roles');
 1:1:adv:any:roles.gif:switch:role:go('/adm/roles');
@@ -27,8 +35,8 @@
 5:3:pccc:$udom:ccrs.gif:create:course:go('/adm/createcourse');
 5:3:popa:$crs:parm.gif:course:parms:go('/adm/parmset');
 6:1:clear
-6:1:author:any:cstr.gif:con-:struct:go('/priv/$uname/');
-6:1:author:rca:cstr.gif:co con-:struct:go('/priv/$uname/');
+6:1:author:any:cstr.gif:con-:struct:cstrgo(currentURL,'/priv/$uname/');
+6:1:author:rca:cstr.gif:co con-:struct:cstrgo(currentURL,'/priv/$uname/');
 6:2:clear
 6:2:author:any:res.gif:resource:space:go('/res/$udom/$uname/?launch=1');
 6:2:author:rca:res.gif:co res:space:go('/res/$udom/$uname/?launch=1');