Index: openacs-4/packages/acs-subsite/www/register/user-new.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/user-new.adp,v
diff -u -r1.1.1.1 -r1.1.1.1.2.1
--- openacs-4/packages/acs-subsite/www/register/user-new.adp	13 Mar 2001 22:59:26 -0000	1.1.1.1
+++ openacs-4/packages/acs-subsite/www/register/user-new.adp	9 Mar 2002 23:12:37 -0000	1.1.1.1.2.1
@@ -44,7 +44,7 @@
 
 <p>
 
-Full Name:    <input type=text name=first_names size=20> <input type=text name=last_name size=25>
+Full Name:    <input type=text name=first_names size=20 value="@first_names@"> <input type=text name=last_name size=25 value="@last_name@">
 <p>
 
 <if @require_question_p@ eq 1>
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.1.1 -r1.1.1.1.2.1
--- openacs-4/packages/acs-subsite/www/register/user-new.tcl	13 Mar 2001 22:59:26 -0000	1.1.1.1
+++ openacs-4/packages/acs-subsite/www/register/user-new.tcl	9 Mar 2002 23:12:37 -0000	1.1.1.1.2.1
@@ -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
+
+
+