Index: openacs-4/www/blank-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/blank-master.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/www/blank-master.tcl	30 Sep 2003 09:52:00 -0000	1.5
+++ openacs-4/www/blank-master.tcl	24 Nov 2003 16:23:23 -0000	1.5.2.1
@@ -81,3 +81,12 @@
 }
 
 set translator_mode_p [lang::util::translator_mode_p]
+
+# Toggle translator mode link
+
+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] } }]