Index: openacs-4/packages/dotlrn/www/dotlrn-master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-master.adp,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/dotlrn/www/dotlrn-master.adp	3 Oct 2003 11:35:56 -0000	1.31
+++ openacs-4/packages/dotlrn/www/dotlrn-master.adp	21 Oct 2003 21:54:26 -0000	1.32
@@ -100,6 +100,7 @@
       <a href="http://www.dotlrn.org">dotLRN Home</a> | 
       <a href="http://www.openacs.org/projects/dotlrn">dotLRN Project Central</a> | 
       <a href="@change_locale_url@">#dotlrn.Change_Locale#</a>
+      <if @lang_admin_p@ true>| <a href="@toggle_translator_mode_url@">Toggle translator mode</a></if>
     </div>
     <div class="footer">@ds_link;noquote@</div>
   </p>
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] } }]