Index: openacs-4/packages/dotlrn/www/element-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/element-list.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/element-list.tcl	31 May 2005 23:13:06 -0000	1.1.4.2
@@ -0,0 +1,39 @@
+
+ad_page_contract {
+
+    Displays a configuration page for COMMUNITY'S portal elements ONLY!
+    This page is restricted to admins of the community.
+
+    @author Rodrigo Proenca (roop@terra.com.br)
+   
+} -query {
+    {referer "one-community-admin"}
+}
+
+dotlrn::require_user_admin_community \
+    -user_id [ad_conn user_id] \
+    -community_id [dotlrn_community::get_community_id]
+
+set id_portal [dotlrn_community::get_portal_id]
+
+
+db_multirow portal_elements itens {
+
+select portal_element_map.element_id,
+       portal_element_map.name,
+       portal_element_map.pretty_name,
+       portal_element_map.page_id,
+       portal_element_map.state,  
+       portal_pages.sort_key               
+from   portal_element_map,
+       portal_pages
+       where portal_element_map.page_id = portal_pages.page_id
+and    portal_pages.portal_id = :id_portal
+order by portal_pages.sort_key
+
+
+
+}
+
+ad_return_template
+