Index: openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl,v
diff -u -r1.36 -r1.36.2.1
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	29 Nov 2018 23:56:23 -0000	1.36
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	10 Jul 2019 17:56:53 -0000	1.36.2.1
@@ -417,7 +417,23 @@
     ] content_revision revision_name]
 }
 
+ad_proc -public content::revision::get_title {
+    -revision_id:required
+} {
 
+    Returns the title of a particular 'content_revision'.
+
+    @param revision_id The 'revision_id' of the object
+
+    @see content::item::get_title
+    @see content::revision::revision_name
+
+    @return The title of the object (text), or empty if not found.
+
+} {
+    return [db_string get_title {select title from cr_revisions where revision_id = :revision_id} -default ""]
+}
+
 ad_proc -public content::revision::to_html {
     -revision_id:required
 } {