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.20 -r1.20.2.1 --- openacs-4/packages/acs-developer-support/lib/toolbar.adp 9 Jun 2015 06:23:36 -0000 1.20 +++ openacs-4/packages/acs-developer-support/lib/toolbar.adp 16 Sep 2015 09:18:55 -0000 1.20.2.1 @@ -19,23 +19,23 @@ |
  • Shell |
  • -
  • APM +
  • APM |
  • -
  • Site Map +
  • Site Map |
  • -
  • Changed +
  • Changed |
  • Flush |
  • Test |
  • -
  • Users +
  • Users |
  • -
  • I18n +
  • I18n |
  • -
  • Docs +
  • Docs |
  • -
  • API doc +
  • API doc |
  • Requests
  • @@ -45,7 +45,7 @@ -
    +
    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.14.2.1 -r1.14.2.2 --- openacs-4/packages/acs-developer-support/lib/toolbar.tcl 10 Sep 2015 08:21:23 -0000 1.14.2.1 +++ openacs-4/packages/acs-developer-support/lib/toolbar.tcl 16 Sep 2015 09:18:55 -0000 1.14.2.2 @@ -6,9 +6,8 @@ set show_p [ds_show_p] if { $show_p } { - set ds_url [ds_support_url] - set base_url [ad_url] + set ds_url [ds_support_url] set num_comments [llength [ds_get_comments]] multirow create ds_buttons label title toggle_url state @@ -40,7 +39,7 @@ multirow append ds_buttons TRN \ "Toggle translation mode" \ - [export_vars -base "[ad_url]/acs-lang/admin/translator-mode-toggle" { { return_url [ad_return_url]}}] \ + [export_vars -base "/acs-lang/admin/translator-mode-toggle" { { return_url [ad_return_url]}}] \ [ad_decode [lang::util::translator_mode_p] 1 "on" "off"] multirow append ds_buttons ADP \ @@ -53,25 +52,20 @@ {javascript:void(d=document);void(el=d.getElementsByTagName('div'));for(i=0;i 0} { - set rm_url "${base_url}[apm_package_url_from_id $rm_package_id]" + set rm_url [apm_package_url_from_id $rm_package_id] } else { set rm_url "" } Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v diff -u -r1.55.2.2 -r1.55.2.3 --- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 15 Sep 2015 17:52:16 -0000 1.55.2.2 +++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 16 Sep 2015 09:18:55 -0000 1.55.2.3 @@ -278,7 +278,7 @@ ad_proc -public ds_get_db_command_info {} { Get a Tcl list with { num_commands total_ms } for the database commands for the request. - Returns the empty string if the information is not available. + @return list containing num_commands and total_ms, or empty string if the information is not available. } { set result {} if { [ds_enabled_p] && [ds_collection_enabled_p] } {