Index: openacs-4/packages/dotlrn/www/community-type.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-type.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/community-type.adp	19 Jan 2002 22:54:20 -0000	1.2
+++ openacs-4/packages/dotlrn/www/community-type.adp	20 Jan 2002 22:25:42 -0000	1.3
@@ -11,7 +11,7 @@
 <p></p>
 
 <blockquote>
-  <include src="community-types">
+  <include src="community-types-chunk">
 </blockquote>
 
 <p></p>
Index: openacs-4/packages/dotlrn/www/community-types-chunk-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-types-chunk-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/community-types-chunk-oracle.xql	20 Jan 2002 22:26:20 -0000	1.1
@@ -0,0 +1,18 @@
+<?xml version="1.0"?>
+
+<queryset>
+  <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+  <fullquery name="select_community_types">
+    <querytext>
+      select dotlrn_community_types.community_type,
+             dotlrn_community_types.pretty_name,
+             dotlrn_community_types.description,
+             (select site_node.url(site_nodes.node_id)
+              from site_nodes
+              where site_nodes.object_id = dotlrn_community_types.package_id) as url
+      from dotlrn_community_types
+      where dotlrn_community_types.supertype = :community_type
+    </querytext>
+  </fullquery>
+</queryset>
Index: openacs-4/packages/dotlrn/www/community-types-chunk.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-types-chunk.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/community-types-chunk.adp	20 Jan 2002 22:26:20 -0000	1.1
@@ -0,0 +1,10 @@
+<if @community_types:rowcount@ gt 0>
+  <h3><if @title@ nil>Community Types</if><else>@title@</else></h3>
+  <table cellpadding="5" cellspacing="5">
+<multiple name="community_types">
+    <tr>
+      <td><a href="@community_types.url@">@community_types.pretty_name@</a></td>
+    </tr>
+</multiple>
+  </table>
+</if>
Index: openacs-4/packages/dotlrn/www/community-types-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-types-chunk.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/community-types-chunk.tcl	20 Jan 2002 22:26:20 -0000	1.1
@@ -0,0 +1,16 @@
+# dotlrn/www/community-types-chunk.tcl
+
+ad_page_contract {
+    @author yon (yon@milliped.com)
+    @creation-date Dec 07, 2001
+    @version $Id: community-types-chunk.tcl,v 1.1 2002/01/20 22:26:20 yon Exp $
+} -query {
+} -properties {
+    community_types:multirow
+}
+
+set community_type [dotlrn_community::get_community_type]
+
+db_multirow community_types select_community_types {}
+
+ad_return_template
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/dotlrn/www/community-types-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/dotlrn/www/community-types.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/dotlrn/www/community-types.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/dotlrn/www/one-community-type.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community-type.adp,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn/www/one-community-type.adp	19 Jan 2002 22:54:20 -0000	1.15
+++ openacs-4/packages/dotlrn/www/one-community-type.adp	20 Jan 2002 22:25:42 -0000	1.16
@@ -11,7 +11,7 @@
 <p></p>
 
 <blockquote>
-  <include src="community-types" title="@community_type_title@">
+  <include src="community-types-chunk" title="@community_type_title@">
 </blockquote>
 
 <p></p>