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.9 -r1.10 --- openacs-4/packages/new-portal/www/place-element.tcl 2 Nov 2001 17:16:14 -0000 1.9 +++ openacs-4/packages/new-portal/www/place-element.tcl 2 Nov 2001 17:44:05 -0000 1.10 @@ -56,29 +56,26 @@ # 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 "" + db_foreach datasource_avail { - select name, pd.datasource_id + 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 and pd.datasource_id not in ( - select datasource_id + select datasource_id from portal_element_map where portal_id = :portal_id - ) +) order by name } { append add_html "\n" } -append add_html " -" +append add_html ""