Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v diff -u -N -r1.60.2.3 -r1.60.2.4 --- openacs-4/packages/acs-subsite/tcl/group-procs.tcl 29 Mar 2019 13:49:01 -0000 1.60.2.3 +++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl 29 Mar 2019 15:58:24 -0000 1.60.2.4 @@ -574,10 +574,10 @@ ad_proc -public group::member_p { - { -user_id "" } - { -group_name "" } - { -group_id "" } - { -subsite_id "" } + {-user_id ""} + {-group_name ""} + {-group_id ""} + {-subsite_id ""} -cascade:boolean } { Return 1 if the user is a member of the group specified. @@ -624,9 +624,9 @@ } ad_proc -private group::member_p_not_cached { - { -user_id:required } - { -group_id:required } - { -cascade_p f } + -user_id:required + -group_id:required + {-cascade_p f} } { Return 1 if the user is a member of the group specified.