Index: openacs-4/packages/notifications/tcl/delivery-method-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/delivery-method-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/notifications/tcl/delivery-method-procs.xql	28 Jun 2002 20:21:50 -0000	1.2
+++ openacs-4/packages/notifications/tcl/delivery-method-procs.xql	17 Jun 2003 01:04:46 -0000	1.3
@@ -3,11 +3,19 @@
 <queryset>
 
 <fullquery name="notification::delivery::get_impl_key.select_impl_key">
-<querytext>
-select impl_name from acs_sc_impls, notification_delivery_methods
-where acs_sc_impls.impl_id = notification_delivery_methods.sc_impl_id
-and delivery_method_id= :delivery_method_id
-</querytext>
+  <querytext>
+    select impl_name from acs_sc_impls, notification_delivery_methods
+    where acs_sc_impls.impl_id = notification_delivery_methods.sc_impl_id
+      and delivery_method_id= :delivery_method_id
+  </querytext>
 </fullquery>
 
+
+<fullquery name="notification::delivery::get_id_from_name.get_delivery_method_id">
+  <querytext>
+    select delivery_method_id
+    from notification_delivery_methods where short_name = 'email'
+  </querytext>
+</fullquery>
+
 </queryset>