Index: openacs-4/packages/acs-subsite/www/register/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/user-new.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/register/user-new.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/register/user-new.tcl	13 Mar 2002 22:50:53 -0000	1.2
@@ -32,13 +32,20 @@
 }
 
 # we're going to ask this guy to register
+if { ! [db_0or1row find_person {select party_id as user_id, first_names, last_name from parties join persons on party_id = person_id where lower(email) = lower(:email)} ] } {
+    set user_id [db_nextval acs_object_id_seq]
+    set first_names ""
+    set last_name ""
+} 
 
-set user_id [db_nextval acs_object_id_seq]
 db_release_unused_handles
 
 set system_name [ad_system_name]
 set export_vars [export_form_vars email return_url user_id]
 set no_require_password_p [ad_parameter RegistrationProvidesRandomPasswordP security 0]
 set require_question_p [ad_parameter UseCustomQuestionForPasswordReset security 1]
 
-ad_return_template
\ No newline at end of file
+ad_return_template
+
+
+