Index: openacs-4/packages/new-portal/www/element-layout.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/element-layout.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/new-portal/www/element-layout.tcl	5 Oct 2001 02:23:34 -0000	1.2
+++ openacs-4/packages/new-portal/www/element-layout.tcl	23 Oct 2001 19:48:50 -0000	1.3
@@ -7,12 +7,48 @@
     @creation-date 12/6/2000
     @cvs-id $Id$
 } {
-    portal_id:naturalnum,notnull,object_write
+    portal_id:naturalnum,notnull
 }
 
-set user_id [ad_conn user_id]
+# Check for permission
+ad_require_permission $portal_id portal_read_portal
+ad_require_permission $portal_id portal_edit_portal
+
+# Set up some template vars
 set master_template [ad_parameter master_template]
 
+# 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"
+
+    # this is evil and broken.  
+    # 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
+}
+
+set title "Edit Your Portal"
+
+# the portal we're editing exists.  Return it.
+db_1row get_portal "select
+name,
+layout_id
+from portals
+where portal_id = :portal_id"
+
 # get the portal.
 db_1row select_portal {
     select
@@ -31,6 +67,6 @@
 }
 
 set element_list [array get fake_element_ids]
-set element_src "[portal::portal_path]/www/place-element"
+set element_src "[portal::www_path]/place-element"
 
 ad_return_template