Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.xql,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	13 Jan 2005 13:55:55 -0000	1.16
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	4 Jun 2006 00:45:47 -0000	1.17
@@ -69,9 +69,10 @@
 <fullquery name="person::name_not_cached.get_person_name">      
       <querytext>
       
-          select first_names||' '||last_name as person_name
-            from persons
-           where person_id = :person_id
+          select distinct first_names||' '||last_name as person_name
+            from persons, parties
+           where person_id = party_id
+		and (party_id = :person_id or email = :email)
           
       </querytext>
 </fullquery>
@@ -157,17 +158,7 @@
       </querytext>
 </fullquery>
 
-<fullquery name="party::get_by_email.select_party_id">
-      <querytext>
-      
-        select party_id 
-        from   parties 
-        where  lower(email) = lower(:email)
 
-      </querytext>
-</fullquery>
-
-
 <fullquery name="party::get_by_email.select_party_id">
       <querytext>