Index: openacs-4/packages/wp-slim/www/presentation-acl-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-acl-add-3.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/wp-slim/www/presentation-acl-add-3.tcl	2 Dec 2013 09:01:40 -0000	1.7
+++ openacs-4/packages/wp-slim/www/presentation-acl-add-3.tcl	27 Jun 2015 20:34:41 -0000	1.8
@@ -20,7 +20,7 @@
 
 permission::require_permission -object_id $pres_item_id -privilege wp_admin_presentation
 
-if {![empty_string_p $email]} {
+if {$email ne ""} {
     set user_id [ad_conn user_id]
     db_1row email_get {
 	select email as sender_email
@@ -35,10 +35,10 @@
 }
 
 set privilege_list "wp_view_presentation"
-if { [string equal $role "write"] } {
+if {$role eq "write"} {
     lappend privilege_list "wp_edit_presentation"
 }
-if { [string equal $role "write"] } {
+if {$role eq "write"} {
     lappend privilege_list "wp_edit_presentation"
 }
 
@@ -64,4 +64,4 @@
     }   
 }
 
-ad_returnredirect presentation-acl?[export_vars -url { pres_item_id }]
+ad_returnredirect [export_vars -base presentation-acl { pres_item_id }]