Index: openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs-postgresql.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs-postgresql.xql	13 Oct 2003 17:07:26 -0000	1.4
+++ openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs-postgresql.xql	14 Oct 2003 13:58:56 -0000	1.5
@@ -54,4 +54,15 @@
                 </querytext>
         </fullquery>
 
+        <fullquery name="bcms::folder::register_content_types.register_type">
+                <querytext>
+
+                    select content_folder__register_content_type (
+                        :folder_id,
+                        :content_type,
+                        :subtypes_p
+                    )
+                </querytext>
+        </fullquery>
+
 </queryset>