Index: openacs-4/packages/acs-subsite/lib/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-new.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-subsite/lib/user-new.tcl	4 Jun 2006 00:45:41 -0000	1.14
+++ openacs-4/packages/acs-subsite/lib/user-new.tcl	11 Dec 2006 17:49:13 -0000	1.15
@@ -54,7 +54,12 @@
 # Pre-generate user_id for double-click protection
 set user_id [db_nextval acs_object_id_seq]
 
-ad_form -name register -export {next_url user_id return_url} -form [auth::get_registration_form_elements]
+ad_form -name register -export {next_url user_id return_url} -form [auth::get_registration_form_elements]  -validate {
+    {email
+        {[string eq "" [party::get_by_email -email $email]]}
+        "[_ acs-subsite.Email_already_exists]"
+    }
+}
 
 if { [exists_and_not_null rel_group_id] } {
     ad_form -extend -name register -form {