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.8 -r1.9
--- openacs-4/packages/new-portal/www/place-element.tcl	1 Nov 2001 23:16:18 -0000	1.8
+++ openacs-4/packages/new-portal/www/place-element.tcl	2 Nov 2001 17:16:14 -0000	1.9
@@ -69,6 +69,11 @@
     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 
+    from portal_element_map
+    where portal_id = :portal_id
+    )
     order by name
 } {
     append add_html "<option value=$datasource_id>$name</option>\n"