Index: openacs-4/packages/notifications/www/request-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/www/request-new.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/notifications/www/request-new.tcl	16 Jan 2003 13:53:40 -0000	1.7
+++ openacs-4/packages/notifications/www/request-new.tcl	17 Feb 2003 14:01:51 -0000	1.8
@@ -32,7 +32,9 @@
     {interval_id:integer(select)           {label "[_ notifications.lt_Notification_Interval]"}
                                            {options $intervals}}
     {delivery_method_id:integer(select)    {label "[_ notifications.Delivery_Method]"}
-                                           {options $delivery_methods}}
+                                           {options $delivery_methods}
+        {value {[lindex [lindex $delivery_methods 0] 1]}}
+    }
 } -on_submit {
 
     # Add the subscribe
@@ -47,4 +49,8 @@
     ad_script_abort
 }
 
+if { [llength $delivery_methods] == 1 } {
+    element set_properties subscribe delivery_method_id -widget hidden
+}
+
 ad_return_template