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.3 -r1.4
--- openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl	7 Nov 2001 20:20:56 -0000	1.3
+++ openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl	7 Nov 2001 22:22:09 -0000	1.4
@@ -60,24 +60,19 @@
 	
 	# This is not templated. OH NO. I am a horrible, horrible, little man. (ben)
 
-	set return_html "<ul>\n"
-	ns_log Notice "DOTLRN - UL"
+	set return_html "
+	<ul>
+	<li><a href=classes>subscribe to a new class</a>"
 
 	set communities [dotlrn_community::get_all_communities_by_user $user_id]
-	# set communities ""
 
-	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 - /UL"
-
 	append return_html "</ul>"
 
 	# return it all