Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v
diff -u -r1.36.2.2 -r1.36.2.3
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	7 Sep 2005 16:34:17 -0000	1.36.2.2
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	9 Feb 2006 20:45:08 -0000	1.36.2.3
@@ -822,3 +822,16 @@
 } {
     return [db_list_of_lists select_locales {}]
 }
+
+ad_proc -public lang::util::edit_lang_key_url {
+    -message:required
+    {-package_key "acs-translations"}
+} {
+} {
+    if { [regsub "^${package_key}." [string trim $message "\#"] {} message_key] } {
+	 set edit_url [export_vars -base "[apm_package_url_from_key "acs-lang"]admin/edit-localized-message" { { locale {[ad_conn locale]} } package_key message_key { return_url [ad_return_url] } }]
+     } else {
+	 set edit_url ""
+     }
+     return $edit_url
+ }