Index: openacs-4/packages/dotlrn/www/join-policy-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/join-policy-toggle.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn/www/join-policy-toggle.tcl	8 Aug 2006 21:26:24 -0000	1.9
+++ openacs-4/packages/dotlrn/www/join-policy-toggle.tcl	1 Nov 2013 21:08:31 -0000	1.10
@@ -26,11 +26,7 @@
     {referer "one-community-admin"}
 } -validate {
     policy_ck -requires {policy:notnull} {
-        if {!(
-            [string equal $policy "open"] == 1 ||
-            [string equal $policy "needs approval"] == 1 ||
-            [string equal $policy "closed"] == 1
-        )} {
+        if {$policy ni {open needs approval closed}} {
             ad_complain [_ dotlrn.lt_policy_must_be_one_of]
         }
     }
@@ -40,7 +36,7 @@
 # i.e. AllowChangeEnrollmentPolicy
 dotlrn_portlet::is_allowed -parameter cenrollment
 
-if {[empty_string_p $community_id]} {
+if {$community_id eq ""} {
     set community_id [dotlrn_community::get_community_id]
 }