Index: openacs-4/packages/acs-developer-support/lib/toolbar.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/lib/toolbar.adp,v diff -u -r1.8 -r1.8.2.1 --- openacs-4/packages/acs-developer-support/lib/toolbar.adp 17 Feb 2004 08:35:18 -0000 1.8 +++ openacs-4/packages/acs-developer-support/lib/toolbar.adp 6 Aug 2004 18:07:01 -0000 1.8.2.1 @@ -31,6 +31,10 @@ |
  • I18n |
  • + +
  • Translate + |
  • +
  • Docs |
  • API doc
  • 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] } }] }