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 -N -r1.3 -r1.4
--- openacs-4/packages/notifications/tcl/delivery-method-procs.xql	17 Jun 2003 01:04:46 -0000	1.3
+++ openacs-4/packages/notifications/tcl/delivery-method-procs.xql	28 Aug 2003 09:41:58 -0000	1.4
@@ -2,20 +2,28 @@
 
 <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
+  <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>
-</fullquery>
+    </querytext>
+  </fullquery>
 
+  <fullquery name="notification::delivery::get_id.select_delivery_method_id">
+    <querytext>
+      select delivery_method_id
+      from   notification_delivery_methods
+      where  short_name = :short_name
+    </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>
+  <fullquery name="notification::delivery::update_sc_impl_id.update">
+    <querytext>
+      update notification_delivery_methods
+      set    sc_impl_id = :sc_impl_id
+      where  delivery_method_id = :delivery_method_id
+    </querytext>
+  </fullquery>
 
 </queryset>