Index: openacs-4/packages/contacts/tcl/contact-complaint-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-complaint-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/tcl/contact-complaint-procs.xql	8 Aug 2005 21:52:10 -0000	1.1
+++ openacs-4/packages/contacts/tcl/contact-complaint-procs.xql	9 Aug 2005 20:50:06 -0000	1.2
@@ -23,5 +23,17 @@
     </querytext>
 </fullquery>
 
+<fullquery name="contact::complaint::check_name.check_name">
+    <querytext>
+	select
+		1
+	from 
+		cr_items
+	where
+		name = :name
+		and parent_id = :parent_id
+    </querytext>
+</fullquery>
+
 </queryset>