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.4 -r1.5
--- openacs-4/packages/acs-lang/www/admin/index.tcl	13 Feb 2003 14:26:50 -0000	1.4
+++ openacs-4/packages/acs-lang/www/admin/index.tcl	14 Aug 2003 16:06:20 -0000	1.5
@@ -5,22 +5,68 @@
     Administration of the localized messages
 
     @author Bruno Mattarollo <bruno.mattarollo@ams.greenpeace.org>
+    @author Lars Pind (lars@collaboraid.biz)
     @creation-date 19 October 2001
     @cvs-id $Id$
-} {
-    {tab "home"}
 }
 
-set locale_user [ad_locale user locale]
-set instance_name [ad_conn instance_name]
-set context_bar [ad_context_bar]
+# We rename to avoid conflict in queries
+set system_locale [lang::system::locale -site_wide]
+set system_locale_label [ad_locale_get_label $system_locale]
 
+set page_title "Adminsitration of Localization"
+set context [list]
+
+
 set timezone_p [lang::system::timezone_support_p]
 
+set timezone [lang::system::timezone]
+
 set translator_mode_p [lang::util::translator_mode_p]
 
-if { [ad_permission_p 0 admin] } {
-    set show_locales_p "t"
-} else {
-    set show_locales_p "f"
+
+
+set parameter_url "/admin/site-map/parameter-set?[export_vars { {package_id {[ad_conn package_id]} } { return_url {[ad_return_url]} } }]"
+
+
+#####
+#
+# Locales
+#
+#####
+
+set num_messages [db_string num_messages { select count(*) from lang_message_keys }]
+
+db_multirow -extend { 
+    escaped_locale
+    msg_edit_url
+    locale_edit_url
+    locale_delete_url
+    locale_make_default_url
+    locale_enabled_p_url
+    num_translated_pretty
+    num_untranslated
+    num_untranslated_pretty
+} locales select_locales {
+    select l.locale,
+           l.label as locale_label,
+           l.language,
+           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
+    from   ad_locales l
+    order  by locale_label
+} {
+    set escaped_locale [ns_urlencode $locale]
+    set msg_edit_url "package-list?[export_vars { locale }]"
+    set locale_edit_url "locale-edit?[export_vars { locale }]"
+    set locale_delete_url "locale-delete?[export_vars { locale }]"
+    set locale_make_default_url "locale-make-default?[export_vars { locale }]"
+    set toggle_enabled_p [ad_decode $enabled_p "t" "f" "t"]
+    set locale_enabled_p_url "locale-set-enabled-p?[export_vars { locale {enabled_p $toggle_enabled_p} }]"
+    
+    set num_translated_pretty [lc_numeric $num_translated]
+    set num_untranslated [expr $num_messages - $num_translated]
+    set num_untranslated_pretty [lc_numeric $num_untranslated]
 }