Index: openacs-4/packages/notifications/tcl/delivery-method-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/delivery-method-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/notifications/tcl/delivery-method-procs.tcl	30 Nov 2002 17:40:18 -0000	1.6
+++ openacs-4/packages/notifications/tcl/delivery-method-procs.tcl	17 Jun 2003 01:04:46 -0000	1.7
@@ -73,4 +73,20 @@
         return [acs_sc_call NotificationDeliveryMethod ScanReplies $args $impl_key]
     }
 
+    ad_proc -public get_id_from_name {
+        -name:required
+    } {
+
+        Return the delivery_method_id for the given name
+
+        @param name A delivery type name (email etc)
+
+        @author Don Baccus (dhogaza@pacifier.com)
+
+    } {
+
+        return [db_string get_delivery_method_id {}]
+
+    }
+
 }