Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/Attic/dotlrn-communities-create.sql,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	16 Mar 2002 02:02:07 -0000	1.27
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	16 Mar 2002 18:59:03 -0000	1.28
@@ -63,6 +63,7 @@
 create or replace view dotlrn_communities_full
 as
     select dotlrn_communities.*,
+           dotlrn_community.url(dotlrn_communities.community_id) as url,
            groups.group_name,
            groups.join_policy
     from dotlrn_communities,
Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.79 -r1.80
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	16 Mar 2002 17:38:08 -0000	1.79
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	16 Mar 2002 18:59:03 -0000	1.80
@@ -678,7 +678,7 @@
     } {
         set return_list [db_list_of_lists select_communities_by_user {}]
 
-        ns_log Notice "return list: $return_list"
+        # ns_log Notice "return list: $return_list"
 
         return $return_list
     }
Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	16 Mar 2002 17:29:09 -0000	1.38
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	16 Mar 2002 18:59:03 -0000	1.39
@@ -190,14 +190,15 @@
 
 <fullquery name="dotlrn_community::get_all_communities_by_user.select_communities_by_user">
   <querytext>
-    select dotlrn_communities.community_id,
-           dotlrn_communities.community_type,
-           dotlrn_communities.community_key,
-           dotlrn_communities.pretty_name,
-           dotlrn_communities.package_id
-    from dotlrn_communities,
+    select dotlrn_communities_full.community_id,
+           dotlrn_communities_full.community_type,
+           dotlrn_communities_full.community_key,
+           dotlrn_communities_full.pretty_name,
+           dotlrn_communities_full.package_id,
+           dotlrn_communities_full.url
+    from dotlrn_communities_full,
          dotlrn_member_rels_approved
-    where dotlrn_communities.community_id = dotlrn_member_rels_approved.community_id
+    where dotlrn_communities_full.community_id = dotlrn_member_rels_approved.community_id
     and dotlrn_member_rels_approved.user_id = :user_id
   </querytext>
 </fullquery>
Index: openacs-4/packages/dotlrn/www/index-no-browse.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/index-no-browse.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/index-no-browse.adp	16 Mar 2002 00:32:09 -0000	1.1
+++ openacs-4/packages/dotlrn/www/index-no-browse.adp	16 Mar 2002 18:59:03 -0000	1.2
@@ -3,9 +3,14 @@
 
 You are a member of the following groups:
 <ul>
-<list name="communities">
-<li> @communities:item@
-</list>
+<%
+foreach community $communities {
+        set url [lindex $community 5]
+        set pretty_name [lindex $community 3]
+
+        template::adp_puts "<li> <a href=\"$url\">$pretty_name</a>\n"
+}
+%>
 </ul>