- Reimplemented riskmanagement

lib/toolbar.tcl

@@ -40,7 +40,7 @@ if { $show_p } {
 
     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 \
@@ -67,7 +67,7 @@ if { $show_p } {
     set db_num_cmds [lindex $db_info 0]
     set db_num_ms [lc_numeric [lindex $db_info 1]]
 
-    set flush_url [export_vars -base "[ad_url]/acs-admin/cache/flush-cache" { { suffix util_memoize } { return_url [ad_return_url] } }]
+    set flush_url [export_vars -base "/acs-admin/cache/flush-cache" { { suffix util_memoize } { return_url [ad_return_url] } }]
 
     if { [empty_string_p $page_ms] } {
         set request_info_label "Request info"