Index: openacs-4/packages/dotlrn-portlet/dotlrn-portlet.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/dotlrn-portlet.info,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn-portlet/dotlrn-portlet.info	22 Jan 2002 15:33:28 -0000	1.5
+++ openacs-4/packages/dotlrn-portlet/dotlrn-portlet.info	11 Feb 2002 06:05:30 -0000	1.6
@@ -27,6 +27,7 @@
             <file type="data_model_drop" db_type="oracle" path="sql/oracle/dotlrn-portlet-drop.sql"/>
             <file type="tcl_procs" path="tcl/dotlrn-admin-portlet-procs.tcl"/>
             <file type="tcl_procs" path="tcl/dotlrn-portlet-procs.tcl"/>
+            <file type="query_file" db_type="oracle" path="www/dotlrn-admin-portlet-oracle.xql"/>
             <file type="content_page" path="www/dotlrn-admin-portlet.adp"/>
             <file type="content_page" path="www/dotlrn-admin-portlet.tcl"/>
             <file type="query_file" path="www/dotlrn-admin-portlet.xql"/>
Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet-oracle.xql	11 Feb 2002 06:05:30 -0000	1.1
@@ -0,0 +1,12 @@
+<?xml version="1.0"?>
+
+<queryset>
+  <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="select_subgroups">
+<querytext>
+select community_id, community_key, pretty_name, dotlrn_community.url(community_id) as community_url from dotlrn_communities where parent_community_id= :community_id order by pretty_name
+</querytext>
+</fullquery>
+
+</queryset>
Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.adp	22 Jan 2002 15:33:28 -0000	1.2
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.adp	11 Feb 2002 06:05:30 -0000	1.3
@@ -33,10 +33,15 @@
     </ul>
   </li>
 
-<if @n_subgroups@ gt 0>
   <p></p>
-  <li><include src="subgroups"></li>
-</if>
+  <li>Subgroups:
+        <ul>
+        <multiple name="subgroups">
+        <li> <a href=@subgroups.community_url@>@subgroups.pretty_name@</a>
+        </multiple>
+        <li> <a href=subcommunity-new>New Subgroup</a>
+        </ul>
+  </li>
 
   <p></p>
   <li><a href="applets">Manage Applets</a></li>
Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl	22 Jan 2002 15:33:28 -0000	1.2
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl	11 Feb 2002 06:05:30 -0000	1.3
@@ -18,6 +18,8 @@
 
 db_1row select_community_info {}
 
+db_multirow subgroups select_subgroups {}
+
 # hack for now
 set n_subgroups 0
 
Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.xql	22 Jan 2002 20:05:28 -0000	1.1
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.xql	11 Feb 2002 06:05:30 -0000	1.2
@@ -14,4 +14,5 @@
         and groups.group_id = community_id
     </querytext>
   </fullquery>
+
 </queryset>