Index: openacs-4/packages/acs-subsite/tcl/party-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/party-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/tcl/party-procs.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/party-procs.tcl	1 Sep 2001 14:54:42 -0000	1.2
@@ -169,9 +169,9 @@
 	# as an option, and we don't want to display "rel_segment" as an
 	# option.
 	if {[string equal $start_with "party"]} {
-	    set start_with_clause "(object_type = 'group' or object_type = 'person')"
+	    set start_with_clause [db_map start_with_clause_party]
 	} else {
-	    set start_with_clause "object_type = :start_with"
+	    set start_with_clause [db_map start_with_clause]
 	}
 
 	db_foreach select_sub_rel_types "
@@ -208,4 +208,4 @@
 
     }
 
-}
\ No newline at end of file
+}