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.14 -r1.15
--- openacs-4/packages/acs-lang/www/admin/message-list.tcl	18 Apr 2008 06:48:43 -0000	1.14
+++ openacs-4/packages/acs-lang/www/admin/message-list.tcl	7 Apr 2011 16:28:27 -0000	1.15
@@ -62,19 +62,17 @@
             (select count(*) 
              from lang_messages 
              where package_key = :package_key 
-             and locale = :locale 
+             and locale = :default_locale 
              and deleted_p = 't') as num_deleted
     from dual
 }
 set num_untranslated [expr {$num_messages - $num_translated}]
-set num_messages_pretty [lc_numeric $num_messages]
+set num_messages_pretty [lc_numeric [expr {$num_messages + $num_deleted}]]
 set num_translated_pretty [lc_numeric $num_translated]
 set num_untranslated_pretty [lc_numeric $num_untranslated]
+set num_deleted_pretty [lc_numeric $num_deleted]
 
 
-
-
-
 #####
 #
 # Handle filtering
@@ -139,7 +137,7 @@
 multirow append show_opts "all" "All" $num_messages_pretty
 multirow append show_opts "translated" "Translated" $num_translated_pretty
 multirow append show_opts "untranslated" "Untranslated" $num_untranslated_pretty
-multirow append show_opts "deleted" "Deleted" $num_deleted
+multirow append show_opts "deleted" "Deleted" $num_deleted_pretty
 
 multirow extend show_opts url selected_p