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.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	4 Sep 2003 13:07:03 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	8 Sep 2003 16:06:15 -0000	1.8
@@ -185,11 +185,20 @@
       <querytext>
       
 	update parties
-        set    email = :email,
-               url = :url
+        set    [join $cols ", "]
         where  party_id = :party_id
-    
+
       </querytext>
 </fullquery>
 
+<fullquery name="party::get_by_email.select_party_id">
+      <querytext>
+      
+        select party_id 
+        from   parties 
+        where  email = :email 
+
+      </querytext>
+</fullquery>
+
 </queryset>