Index: openacs-4/packages/acs-admin/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-admin/www/index.tcl	16 Sep 2002 12:40:26 -0000	1.3
+++ openacs-4/packages/acs-admin/www/index.tcl	5 Nov 2002 14:52:02 -0000	1.4
@@ -18,6 +18,7 @@
 <ul>
   <li><a href=apm>ACS Package Manager</a>
   <li><a href=users>Users</a>
+  <li><a href=\"/acs-lang/admin\">Internationalization</a></li>
 </ul>
 <p>
 "
Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	29 Oct 2002 13:15:30 -0000	1.7
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	5 Nov 2002 14:52:05 -0000	1.8
@@ -227,23 +227,25 @@
         } else {
             # There is no entry in the message catalog for the given locale
 
-            set return_value $default
+            # is there any thing under this message key in the default locale
 
-            if { [string equal $default "TRANSLATION MISSING"] } {
-                if { [lang::util::translator_mode_p] } {
-                    set key_split [split $key "."]
-                    set package_key_part [lindex $key_split 0]
-                    set message_key_part [lindex $key_split 1]
+            if { [nsv_exists lang_message_en_US $key] != 0 } {
+                set return_value "$default: $key"
+            } {
+                set return_value "NO KEY: $key"
+            }
 
-                    set return_url [ad_conn url]
-                    if { [ns_getform] != "" } {
-                        append return_url "?[export_entire_form_as_url_vars]"
-                    }
-
-                    set return_value "&nbsp;<a href=\"/acs-lang/admin/edit-localized-message?[export_vars { { message_key $message_key_part } { locales $locale } { package_key $package_key_part } return_url }]\"><span style=\"background-color: yellow\"><font size=\"-2\">$message_key_part - TRANSLATE</font></span></a>&nbsp;"
-                } else {
-                    append return_value " - " $key
+            if { [lang::util::translator_mode_p] } {
+                set key_split [split $key "."]
+                set package_key_part [lindex $key_split 0]
+                set message_key_part [lindex $key_split 1]
+                
+                set return_url [ad_conn url]
+                if { [ns_getform] != "" } {
+                    append return_url "?[export_entire_form_as_url_vars]"
                 }
+                
+                set return_value "&nbsp;<a href=\"/acs-lang/admin/edit-localized-message?[export_vars { { message_key $message_key_part } { locales $locale } { package_key $package_key_part } return_url }]\"><span style=\"background-color: yellow\"><font size=\"-2\">$message_key_part - TRANSLATE</font></span></a>&nbsp;"
             }
         }
 
Index: openacs-4/packages/acs-lang/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/index.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/www/index.adp	7 Oct 2002 14:32:47 -0000	1.1
+++ openacs-4/packages/acs-lang/www/index.adp	5 Nov 2002 14:52:06 -0000	1.2
@@ -2,5 +2,14 @@
   <property name="title">@instance_name@</property>
   <property name="context_bar">@context_bar@</property>
 
+<if @admin_p@>
+<table width="100%">
+<tr><td align="right">
+<a href="admin">Message Catalog Administration</a>
+</td></tr>
+</table>
+</if>
+
+<blockquote>
 <include src="/packages/acs-lang/www/change-locale-include">
-  
\ No newline at end of file
+</blockquote>
Index: openacs-4/packages/acs-lang/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/www/index.tcl	7 Oct 2002 14:32:47 -0000	1.1
+++ openacs-4/packages/acs-lang/www/index.tcl	5 Nov 2002 14:52:06 -0000	1.2
@@ -11,3 +11,4 @@
 
 set locale [ad_locale user locale]
 set language [ad_locale user language]
+set admin_p [ad_permission_p [ad_conn package_id] admin]
\ No newline at end of file
Index: openacs-4/packages/acs-lang/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/index.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-lang/www/admin/index.adp	4 Nov 2002 12:20:38 -0000	1.3
+++ openacs-4/packages/acs-lang/www/admin/index.adp	5 Nov 2002 14:52:07 -0000	1.4
@@ -15,7 +15,7 @@
 <include src="locales-tabs" tab="@tab@" show_locales_p="@show_locales_p@">
 
 <if @tab@ eq "home">
-  <p>I want to ...</p>
+  <p>Here you can edit locales and internationalize messages in the user interface of the system.</p>
   <ul>
     <p>
       <li>