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.12 -r1.13
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	11 Dec 2003 21:39:56 -0000	1.12
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	2 Mar 2004 17:01:38 -0000	1.13
@@ -56,6 +56,16 @@
       </querytext>
 </fullquery>
 
+<fullquery name="person::update.update_object_title">      
+      <querytext>
+      
+	update acs_objects
+	set title = :first_names || ' ' || :last_name
+	where object_id = :person_id
+    
+      </querytext>
+</fullquery>
+
 <fullquery name="person::name_not_cached.get_person_name">      
       <querytext>
       
@@ -136,6 +146,17 @@
       </querytext>
 </fullquery>
 
+<fullquery name="party::update.object_title_update">      
+      <querytext>
+      
+	    update acs_objects
+	    set title = :email
+	    where object_id = :party_id
+	    and object_type = 'party'
+
+      </querytext>
+</fullquery>
+
 <fullquery name="party::get_by_email.select_party_id">
       <querytext>