Index: openacs-4/packages/cms/www/modules/categories/create-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/create-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/categories/create-oracle.xql	25 May 2001 02:56:11 -0000	1.1
+++ openacs-4/packages/cms/www/modules/categories/create-oracle.xql	18 Sep 2002 16:39:21 -0000	1.2
@@ -24,5 +24,14 @@
       </querytext>
 </fullquery>
 
+<partialquery name="pid">      
+      <querytext>
+      
+         ,parent_id => :parent_id
+
+  
+      </querytext>
+</partialquery>
+
  
 </queryset>
Index: openacs-4/packages/cms/www/modules/categories/create-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/create-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/categories/create-postgresql.xql	25 May 2001 02:56:11 -0000	1.1
+++ openacs-4/packages/cms/www/modules/categories/create-postgresql.xql	18 Sep 2002 16:39:21 -0000	1.2
@@ -9,11 +9,11 @@
     select content_keyword__new(
       :heading, 
       :description, 
-      null,
+      :pid,
       :keyword_id,
       now(),
       :user_id,
-      :ip$pid,
+      :ip,
       'content_keyword');
 
       </querytext>
@@ -29,4 +29,14 @@
 </fullquery>
 
  
+<partialquery name="pid">      
+      <querytext>
+      
+         $parent_id
+
+  
+      </querytext>
+</partialquery>
+
+
 </queryset>
Index: openacs-4/packages/cms/www/modules/categories/create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/create.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/www/modules/categories/create.tcl	16 Aug 2002 00:25:33 -0000	1.3
+++ openacs-4/packages/cms/www/modules/categories/create.tcl	18 Sep 2002 16:39:21 -0000	1.4
@@ -31,8 +31,7 @@
   db_transaction {
 
       if { ![template::util::is_nil parent_id] } {
-          set pid ",
-          parent_id => :parent_id"
+          set pid [db_map pid]
       } else {
           set pid ""
       }