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.1 -r1.2
--- openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl	5 Nov 2001 22:34:23 -0000	1.1
+++ openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl	6 Nov 2001 21:46:49 -0000	1.2
@@ -56,9 +56,26 @@
 	
 	array set config $cf	
 	
-	# Figure out what to show here (Ben)
-	return ""
+	set user_id [ad_get_user_id]
 	
+	# This is not templated. OH NO. I am a horrible, horrible, little man. (ben)
+
+	set return_html "<ul>\n"
+
+	ns_log Notice "DOTLRN-SHOW: UL"
+
+	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-SHOW: /UL"	
+
+	append return_html "</ul>"
+
+	# return it all
+	return $return_html
+	
     }   
     
     ad_proc -public remove_self_from_page {