Index: openacs-4/packages/dotlrn/www/index-no-browse.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/index-no-browse.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/index-no-browse.adp	16 Mar 2002 00:32:09 -0000	1.1
@@ -0,0 +1,13 @@
+<master src="dotlrn-master">
+<property name="title">dotLRN</property>
+
+You are a member of the following groups:
+<ul>
+<list name="communities">
+<li> @communities:item@
+</list>
+</ul>
+
+
+
+
Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/dotlrn/www/index.tcl	25 Jan 2002 19:59:10 -0000	1.24
+++ openacs-4/packages/dotlrn/www/index.tcl	16 Mar 2002 00:32:09 -0000	1.25
@@ -35,16 +35,21 @@
     # Figure out if the user is a member of a community
     set communities [dotlrn_community::get_all_communities_by_user $user_id]
 
+    # If no communities
     if {[llength $communities] == 0} {
         ad_returnredirect "index-not-a-user"
         ad_script_abort
     }
 
-    # For now, we assume only ONE community (FIXME: ben)
-    set the_community [lindex $communities 0]
+    # If just one community
+    if {[llength $communities] == 1} {
+        ad_returnredirect [dotlrn_community::get_url_from_package_id -package_id [lindex [lindex $communities 0] 4]]
+        ad_script_abort
+    }
 
-    ad_returnredirect [dotlrn_community::get_url_from_package_id -package_id [lindex $the_community 4]]
-    ad_script_abort
+    # If more than one
+    ad_return_template index-no-browse
+    return
 }
 
 # Get the page