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.29 -r1.30
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl 24 Sep 2003 17:21:27 -0000 1.29
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl 25 Sep 2003 16:20:15 -0000 1.30
@@ -362,18 +362,8 @@
}
if { [lang::util::translator_mode_p] } {
- # Translator mode - set up translate_url
-
- 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]"
- }
-
- # return_url is already encoded and HTML quoted
- set translate_url "/acs-lang/admin/edit-localized-message?[export_vars { { message_key $message_key_part } locale { package_key $package_key_part } return_url }]"
+ # Translator mode - record the message lookup
+ lang::util::record_message_lookup $key
}
# We remember the passed-in locale, because we want the translator mode to show which
@@ -418,18 +408,6 @@
if { [llength $substitution_list] > 0 || ($upvar_level >= 1 && [string first "%" $message] != -1) } {
set message [lang::message::format $message $substitution_list [expr $upvar_level + 1]]
}
-
- if { [lang::util::translator_mode_p] } {
- # Translator mode - return a translation link
- if { [string equal $locale $org_locale] } {
- # The message has been translated in the desired locale
- append message "o"
- } else {
- # The translation is missing in the desired locale, make it yellow
- set message "$message*"
-
- }
- }
return $message
}