Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	23 Jan 2002 00:15:43 -0000	1.2
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	23 Jan 2002 04:58:08 -0000	1.3
@@ -9,20 +9,7 @@
 
 set user_id [ad_conn user_id]
 
-set sql {
-    select dotlrn_communities.community_id,
-           dotlrn_communities.community_type,
-           dotlrn_communities.community_key,
-           dotlrn_communities.pretty_name,
-           dotlrn_communities.package_id
-    from dotlrn_communities,
-         dotlrn_member_rels_full
-    where dotlrn_communities.community_id = dotlrn_member_rels_full.community_id
-    and dotlrn_member_rels_full.user_id = :user_id
-}
+db_multirow classes select_classes {}
+db_multirow clubs select_clubs {}
 
-db_multirow -local communities select_communities $sql {
-    set communities(url) [dotlrn_community::get_url_from_package_id -package_id ${communities(package_id)}]
-}
-
 ad_return_template