Index: openacs-4/packages/acs-developer-support/lib/toolbar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/lib/toolbar.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-developer-support/lib/toolbar.tcl	11 Jan 2004 16:37:03 -0000	1.4
+++ openacs-4/packages/acs-developer-support/lib/toolbar.tcl	6 Aug 2004 18:07:01 -0000	1.4.2.1
@@ -49,5 +49,11 @@
             set request_info_label "${page_ms} ms/${db_num_cmds} db/${db_num_ms} ms"
         }
     }
+    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] } }]
 }