Index: openacs-4/packages/acs-object-management/tcl/attribute-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/tcl/attribute-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-object-management/tcl/attribute-procs.tcl	13 Aug 2009 00:15:05 -0000	1.2
+++ openacs-4/packages/acs-object-management/tcl/attribute-procs.tcl	13 Mar 2011 22:56:22 -0000	1.3
@@ -92,6 +92,24 @@
     return $attribute_id
 }
 
+ad_proc object_type::attribute::edit {
+    -object_type:required
+    -attribute_name:required
+    -pretty_name:required
+    {-pretty_plural ""}
+} {
+
+    Edit an attribute of an object type. Only the pretty names can be edited.
+
+    @param object_type The type the new attribute belongs to.
+    @param attribute_name The name of the new attribute.
+    @param pretty_name The human-readable name for the new attribute.
+    @param pretty_plural Optional human-readable plural name for the new attribute.
+} {
+    db_dml edit_attribute {}
+    object_type::flush_cache -object_type $object_type
+}
+
 ad_proc object_type::attribute::delete {
     -object_type:required
     -attribute_name:required