Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.xql	24 Apr 2001 06:02:27 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.xql	19 Jan 2002 23:45:46 -0000	1.2
@@ -24,4 +24,14 @@
       </querytext>
 </fullquery>
 
+<fullquery name="util_email_unique_p.email_unique_p">
+  <querytext>
+    select count(*)
+    from dual
+    where not exists (select 1
+                      from parties
+                      where email = :email)
+  </querytext>
+</fullquery>
+
 </queryset>