Index: openacs-4/packages/acs-admin/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/index.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/acs-admin/www/index.tcl	20 Jun 2007 06:21:48 -0000	1.12
+++ openacs-4/packages/acs-admin/www/index.tcl	13 Apr 2009 23:10:27 -0000	1.13
@@ -6,7 +6,8 @@
 }
 
 set page_title [ad_conn instance_name]
-set subsite_number [db_string count_subsites "select count(*) from apm_packages where package_key = 'acs-subsite'"]
+set package_keys '[join [subsite::package_keys] ',']'
+set subsite_number [db_string count_subsites {}]
 if {$subsite_number > 100} {
     set too_many_subsites_p 1
 } else {