Index: openacs-4/packages/acs-authentication/tcl/authority-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-authentication/tcl/authority-procs.xql	4 Sep 2003 08:55:14 -0000	1.3
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.xql	2 Mar 2004 17:01:01 -0000	1.4
@@ -2,6 +2,14 @@
 
 <queryset>
 
+  <fullquery name="auth::authority::edit.update_object_title">
+      <querytext>
+	    update acs_objects
+	    set title = :new_short_name
+	    where object_id = :authority_id
+      </querytext>
+  </fullquery>
+
   <fullquery name="auth::authority::get_authority_options.select_authorities">
       <querytext>
           select pretty_name, authority_id