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 @@

-Full Name: +Full Name:

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 + + +