Index: openacs-4/packages/acs-lang/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/index.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-lang/www/admin/index.tcl	10 Jan 2007 21:22:04 -0000	1.9
+++ openacs-4/packages/acs-lang/www/admin/index.tcl	7 Apr 2011 16:28:27 -0000	1.10
@@ -37,7 +37,13 @@
 #
 #####
 
-set num_messages [db_string num_messages { select count(*) from lang_message_keys }]
+set default_locale "en_US"
+db_1row counts {
+    select count(*) as num_messages
+    from lang_messages 
+    where locale = :default_locale 
+      and deleted_p = 'f'
+}
 
 db_multirow -extend { 
     escaped_locale
@@ -56,7 +62,7 @@
            l.default_p as default_p,
            l.enabled_p as enabled_p,
            (select count(*) from ad_locales l2 where l2.language = l.language) as num_locales_for_language,
-           (select count(*) from lang_messages lm2 where lm2.locale = l.locale) as num_translated
+           (select count(*) from lang_messages lm2 where lm2.locale = l.locale and lm2.deleted_p = 'f') as num_translated
     from   ad_locales l
     order  by locale_label
 } {