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.2 -r1.3
--- openacs-4/packages/acs-subsite/www/register/user-new.tcl	13 Mar 2002 22:50:53 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/register/user-new.tcl	13 Mar 2002 23:16:31 -0000	1.3
@@ -32,7 +32,15 @@
 }
 
 # 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)} ] } {
+if { ! [db_0or1row find_person {
+    select parties.party_id as user_id,
+           persons.first_names,
+           persons.last_name
+    from parties,
+         persons
+    where parties.party_id = persons.person_id
+    and lower(parties.email) = lower(:email)
+} ] } {
     set user_id [db_nextval acs_object_id_seq]
     set first_names ""
     set last_name ""