Index: openacs-4/packages/rules/www/one-rule.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rules/www/Attic/one-rule.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/rules/www/one-rule.tcl	9 Dec 2004 20:11:25 -0000	1.6
+++ openacs-4/packages/rules/www/one-rule.tcl	10 Dec 2004 17:34:27 -0000	1.7
@@ -10,7 +10,23 @@
    qs:optional
    trigger:optional
 }
+set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
+set context [list "Add rule"]
+set rule_admin ""
+set admin [permission::permission_p -object_id $package_id -party_id $user_id -privilege "admin"]
+if { [exists_and_not_null rule_id] } {
+set rule_admin [permission::permission_p -object_id $rule_id -party_id $user_id -privilege "admin"]
+}
 
+if  { $rule_admin == 0 && $admin == 0 } {
+    doc_return 200 text/html  "<h3>Permission Denied</h3>
+                               You don't have permission to admin this Rule. "
+    ad_script_abort
+
+
+}
+
 set context [list "Rule Properties"]
 set qs_id_2 0
 if { ![exists_and_not_null qs]} {