Index: openacs-4/packages/bulk-mail/www/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bulk-mail/www/one.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/bulk-mail/www/one.tcl	15 May 2002 22:07:52 -0000	1.1
+++ openacs-4/packages/bulk-mail/www/one.tcl	16 May 2002 00:41:44 -0000	1.2
@@ -7,10 +7,12 @@
 } -query {
     bulk_mail_id:integer,notnull
 } -properties {
-    bulk_mail_name:onevalue
+    title:onevalue
     context_bar:onevalue
 }
 
+permission::require_permission -object_id $bulk_mail_id -privilege admin
+
 set package_id [ad_conn package_id]
 
 db_1row select_message_info {}