--- loncom/interface/mydesk.tab	2001/10/16 22:57:07	1.14
+++ loncom/interface/mydesk.tab	2002/04/04 17:35:57	1.17
@@ -1,3 +1,5 @@
+# This configuration file can now include comments.
+# I should write something to explain the file format, but not today.
 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');
@@ -25,8 +27,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');
@@ -34,4 +36,5 @@
 7:2:clear
 7:2:adv:rcm:egrd.gif:enter:grades:go('/adm/grades');
 10:1:any:any:src.gif:search:library:go('/adm/searchcat');
-10:2:any:any:logout.gif:logout::go('/adm/logout');
\ No newline at end of file
+10:2:any:any:pref.gif:prefer-:ences:go('/adm/preferences');
+10:3:any:any:logout.gif:exit::go('/adm/logout');