Index: openacs-4/packages/rules/www/add-rule.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rules/www/Attic/add-rule.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/rules/www/add-rule.tcl	8 Dec 2004 21:23:33 -0000	1.2
+++ openacs-4/packages/rules/www/add-rule.tcl	8 Dec 2004 22:19:49 -0000	1.3
@@ -5,7 +5,7 @@
 
     Add new rule related to an Assessment
 } {
- 
+   rule_id:optional
 } -properties {
   context
 }
@@ -16,7 +16,7 @@
 
 set assessments [rules::rule::get_assessments]
 ad_form -name  add_rule  -form {
-     
+     rule_id:key     
     { rule_name:text(text) 
 	{label "Rule Name"}
     }
@@ -28,14 +28,14 @@
 	{label "Active"}
 	{options {{Yes y} { No n}}}
     }
-} -on_submit  {
-     set table_name "rules"
-     set id_column_name "rule_id"
-     set return_url "index"
-     set generated_id "rule_id"
-
-     rules::rule::new_rule  -rule_name $rule_name -asm_id $asm_id -active_p $active_p
+} -new_data  {
+   
+     rules::rule::new_rule -rule_id $rule_id -rule_name $rule_name -asm_id $asm_id -active_p $active_p
     
-} -after_submit {
+ } -edit_request {
+     db_1row get_rule_properties {select * from rules where rule_id=:rule_id} 
+ } -edit_data {
+     db_dml update_rule { update rules set rule_name=:rule_name, active_p=:active_p, asm_id=:asm_id where rule_id=:rule_id }
+ } -after_submit {
   ad_returnredirect "index"
 }