Index: openacs-4/packages/acs-subsite/www/admin/groups/elements-display.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/elements-display.tcl,v diff -u -r1.10.2.1 -r1.10.2.2 --- openacs-4/packages/acs-subsite/www/admin/groups/elements-display.tcl 2 Jan 2020 17:16:36 -0000 1.10.2.1 +++ openacs-4/packages/acs-subsite/www/admin/groups/elements-display.tcl 3 Jan 2020 14:58:29 -0000 1.10.2.2 @@ -18,12 +18,10 @@ group_id:onevalue group_name:onevalue role_pretty_plural:onevalue - create_p:onevalue rel_type_enc:onevalue return_url_enc:onevalue member_state:onevalue possible_member_states:multirow - ancestor_rel_type:onevalue } -validate { groups_exists_p -requires {group_id:notnull} { if { ![permission::permission_p -object_id $group_id -privilege "read"] } { @@ -34,9 +32,10 @@ set user_id [ad_conn user_id] set create_p [permission::permission_p -party_id $user_id -object_id $group_id -privilege "create"] -set return_url_enc [ad_urlencode "[ad_conn url]?[ad_conn query]"] -set rel_type_enc [ad_urlencode $rel_type] +set add_url [export_vars -base "../relations/add" { + group_id rel_type {return_url "[ad_conn url]?[ad_conn query]"}}] + # Select out the group name and the group's object type. Note we can # use 1row because the validate filter above will catch missing groups db_1row group_and_rel_info {