Index: openacs-4/packages/acs-subsite/www/register/user-join.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/user-join.tcl,v diff -u -r1.11 -r1.12 --- openacs-4/packages/acs-subsite/www/register/user-join.tcl 4 Jun 2006 00:45:46 -0000 1.11 +++ openacs-4/packages/acs-subsite/www/register/user-join.tcl 10 Jan 2007 21:22:09 -0000 1.12 @@ -40,7 +40,7 @@ set ret_link "" } -if { [string equal $join_policy closed] } { +if {$join_policy eq "closed"} { ad_return_error [_ acs-subsite.Closed_group] "[_ acs-subsite.This_group_is_closed]
$ret_link" ad_script_abort } @@ -64,7 +64,7 @@ set required_seg [multirow get required_segments $rownum] if { ![group::member_p -group_id $required_segments(group_id)] } { - if { [string equal $required_segments(join_policy) "closed"] } { + if {$required_segments(join_policy) eq "closed"} { ad_return_error [_ acs-subsite.Closed_group] "[_ acs-subsite.This_group_is_closed]
$ret_link" ad_script_abort } @@ -151,12 +151,12 @@ if { [permission::permission_p -object_id $group_id -privilege "admin"] } { set member_state "approved" - if { [string equal $rel_type "membership_rel"] } { + if {$rel_type eq "membership_rel"} { # If they already have admin, bump them to an admin_rel set rel_type "admin_rel" } } else { - if { [string equal $join_policy "needs approval"] } { + if {$join_policy eq "needs approval"} { set member_state "needs approval" } else { set member_state "approved"