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.17 -r1.18
--- openacs-4/packages/notifications/www/request-new.tcl	18 Jan 2019 17:40:18 -0000	1.17
+++ openacs-4/packages/notifications/www/request-new.tcl	3 Sep 2024 15:37:39 -0000	1.18
@@ -10,6 +10,8 @@
     object_id:naturalnum,notnull
     {pretty_name:allhtml ""}
     return_url:localurl
+    interval_id:integer,optional
+    delivery_method_id:integer,optional
 }
 
 set user_id [auth::require_login]
@@ -42,13 +44,15 @@
     }
 } -on_submit {
 
-    # Add the subscribe
-    notification::request::new \
-        -type_id $type_id \
-        -user_id $user_id \
-        -object_id $object_id \
-        -interval_id $interval_id \
-        -delivery_method_id $delivery_method_id
+    db_transaction {
+        # Add the subscribe
+        notification::request::new \
+            -type_id $type_id \
+            -user_id $user_id \
+            -object_id $object_id \
+            -interval_id $interval_id \
+            -delivery_method_id $delivery_method_id
+    }
 
     ad_returnredirect $return_url
     ad_script_abort