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.5.2.1 -r1.5.2.2
--- openacs-4/packages/notifications/www/request-new.tcl	11 Dec 2002 02:13:28 -0000	1.5.2.1
+++ openacs-4/packages/notifications/www/request-new.tcl	5 Mar 2003 15:04:17 -0000	1.5.2.2
@@ -32,7 +32,9 @@
     {interval_id:integer(select)           {label "Notification Interval"}
                                            {options $intervals}}
     {delivery_method_id:integer(select)    {label "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