Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/index.tcl	7 Oct 2001 19:21:08 -0000	1.4
+++ openacs-4/packages/dotlrn/www/index.tcl	9 Oct 2001 14:35:58 -0000	1.5
@@ -19,6 +19,9 @@
     return
 }
 
+# Select communities this user is part of
+set user_id [ad_get_user_id]
+
 # Select the classes that exist
 db_multirow classes select_classes {}