Index: openacs-4/packages/acs-lang/www/admin/package-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/package-list.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/acs-lang/www/admin/package-list.tcl	18 Apr 2008 06:48:43 -0000	1.9
+++ openacs-4/packages/acs-lang/www/admin/package-list.tcl	7 Apr 2011 16:28:27 -0000	1.10
@@ -54,10 +54,12 @@
            (select count(*) 
             from   lang_messages lm 
             where  lm.package_key = q.package_key
-            and    lm.locale = :current_locale) as num_translated
+            and    lm.locale = :current_locale
+            and    lm.deleted_p = 'f') as num_translated
     from   (select lmk.package_key,
                    count(message_key) as num_messages
-            from   lang_message_keys lmk
+            from   lang_messages lmk
+            where  lmk.locale = :default_locale and lmk.deleted_p = 'f' 
             group  by package_key) q
     order  by package_key
 } {