Index: openacs-4/packages/content-includelet/tcl/content-includelet-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-includelet/tcl/content-includelet-utility-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/content-includelet/tcl/content-includelet-utility-procs.tcl	30 Aug 2008 00:31:48 -0000	1.4
+++ openacs-4/packages/content-includelet/tcl/content-includelet-utility-procs.tcl	24 Sep 2011 00:59:54 -0000	1.5
@@ -9,6 +9,12 @@
 
 namespace eval content_includelet_utilities {}
 
+ad_proc content_includelet_utilities::get_element_id {
+    -object_id:required
+} {
+    return [db_string element_id {}]
+}
+
 ad_proc content_includelet_utilities::configure_content_id {
     element_id
     {parameter content_id}