Index: openacs-4/packages/wp-slim/www/presentation-acl.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-acl.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/wp-slim/www/presentation-acl.tcl	6 Sep 2002 15:32:23 -0000	1.2
+++ openacs-4/packages/wp-slim/www/presentation-acl.tcl	28 Aug 2003 09:42:00 -0000	1.3
@@ -16,20 +16,10 @@
     pres_item_id
 }
 
-ad_require_permission $pres_item_id wp_admin_presentation
+set user_id [ad_verify_and_get_user_id]
+permission::require_permission -party_id $user_id -object_id $pres_item_id -privilege wp_admin_presentation
 
-set user_id [ad_maybe_redirect_for_registration]
-#wp_check_authorization $pres_item_id $user_id "write"
 
-#db_1row pres_select {
-#select  title,
-#	creation_user,
-#	public_p,
-#	group_id
-#from wp_presentations
-#where pres_item_id = :pres_item_id
-#}
-
 db_1row get_presentaiton {
 select p.pres_title as title,
        p.public_p,
@@ -90,4 +80,4 @@
 
 db_release_unused_handles
 
-ad_return_template
\ No newline at end of file
+ad_return_template