Index: openacs-4/packages/dotlrn/www/preferences.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/preferences.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn/www/preferences.tcl	23 Jan 2002 05:03:16 -0000	1.7
+++ openacs-4/packages/dotlrn/www/preferences.tcl	23 Jan 2002 06:29:14 -0000	1.8
@@ -14,7 +14,7 @@
     admin_url:onevalue
 }
 
-set portal_id ""
+set portal_id [dotlrn::get_workspace_portal_id [ad_get_user_id]]
 
 # Make sure user is logged in
 set user_id [ad_maybe_redirect_for_registration]