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.10 -r1.11
--- openacs-4/packages/new-portal/www/place-element.tcl	2 Nov 2001 17:44:05 -0000	1.10
+++ openacs-4/packages/new-portal/www/place-element.tcl	5 Nov 2001 18:33:38 -0000	1.11
@@ -55,8 +55,7 @@
 
 # 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_avail_p 0
 set add_html ""
 set new_package_id [db_nextval acs_object_id_seq]
 
@@ -74,6 +73,7 @@
 )
     order by name
 } {
+    set add_avail_p 1
     append add_html "<option value=$datasource_id>$name</option>\n"
 }