Index: openacs-4/packages/wp-slim/www/presentation-acl-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-acl-add-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/wp-slim/www/presentation-acl-add-2.tcl	21 Dec 2004 22:06:47 -0000	1.4
+++ openacs-4/packages/wp-slim/www/presentation-acl-add-2.tcl	12 Sep 2013 20:47:19 -0000	1.5
@@ -21,9 +21,9 @@
     role
 }
 
-ad_require_permission $pres_item_id wp_admin_presentation
+permission::require_permission -object_id $pres_item_id -privilege wp_admin_presentation
 
-set context [list [list "presentation-top?[export_url_vars pres_item_id]" "$title"] [list "presentation-acl?[export_url_vars pres_item_id]" "[_ wp-slim.Authorization]"] "[_ wp-slim.Confirm_Add_User]"]
+set context [list [list "presentation-top?[export_vars -url {pres_item_id}]" "$title"] [list "presentation-acl?[export_vars -url {pres_item_id}]" "[_ wp-slim.Authorization]"] "[_ wp-slim.Confirm_Add_User]"]
 
 
 set privilege [ad_decode $role "read" "wp_view_presentation" "write" "wp_edit_presentation" "admin" "wp_admin_presentation" ""]
@@ -35,7 +35,7 @@
     and   grantee_id = :user_id_from_search
     and   privilege = :privilege
 }] {
-    set vars [export_url_vars pres_item_id]
+    set vars [export_vars -url {pres_item_id}]
     ad_return_error "[_ wp-slim.lt_User_Already_Had_That]" "[_ wp-slim.lt_That_user_can_already]"
     db_release_unused_handles
     return