Index: openacs-4/packages/cms/tcl/module-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/module-procs-postgresql.xql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/cms/tcl/module-procs-postgresql.xql	14 Aug 2001 18:11:30 -0000	1.3
+++ openacs-4/packages/cms/tcl/module-procs-postgresql.xql	17 Aug 2001 02:53:47 -0000	1.4
@@ -11,12 +11,12 @@
 	  r.name, 
           r.item_id,
           '' as children,
-	  coalesce((select 't'  where exists
+	  coalesce((select 't'::text  where exists
 	    (select 1 from cr_folders f_child, cr_resolved_items r_child
 	       where r_child.parent_id = r.resolved_id
-		 and f_child.folder_id = r_child.resolved_id)), 'f') expandable,
-	  r.is_symlink symlink, 
-          0 update_time
+		 and f_child.folder_id = r_child.resolved_id)), 'f'::text) as expandable,
+	  r.is_symlink as symlink, 
+          0 as update_time
 	from
 	  cr_folders f, cr_resolved_items r
 	where
@@ -29,10 +29,10 @@
 </fullquery>
 
  
-<fullquery name="cm::modules::templates::getRootFolderId.grfi_get_root_id">
+<fullquery name="cm::modules::templates::getRootFolderID.grfi_get_root_id">
       <querytext>
       
-            select content_template__get_root_folder(null) 
+            select content_template__get_root_folder() 
       </querytext>
 </fullquery>
 
@@ -130,7 +130,33 @@
 	</querytext>
 </partialquery>
 
+<fullquery name="cm::modules::categories::getChildFolders.gcf_get_child_folders">
+	<querytext>
+                     select 
+                     :module_name as mount_point,
+                     content_keyword__get_heading(keyword_id) as name, 
+                     keyword_id, 
+                     '' as children,
+                     coalesce( (select 't'::text from dual 
+                             where exists (
+                               select 1 from cr_keywords k2
+                                 where k2.parent_id = k.keyword_id
+                                   and content_keyword__is_leaf(k2.keyword_id) = 'f')),
+                           'f') as expandable,
+                     'f' as symlink,
+                     0 as update_time           
+                   from 
+                     cr_keywords k
+                   where 
+                     $where_clause
+                   and
+                     content_keyword__is_leaf(keyword_id) = 'f'
+                   order by 
+                     name
+	</querytext>
+</fullquery>
 
+
 <partialquery name="cm::modules::categories::getSortedPaths.gsp_get_query">
 	<querytext>
 
@@ -165,4 +191,30 @@
 	</querytext>
 </partialquery>
 
+<fullquery name="cm::modules::users::getChildFolders.gcf_get_child_folders">
+	<querytext>
+
+                select
+                     :module_name as mount_point,
+                     g.group_name as name, 
+                     g.group_id, '' as children,
+                     coalesce(
+                      (select 't'::text from dual 
+                        where exists (
+                          select 1 from group_component_map m2
+                          where m2.group_id = g.group_id)),
+                      'f'::text 
+                     ) as expandable,
+                     'f' as symlink,
+                     0 as update_time
+                   from 
+                     groups g $map_table
+                   where 
+                     $where_clause
+                   order by 
+                     name
+
+	</querytext>
+</fullquery>
+
 </queryset>