Index: openacs-4/packages/new-portal/www/portal-config.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/portal-config.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/new-portal/www/portal-config.tcl	24 Oct 2001 15:46:50 -0000	1.2
+++ openacs-4/packages/new-portal/www/portal-config.tcl	8 Nov 2001 19:47:11 -0000	1.3
@@ -10,51 +10,9 @@
     portal_id:naturalnum,notnull
 }
 
-# Check for permission
-ad_require_permission $portal_id portal_read_portal
-ad_require_permission $portal_id portal_edit_portal
+# Get the portal's name for the title
+set name [portal::get_name $portal_id]
 
-# Set up some template vars
-set master_template [ad_parameter master_template]
+set rendered_page [portal::configure $portal_id]
 
-# get the layouts
-set layout_count 0
-template::multirow create layouts layout_id name description filename resource_dir checked
-
-db_foreach get_layouts "
-select 
-layout_id, 
-name, 
-description, 
-filename, 
-resource_dir, 
-' ' as checked
-from portal_layouts 
-order by name "  {
-    set resource_dir "$resource_dir"
-    # I should be able to pass it a list, straight from db_list.
-    template::multirow append layouts $layout_id $name $description $filename $resource_dir $checked
-    incr layout_count
-}
-
-# get the portal.
-db_1row select_portal {
-    select
-    p.portal_id,
-    p.name,
-    t.filename as template,
-    t.layout_id
-    from portals p, portal_layouts t
-    where p.layout_id = t.layout_id and p.portal_id = :portal_id
-} -column_array portal
-
-# fake some elements so that the <list> in the template has something to do.
-foreach region [ portal::get_regions $portal(layout_id) ] {
-    # pass the portal_id along here instead of the element_id.
-    lappend fake_element_ids($region) $portal_id
-}
-
-set element_list [array get fake_element_ids]
-set element_src "[portal::www_path]/place-element"
-
 ad_return_template