Index: openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl	6 Nov 2001 21:46:49 -0000	1.2
+++ openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl	7 Nov 2001 20:20:56 -0000	1.3
@@ -61,15 +61,22 @@
 	# This is not templated. OH NO. I am a horrible, horrible, little man. (ben)
 
 	set return_html "<ul>\n"
+	ns_log Notice "DOTLRN - UL"
 
-	ns_log Notice "DOTLRN-SHOW: UL"
+	set communities [dotlrn_community::get_all_communities_by_user $user_id]
+	# set communities ""
 
-	db_foreach select_communities_for_one_user {} {
-	    ns_log Notice "DOTLRN-SHOW: LI"
-	    append return_html "<li> <a href=$url>$community_name</a>\n"
+	ns_log Notice "DOTLRN COMMUNITIES - $communities"
+
+	foreach community $communities {
+	    ns_log Notice "DOTLRN - LI"
+	    set url [lindex $community 1]/[lindex $community 2]
+	    set pretty_name [lindex $community 3]
+	    
+	    append return_html "<li> <a href=$url>$pretty_name</a>\n"
 	}
 
-	ns_log Notice "DOTLRN-SHOW: /UL"	
+	ns_log Notice "DOTLRN - /UL"
 
 	append return_html "</ul>"