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.17 -r1.18
--- openacs-4/packages/new-portal/www/place-element.tcl	6 Nov 2001 23:36:59 -0000	1.17
+++ openacs-4/packages/new-portal/www/place-element.tcl	7 Nov 2001 15:33:14 -0000	1.18
@@ -21,6 +21,14 @@
 # AKS: XXX fixme 
 set portal_id $element_id
 
+set layout_id [portal::get_layout_id $portal_id]
+
+db_1row select_num_regions "
+select count(*) as num_regions
+from portal_supported_regions
+where layout_id = :layout_id"
+
+
 # get the elements for this region.
 set region_count 0
 template::multirow create element_multi element_id name sort_key state