Index: openacs-4/packages/new-portal/tcl/portal-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/new-portal/tcl/portal-procs.xql 13 Dec 2001 21:10:02 -0000 1.3
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql 19 Jan 2002 21:59:48 -0000 1.4
@@ -360,6 +360,24 @@
+
+
+ select pem.element_id,
+ pem.datasource_id,
+ pem.state
+ from portal_element_map pem
+ where pem.element_id = :element_id
+
+
+
+
+
+ select key, value
+ from portal_element_parameters
+ where element_id = :element_id
+
+
+
select portal_id, datasource_id