Index: openacs-4/packages/new-portal/www/element-add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/element-add.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/new-portal/www/element-add.adp	28 Sep 2001 23:17:20 -0000	1.1
@@ -0,0 +1,28 @@
+<master src="@master_template@">
+<property name=title>Add Element</property>
+<property name=context_bar>"Add Element"</property>
+
+<form method=get action="element-add-2">
+<%= [export_form_vars portal_id region] %>
+
+Elements that you aren't currently using:<br>
+<select name=element_ids size=8 multiple>
+<multiple name=element_ids>
+  <option value=@element_ids.element_id@>@element_ids.name@</option>
+</multiple>
+</select>
+
+<table border=0>
+<tr>
+<td>
+  <input type=submit value="Add">
+  </form>
+</td>
+<td>
+  <form method=get action="element-layout">
+  <%= [export_form_vars portal_id region] %>
+  <input type=submit value="Cancel">
+  </form>
+</td>
+</tr>
+</table>
Index: openacs-4/packages/new-portal/www/element-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/element-add.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/new-portal/www/element-add.tcl	28 Sep 2001 23:15:25 -0000	1.1
@@ -0,0 +1,45 @@
+# www/element-add.tcl
+ad_page_contract {
+    Add an element to a portal.
+} {
+    portal_id:naturalnum,notnull,object_write
+    region:notnull
+}
+
+# XXX AKS: Serious datasource security needed here
+
+set user_id [ad_conn user_id]
+
+# this should do a 'preview' type thing, and generate popups for
+# descriptions and stuff.  (at least, on the JavaScript-heavy version)
+# also, a "show me all the elements, even the ones I'm using" button.
+
+set layout_id [portal_get_layout_id $portal_id]
+
+# this is required to execute the query that initializes the
+# datastructures used by portal_region_immutable_p
+portal_get_regions $layout_id
+
+if { [portal_region_immutable_p $region] } {
+    ad_return_complaint 1 "You don't have permission to edit this region."
+    return
+}
+
+set master_template [ad_parameter master_template]
+
+template::multirow create element_ids element_id name description 
+
+# XXX we really want to check if they can view these datasources in
+# the future something like # where
+# acs_permission.permission_p(element_id, :user_id, 'read') = 't' 
+ # the barn door is open! Wronly
+# called elements for now, too. 
+ db_foreach select_elements \
+    "select datasource_id, name, description
+     from portal_datasources" \
+    -column_array element {
+    template::multirow append element_ids $element(element_id) $element(name) $element(description)
+}
+
+ad_return_template
+