Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/index.tcl	9 Oct 2001 14:35:58 -0000	1.5
+++ openacs-4/packages/dotlrn/www/index.tcl	5 Nov 2001 22:34:23 -0000	1.6
@@ -1,6 +1,6 @@
 
 ad_page_contract {
-    Displays a list of Classes on the site
+    Displays the personal home page
     
     @author Ben Adida (ben@openforce.net)
     @creation-date 2001-08-20
@@ -9,20 +9,18 @@
     classes:multirow
 }
 
-if {[ad_parameter community_type_level_p] == 1} {
-    ns_returnredirect one-community-type
-    return
-}
+# Make sure user is logged in
+set user_id [ad_maybe_redirect_for_registration]
 
-if {[ad_parameter community_level_p] == 1} {
-    ns_returnredirect one-community
-    return
+# Get the page
+set page_id [db_string select_page_id {} -default ""]
+
+# If there is no page_id, this user is either a guest or something else
+if {[empty_string_p $page_id]} {
+    # do something
+} else {
+    set rendered_page [portal::render $page_id]
 }
 
-# Select communities this user is part of
-set user_id [ad_get_user_id]
 
-# Select the classes that exist
-db_multirow classes select_classes {}
-
 ad_return_template