Index: openacs-4/packages/notifications/tcl/notification-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-type-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/notifications/tcl/notification-type-procs.tcl	17 May 2003 10:54:25 -0000	1.6
+++ openacs-4/packages/notifications/tcl/notification-type-procs.tcl	14 Nov 2003 14:18:10 -0000	1.7
@@ -23,6 +23,8 @@
     }
 
     ad_proc -public new {
+        {-all_intervals:boolean 0}
+        {-all_delivery_methods:boolean 0}
         {-type_id ""}
         {-sc_impl_id:required}
         {-short_name:required}
@@ -36,6 +38,14 @@
 
         set type_id [package_instantiate_object -extra_vars $extra_vars notification_type]
 
+        if { $all_intervals_p } {
+            db_dml enable_all_intervals {}
+        }
+
+        if { $all_delivery_methods_p } {
+            db_dml enable_all_delivery_methods {}
+        }
+        
         return $type_id
     }
 
Index: openacs-4/packages/notifications/tcl/notification-type-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-type-procs.xql,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/notifications/tcl/notification-type-procs.xql	25 Feb 2003 10:07:13 -0000	1.4
+++ openacs-4/packages/notifications/tcl/notification-type-procs.xql	14 Nov 2003 14:18:10 -0000	1.5
@@ -77,4 +77,22 @@
         </querytext>
     </fullquery>
 
+  <fullquery name="notification::type::new.enable_all_intervals">
+    <querytext>
+        insert into notification_types_intervals
+        (type_id, interval_id)
+        select :type_id, interval_id
+        from   notification_intervals
+    </querytext>
+  </fullquery>
+
+  <fullquery name="notification::type::new.enable_all_delivery_methods">
+    <querytext>
+        insert into notification_types_del_methods
+        (type_id, delivery_method_id)
+        select :type_id, delivery_method_id
+        from   notification_delivery_methods
+    </querytext>
+  </fullquery>
+
 </queryset>