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 } {