- Fixed issue in rule-engine

tcl/intranet-rule-engine-procs.tcl

@@ -260,6 +260,7 @@ ad_proc im_rule_callback {
     set new(sender_first_names) $sender_first_names
     set new(sender_last_name) $sender_last_name
     set new(sender_email) $sender_email
+    set new(user_id) $sender_user_id
 
     set env [list [array get old] [array get new] [array get changed]]
 
@@ -339,8 +340,10 @@ ad_proc im_rule_callback_fire_action {
     array set changed [lindex $env 2]
     set new(rule_id) $rule_id
 
+#    ad_return_complaint 1 [array get new]
+
     # Execute the action - copied from /ds/shell
-    if {[catch {set out [uplevel 1 $action_tcl]}]} {
+    if {[catch {set out [uplevel 0 $action_tcl]}]} {
 	global errorInfo
 	set out "ERROR:\n$errorInfo"
 	set out "ERROR:\n$errorInfo"