Index: openacs-4/packages/acs-lang/www/admin/message-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-list.tcl,v
diff -u -r1.7 -r1.7.2.1
--- openacs-4/packages/acs-lang/www/admin/message-list.tcl	16 Feb 2004 15:28:37 -0000	1.7
+++ openacs-4/packages/acs-lang/www/admin/message-list.tcl	26 Mar 2004 13:33:45 -0000	1.7.2.1
@@ -49,13 +49,24 @@
 #####
 
 db_1row counts {
-    select (select count(*) from lang_messages where package_key = :package_key and locale = :locale) as num_translated,
-           (select count(*) from lang_message_keys where package_key = :package_key) as num_messages,
-    (select count(*) from lang_messages where package_key = :package_key and locale = :locale and deleted_p = 't') as num_deleted
+    select (select count(*) 
+            from lang_messages 
+            where package_key = :package_key 
+            and locale = :locale
+            and deleted_p = 'f') as num_translated,
+           (select count(*) 
+            from lang_messages 
+            where package_key = :package_key 
+            and locale = :default_locale 
+            and deleted_p = 'f') as num_messages,
+            (select count(*) 
+             from lang_messages 
+             where package_key = :package_key 
+             and locale = :locale 
+             and deleted_p = 't') as num_deleted
 
 }
 set num_untranslated [expr $num_messages - $num_translated]
-
 set num_messages_pretty [lc_numeric $num_messages]
 set num_translated_pretty [lc_numeric $num_translated]
 set num_untranslated_pretty [lc_numeric $num_untranslated]
@@ -76,6 +87,9 @@
 set where_clauses [list]
 
 switch -exact $show {
+    all {
+        lappend where_clauses {lm1.deleted_p = 'f'}
+    }
     translated {
         lappend where_clauses {lm2.message is not null}
         lappend where_clauses {(lm2.deleted_p = 'f' or lm2.deleted_p is null)}