Index: openacs-4/packages/rules/tcl/rules-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rules/tcl/Attic/rules-procs-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/rules/tcl/rules-procs-oracle.xql	7 Dec 2004 17:43:47 -0000	1.2
+++ openacs-4/packages/rules/tcl/rules-procs-oracle.xql	8 Dec 2004 22:27:06 -0000	1.3
@@ -10,6 +10,7 @@
     <querytext>
      declare begin
         :1 := rule.new(
+              rule_id   =>      :rule_id,
 	      rule_name	=>	:rule_name,
 	      asm_id	=>	:asm_id,
 	      active_p	=>	:active_p
Index: openacs-4/packages/rules/tcl/rules-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rules/tcl/Attic/rules-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/rules/tcl/rules-procs.tcl	3 Dec 2004 18:02:56 -0000	1.1
+++ openacs-4/packages/rules/tcl/rules-procs.tcl	8 Dec 2004 22:27:06 -0000	1.2
@@ -26,6 +26,7 @@
 	-rule_name
 	-asm_id
 	-active_p
+        -rule_id 
     } {
 	Add new rule
     } {