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.16.2.2 -r1.16.2.3 --- openacs-4/packages/acs-subsite/www/register/user-join.tcl 23 Nov 2020 14:55:35 -0000 1.16.2.2 +++ openacs-4/packages/acs-subsite/www/register/user-join.tcl 23 Nov 2020 14:55:52 -0000 1.16.2.3 @@ -119,14 +119,14 @@ if { $not_hidden == 0 || [template::form is_valid join] } { db_transaction { - + #---------------------------------------------------------------------- # Join all required segments #---------------------------------------------------------------------- for { set rownum 1 } { $rownum <= $num_required_segments } { incr rownum } { set required_seg [template::multirow get required_segments $rownum] - + if { ![group::member_p -group_id $required_segments(group_id)] } { switch -- $required_segments(join_policy) { "needs approval" { @@ -152,7 +152,7 @@ $user_id] } } - + #---------------------------------------------------------------------- # Join the actual group #---------------------------------------------------------------------- @@ -183,7 +183,7 @@ ad_return_error [_ acs-subsite.Error_joining] [_ acs-subsite.Error_joining_details] ad_script_abort } - + switch -- $member_state { "approved" { set message "[_ acs-subsite.You_joined_group]." } "needs approval" { set message "[_ acs-subsite.Request_join_submitted]." }