Index: openacs-4/packages/dotlrn/www/dotlrn-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-master.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/dotlrn/www/dotlrn-master.tcl	6 Oct 2003 14:19:07 -0000	1.24
+++ openacs-4/packages/dotlrn/www/dotlrn-master.tcl	21 Oct 2003 21:54:26 -0000	1.25
@@ -607,3 +607,10 @@
 if { [info exists context] } {
     set context_bar [eval ad_context_bar $context]
 }
+
+set acs_lang_url [apm_package_url_from_key "acs-lang"]
+set lang_admin_p [permission::permission_p \
+                      -object_id [site_node::get_element -url $acs_lang_url -element object_id] \
+                      -privilege admin \
+                      -party_id [ad_conn untrusted_user_id]]
+set toggle_translator_mode_url [export_vars -base "${acs_lang_url}admin/translator-mode-toggle" { { return_url [ad_return_url] } }]