Index: openacs-4/packages/acs-subsite/www/admin/relations/add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/relations/add.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/relations/add.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/relations/add.tcl	11 Aug 2001 21:31:03 -0000	1.2
@@ -198,10 +198,7 @@
     # of type $rel_type.
     
     if {[string equal $allow_out_of_scope_p "f"]} {
-	set scope_query ",
-                 (select element_id 
-                  from application_group_element_map
-                  where package_id = :package_id) app_elements"
+	set scope_query [db_map select_parties_scope_query]
 
 	set scope_clause "
               and p.party_id = app_elements.element_id"