Index: openacs-4/packages/acs-admin/lib/service-parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/lib/service-parameters.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-admin/lib/service-parameters.tcl 3 Nov 2018 19:42:55 -0000 1.12
+++ openacs-4/packages/acs-admin/lib/service-parameters.tcl 3 Sep 2024 15:37:29 -0000 1.13
@@ -12,6 +12,7 @@
}
set user_id [ad_conn user_id]
+set return_url [ad_return_url]
set swadmin_p 0
db_multirow -extend { url admin_url param_url sitewide_admin_url} packages services_select {
select package_id,
@@ -44,7 +45,7 @@
}
}
if { $parameter_count > 0 } {
- set param_url [export_vars -base "/shared/parameters" { package_id { return_url {[ad_return_url]} } }]
+ set param_url [export_vars -base "/shared/parameters" {package_id return_url}]
}
set instance_name [lang::util::localize $instance_name]
@@ -72,23 +73,23 @@
label "\#acs-admin.Administration\#"
link_url_col admin_url
link_html { title "\#acs-admin.Service_administration\#" }
- display_template {\#acs-admin.Administration\#}
- html {align left}
+ display_template { #acs-admin.Administration#}
+ html {align left style "white-space: nowrap;"}
}
sitewide_admin {
label "\#acs-admin.Site-Wide_Admin\#"
link_url_col sitewide_admin_url
link_html { title "\#acs-admin.Service_administration\#" }
- display_template {\#acs-admin.Administration\#}
+ display_template { #acs-admin.Administration#}
hide_p {[string is false $swadmin_p]}
- html {align left}
+ html {align left style "white-space: nowrap;"}
}
parameters {
label "\#acs-admin.Parameters\#"
link_url_col param_url
link_html { title "\#acs-admin.Service_parameters\#" }
- display_template {\#acs-admin.Parameters\#}
- html {align left}
+ display_template { #acs-admin.Parameters#}
+ html {align left style "white-space: nowrap;"}
}
}