Index: openacs-4/packages/new-portal/www/place-element.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/place-element.adp,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/new-portal/www/place-element.adp	25 Oct 2001 18:52:32 -0000	1.6
+++ openacs-4/packages/new-portal/www/place-element.adp	1 Nov 2001 23:16:31 -0000	1.7
@@ -20,16 +20,16 @@
 <if @immutable_p@ ne 1>
 <br>
 
-<if @region_count@ gt 0>
-  <input type=submit name="remove_@region@" value="Remove All Checked Elements"> <br>
-</if>
+@add_html@
+
 <if @region_count@ ne @all_count@ and @all_count@ gt 0>
-  <input type=submit name="op@region@" value="Move All Checked Elements Here"> <br>
+  <input type=submit name="op@region@" value="Move All Checked Here"> <br>
 </if>
 
-<input type=submit name="add_@region@" value="Add A New Element Here">
 </if>
 
+
+
 <if @would_be_immutable_p@ eq 1>
 <p>
 <b>This region may not be edited by normal users.</b>
Index: openacs-4/packages/new-portal/www/place-element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/place-element.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/new-portal/www/place-element.tcl	25 Oct 2001 18:52:48 -0000	1.7
+++ openacs-4/packages/new-portal/www/place-element.tcl	1 Nov 2001 23:16:18 -0000	1.8
@@ -55,3 +55,25 @@
 
 # Set up the form target
 set target_stub [lindex [ns_conn urlv] [expr [ns_conn urlc] - 1]]
+
+
+# create the fancy drop down for add
+    
+set add_html ""
+set new_package_id [db_nextval acs_object_id_seq]
+
+append add_html "<select name=foobar>"
+	    
+db_foreach datasource_avail {
+    select name, pd.datasource_id
+    from portal_datasources pd, portal_datasource_avail_map pdam
+    where pdam.portal_id = :portal_id
+    and pd.datasource_id = pdam.datasource_id
+    order by name
+} {
+    append add_html "<option value=$datasource_id>$name</option>\n"
+}
+
+append add_html "
+</select><input type=submit name=\"op@region@\" value=\"Add Here\">"
+