Index: openacs-4/packages/rules/www/add-trigger.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rules/www/Attic/add-trigger.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/rules/www/add-trigger.tcl	16 Dec 2004 18:44:41 -0000	1.6
+++ openacs-4/packages/rules/www/add-trigger.tcl	20 Dec 2004 19:38:43 -0000	1.7
@@ -11,16 +11,7 @@
 ad_maybe_redirect_for_registration
 set qs_sel 0
 set context [list [list "one-rule?rule_id=$rule_id" "Rule Properties"] "Add Trigger"]
-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"]
-}
-
-
+permission::require_permission -object_id $rule_id -privilege "admin"
 # Just while  get the assessment package ready
 
 set questions [list]