Index: openacs-4/contrib/packages/portal/tcl/element-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/tcl/element-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/packages/portal/tcl/element-procs.xql	22 Jan 2004 02:50:12 -0000	1.4
+++ openacs-4/contrib/packages/portal/tcl/element-procs.xql	26 Jun 2004 00:36:01 -0000	1.5
@@ -113,4 +113,14 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::element::get_element_id.element_id">
+        <querytext>
+            select pe.element_id
+            from portal_elements pe, portal_datasources pd
+            where pe.page_id = :page_id
+              and pe.datasource_id = pd.datasource_id
+              and pd.name = :datasource_name
+        </querytext>
+    </fullquery>
+
 </queryset>