Index: openacs-4/packages/dotlrn/www/privacy-policy-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/privacy-policy-toggle.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/www/privacy-policy-toggle.tcl	8 Aug 2006 21:26:24 -0000	1.3
+++ openacs-4/packages/dotlrn/www/privacy-policy-toggle.tcl	1 Nov 2013 21:08:32 -0000	1.4
@@ -26,24 +26,21 @@
     {referer "one-community-admin"}
 } -validate {
     policy_ck -requires {policy:notnull} {
-        if {!(
-            [string equal $policy "yes"] == 1 ||
-            [string equal $policy "no"] == 1
-        )} {
+        if {$policy ni {yes no}} {
             ad_complain [_ dotlrn.prv_policy_must_be_one_of]
         }
     }
 }
 
-if {[empty_string_p $community_id]} {
+if {$community_id eq ""} {
     set community_id [dotlrn_community::get_community_id]
 }
 
 #Only dotlrn-wide admins should be able to set privacy policies,
 #per discussion with Dee.  -AG
 dotlrn::require_admin
 
-if { [string equal $policy "yes"] } {
+if {$policy eq "yes"} {
     dotlrn_privacy::grant_read_private_data_to_guests -object_id $community_id
 } else {
     dotlrn_privacy::revoke_read_private_data_from_guests -object_id $community_id