Index: openacs-4/packages/rules/www/add-action.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rules/www/Attic/add-action.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/rules/www/add-action.tcl	3 Dec 2004 17:55:36 -0000	1.1
+++ openacs-4/packages/rules/www/add-action.tcl	7 Dec 2004 19:57:46 -0000	1.2
@@ -6,20 +6,28 @@
     Add new rule related to an Assessment
 } {
     rule_id:notnull
+    selected_a:optional
 }
 
+set default_action 1
+
 # Just while I get the assessment package ready
 set context [list [list "one-rule?rule_id=$rule_id" "Rule Properties"] "Add Action"]
+if { [exists_and_not_null selected_a]} {
+      set default_action $selected_a
+}
 
-
-set actions { {"add user to" 1} {"add to list of" 2} }
+set actions { {"add user to" 1} {"add to list of" 2} {"add user to the system" 3}}
 set results [list]
+if { $default_action != 3 } {
 db_foreach communities { *SQL* } {
     lappend results [list $pretty_name $community_id]
+} 
+} else {
+    lappend  results [list "System" -1]
 }
 
 
-
 form create add_action
 
 element create add_action rule_id\
@@ -31,7 +39,9 @@
      -datatype text\
      -widget select\
      -label "Action"\
-     -options $actions
+     -options $actions\
+     -html { onChange getAction()}\
+     -value $default_action
     
 element create add_action group_id\
       -datatype text\