Index: openacs-4/packages/acs-content-repository/sql/postgresql/content-revision.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/postgresql/content-revision.sql,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/acs-content-repository/sql/postgresql/content-revision.sql	31 Aug 2001 02:28:40 -0000	1.26
+++ openacs-4/packages/acs-content-repository/sql/postgresql/content-revision.sql	24 Sep 2001 23:45:12 -0000	1.27
@@ -422,6 +422,16 @@
  
 end;' language 'plpgsql';
 
+create function content_revision__revision_name(integer)
+returns text as '
+declare
+        p_revision_id   alias for $1;
+begin
+        return ''Revision '' || content_revision__get_number(revision_id) || 
+               '' of '' || (select count(*) from cr_revisions where item_id = r.item_id) || '' for item: '' 
+               || content_item__get_title(item_id)
+               from cr_revisions r where r.revision_id = p_revision_id;
+end;' language 'plpgsql';
 
 -- procedure index_attributes
 create function content_revision__index_attributes (integer)