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 -N -r1.9.2.2 -r1.9.2.3 --- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl 8 Jun 2005 21:12:11 -0000 1.9.2.2 +++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl 17 Oct 2005 12:10:09 -0000 1.9.2.3 @@ -299,6 +299,17 @@ } +ad_proc -public content::revision::item_id { + -revision_id:required +} { + @param revision_id + + @return item_id +} { + return [db_string item_id {} -default ""] +} + + ad_proc -public content::revision::read_xml { -item_id:required -revision_id:required