Index: openacs-4/packages/assessment/tcl/as-apm-checks-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-apm-checks-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/tcl/as-apm-checks-procs.tcl	1 Feb 2005 22:13:09 -0000	1.1
@@ -0,0 +1,46 @@
+ad_library {
+    @author Anny Flores (annyflores@viaro.net)
+    @creation_date 2004-12-03
+
+    Inter_Item_Check Library - Reply Handling
+}
+
+
+namespace eval inter_item_checks::notification_delivery {
+
+    ad_proc -public do_notification {
+     -inter_item_check_id
+     -user_id
+     -interval_id
+    } {
+    } { 
+
+
+
+	db_1row  select_inter_item_check_name {*SQL*}
+        db_1row select_user_name {*SQL*}
+	set text ""
+
+        set package_id [ad_conn package_id]
+
+    # Notifies the users that requested notification for the specific INTER_ITEM_CHECK
+
+	set method_id [notification::get_delivery_method_id -name "email"]
+     
+	notification::new \
+	    -type_id [notification::type::get_type_id  -short_name inter_item_check_notif] \
+	    -object_id $inter_item_check_id \
+	    -notif_subject "Testing notification"\
+	    -notif_text "I works"
+	
+	notification::request::new \
+	    -type_id [notification::type::get_type_id \
+			  -short_name inter_item_check_notif] \
+	    -object_id $inter_item_check_id \
+	    -user_id $user_id \
+	    -interval_id $interval_id \
+	    -delivery_method_id $method_id
+	
+	
+    }
+}
Index: openacs-4/packages/assessment/tcl/as-apm-checks-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-apm-checks-procs.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/tcl/as-apm-checks-procs.xql	1 Feb 2005 22:13:09 -0000	1.1
@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<queryset>
+
+    <fullquery name="inter_item_checks::notification_delivery::do_notification.select_inter_item_check_name">
+        <querytext>
+        select inter_item_check_name from 
+        inter_item_checks where inter_item_check_id = :inter_item_check_id
+        </querytext>
+    </fullquery>
+
+    <fullquery name="inter_item_checks::notification_delivery::do_notification.select_user_name">
+        <querytext>
+        select persons.first_names || ' ' || persons.last_name as name,
+                                  parties.email        
+                                  from persons, parties
+                                  where person_id = :user_id
+                                  and person_id = party_id
+        </querytext>
+    </fullquery>
+
+
+</queryset>