Index: openacs-4/packages/assessment/tcl/as-checks-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-checks-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/assessment/tcl/as-checks-procs.tcl	4 Feb 2005 22:20:02 -0000	1.13
+++ openacs-4/packages/assessment/tcl/as-checks-procs.tcl	8 Feb 2005 16:56:09 -0000	1.14
@@ -253,11 +253,18 @@
     if { $failed > 0 } {
 	set failed_p "f"
     }
+    set admin [db_list_of_lists get_assessment_admin {}]
     
-    ns_log notice "-----------------------> error $errorMsg ---"
+    set to [list]
+    foreach notify_user $admin {
+	lappend to $notify_user
+    }
+    
+    notification::new -type_id [notification::type::get_type_id -short_name inter_item_check_notif] -object_id $inter_item_check_id -notif_subject "$action_name has been executed" -notif_text "The action $action_name has been executed. This message has been showed to the user: $user_message $error_txt" -subset $to -force -action_id $inter_item_check_id
+    
 
-    notification::new -type_id [notification::type::get_type_id -short_name inter_item_check_notif] -object_id $inter_item_check_id -notif_subject "$action_name has been executed" -notif_text "The action $action_name has been executed. This message has been showed to the user: $user_message $error_txt"
     
+    
     as::assessment::check::action_log -session_id $session_id -check_id $inter_item_check_id -failed $failed_p
     
 }
@@ -305,9 +312,15 @@
     
     set user_id [ad_conn user_id]
     db_dml update_actions_log {}
+        set admin [db_list_of_lists get_assessment_admin {}]
     
-    notification::new -type_id [notification::type::get_type_id -short_name as_inter_item_check_notif] -object_id $inter_item_check_id -notif_subject "$action_name has been executed" -notif_text "The action $action_name has been executed. This message has been showed to the user: $user_message"
+    set to [list]
+    foreach notify_user $admin {
+	lappend to $notify_user
+    }
     
+    notification::new -type_id [notification::type::get_type_id -short_name inter_item_check_notif] -object_id $inter_item_check_id -notif_subject "$action_name has been executed" -notif_text "The action $action_name has been executed. This message has been showed to the user: $user_message" -subset $to -force -action_id $inter_item_check_id
+
     
 }
 
Index: openacs-4/packages/assessment/tcl/as-checks-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-checks-procs.xql,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/assessment/tcl/as-checks-procs.xql	4 Feb 2005 18:08:41 -0000	1.9
+++ openacs-4/packages/assessment/tcl/as-checks-procs.xql	8 Feb 2005 16:56:09 -0000	1.10
@@ -23,6 +23,23 @@
       </querytext>
 </fullquery>
 
+<fullquery name="as::assessment::check::action_exec.get_assessment_admin">
+      <querytext>
+	select grantee_id from acs_permissions where object_id=(select
+      assessment_id from as_inter_item_checks where
+      inter_item_check_id=:inter_item_check_id) and privilege='admin'
+      </querytext>
+</fullquery>
+<fullquery name="as::assessment::check::manual_action_exec.get_assessment_admin">
+      <querytext>
+	select grantee_id from acs_permissions where object_id=(select
+      assessment_id from as_inter_item_checks where
+      inter_item_check_id=:inter_item_check_id) and privilege='admin'
+      </querytext>
+</fullquery>
+
+
+
 <fullquery name="as::assessment::check::get_parameter_value.get_param_n">
       <querytext>
       select item_id from as_param_map where parameter_id=:parameter_id and inter_item_check_id=:check_id