Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.44 -r1.45
--- openacs-4/packages/dotlrn/www/index.tcl	8 Aug 2006 21:26:24 -0000	1.44
+++ openacs-4/packages/dotlrn/www/index.tcl	29 Dec 2006 19:02:37 -0000	1.45
@@ -47,17 +47,20 @@
 
     set communities [dotlrn_community::get_all_communities_by_user $user_id]
 
-    if {[llength $communities] == 0} {
-        ad_returnredirect "index-not-a-user"
-        ad_script_abort
-    } elseif {[llength $communities] == 1} {
+    if {[llength $communities] == 1} {
         ad_returnredirect [ns_set get [lindex $communities 0] url]
         ad_script_abort
     }
 
 }
 
 set portal_id [dotlrn::get_portal_id -user_id $user_id]
+set title [db_string get_title {
+    select pretty_name
+    from portal_pages
+    where portal_id = :portal_id
+    and sort_key = :page_num
+} -default ""]
 set rendered_page [dotlrn::render_page -page_num $page_num -hide_links_p t $portal_id]
 
 ad_return_template