Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/index.tcl	29 Nov 2001 04:33:52 -0000	1.10
+++ openacs-4/packages/dotlrn/www/index.tcl	1 Dec 2001 23:16:27 -0000	1.11
@@ -23,15 +23,15 @@
 set user_id [ad_maybe_redirect_for_registration]
 
 # Get the page
-set page_id [db_string select_page_id {} -default ""]
+set portal_id [dotlrn::get_workspace_portal_id $user_id]
 
-# If there is no page_id, this user is either a guest or something else
-if {[empty_string_p $page_id]} {
+# If there is no portal_id, this user is either a guest or something else
+if {[empty_string_p $portal_id]} {
     # do something
     ad_return_template index-not-a-user
     return
 } else {
-    set rendered_page [dotlrn::render_page $page_id]
+    set rendered_page [dotlrn::render_page $portal_id]
 }