Index: openacs-4/packages/notifications/tcl/notification-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/notifications/tcl/notification-procs.xql	24 May 2002 20:42:42 -0000	1.1
+++ openacs-4/packages/notifications/tcl/notification-procs.xql	29 May 2002 05:12:01 -0000	1.2
@@ -1,11 +1,48 @@
 <?xml version="1.0"?>
 <queryset>
 
+<fullquery name="notification::get_all_intervals.select_all_intervals">
+<querytext>
+select name, interval_id from 
+notification_intervals
+order by n_seconds
+</querytext>
+</fullquery>
+
+<fullquery name="notification::get_intervals.select_intervals">
+<querytext>
+select name, notification_intervals.interval_id from 
+notification_intervals, notification_types_intervals
+where
+notification_intervals.interval_id = notification_types_intervals.interval_id
+and type_id= :type_id
+order by n_seconds
+</querytext>
+</fullquery>
+
+<fullquery name="notification::get_delivery_methods.select_delivery_methods">
+<querytext>
+select pretty_name, notification_delivery_methods.delivery_method_id 
+from notification_delivery_methods, notification_types_del_methods
+where 
+notification_delivery_methods.delivery_method_id = notification_types_del_methods.delivery_method_id
+and type_id= :type_id
+order by pretty_name
+</querytext>
+</fullquery>
+
+<fullquery name="notification::delete.delete_mappings">
+<querytext>
+delete from notification_user_map
+where notification_id= :notification_id
+</querytext>
+</fullquery>
+
 <fullquery name="notification::mark_sent.insert_notification_user_map">
 <querytext>
 insert into notification_user_map
 (notification_id, user_id, sent_date) values
-(:notification_id, :user_id, sysdate())
+(:notification_id, :user_id, sysdate)
 </querytext>
 </fullquery>