Index: openacs-4/packages/acs-subsite/www/members/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/user-new.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/www/members/user-new.tcl	6 May 2007 06:58:40 -0000	1.9
+++ openacs-4/packages/acs-subsite/www/members/user-new.tcl	7 Apr 2011 11:39:12 -0000	1.10
@@ -12,6 +12,15 @@
 
 set group_id [application_group::group_id_from_package_id]
 
+set mainsite_group_id [application_group::group_id_from_package_id \
+                           -no_complain \
+                           -package_id [subsite::main_site_id]]
+
+set rel_group_id ""
+if { $mainsite_group_id ne $group_id } {
+    set rel_group_id $group_id
+}
+
 set page_title "Inivite Member to [ad_conn instance_name]"
 set context [list [list "." "Members"] "Invite"]