- Added survsimp_response to rule object type

tcl/intranet-rule-engine-procs.tcl

@@ -681,6 +681,11 @@ ad_proc -callback im_risk_after_update -impl im_rule_engine { -object_id -status
     im_rule_callback -object_id $object_id -action after_update
     ns_log Notice "im_risk_after_update -impl im_rule_engine: Leaving callback code"
 }
+ad_proc -callback survsimp_response_after_update -impl im_rule_engine { -object_id -status_id -type_id } { } {
+    ns_log Notice "survsimp_response_after_update -impl im_rule_engine: Entering callback code"
+    im_rule_callback -object_id $object_id -action after_update
+    ns_log Notice "survsimp_response_after_update -impl im_rule_engine: Leaving callback code"
+}
 
 
 
@@ -720,6 +725,12 @@ ad_proc -callback im_risk_after_create -impl im_rule_engine { -object_id -status
     ns_log Notice "im_risk_after_create -impl im_rule_engine: Leaving callback code"
 }
 
+ad_proc -callback survsimp_response_after_create -impl im_rule_engine { -object_id -status_id -type_id } { } {
+    ns_log Notice "survsimp_response_after_create -impl im_rule_engine: Entering callback code"
+    im_rule_callback -object_id $object_id -action after_create
+    ns_log Notice "survsimp_response_after_create -impl im_rule_engine: Leaving callback code"
+}
+
 
 # ---------------------------------------------------------------------
 # View
@@ -755,4 +766,10 @@ ad_proc -callback im_risk_view -impl im_rule_engine { -object_id -status_id -typ
     ns_log Notice "im_risk_view -impl im_rule_engine: Leaving callback code"
 }
 
+ad_proc -callback survsimp_response_view -impl im_rule_engine { -object_id -status_id -type_id } { } {
+    ns_log Notice "survsimp_response_view -impl im_rule_engine: Entering callback code"
+    im_rule_callback -object_id $object_id -action view
+    ns_log Notice "survsimp_response_view -impl im_rule_engine: Leaving callback code"
+}
+