Index: openacs-4/packages/acs-admin/www/posture-overview.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/posture-overview.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/acs-admin/www/posture-overview.tcl 6 Aug 2024 13:41:57 -0000 1.1.2.1 +++ openacs-4/packages/acs-admin/www/posture-overview.tcl 6 Aug 2024 13:51:54 -0000 1.1.2.2 @@ -18,7 +18,9 @@ set number_of_packages [llength $packages] set version_numbers_on_result_pages [ns_config ns/server/[ns_info server] noticedetail] -set current_location [ns_conn location] +if {$current_location eq ""} { + set current_location [ns_conn location] +} set behind_reverse_proxy_p [ad_conn behind_proxy_p] set behind_secure_reverse_proxy_p [ad_conn behind_secure_proxy_p] @@ -233,9 +235,7 @@ template::multirow create hdr_check \ field value -foreach url { - https://localhost:8443/ -} { +foreach url $current_location { set result [ns_http run $url] set hdrs [dict get $result headers] #set location [ns_set iget [dict get $result headers] location] Index: openacs-4/packages/acs-admin/www/widely-accessible-packages.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/widely-accessible-packages.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/acs-admin/www/widely-accessible-packages.tcl 6 Aug 2024 13:41:57 -0000 1.1.2.1 +++ openacs-4/packages/acs-admin/www/widely-accessible-packages.tcl 6 Aug 2024 13:51:54 -0000 1.1.2.2 @@ -25,7 +25,7 @@ # should be sufficiently fast. # set doc(title) "Publicly Accessible Packages" - set context [list [list system-overview "Posture Overview"] $doc(title)] + set context [list [list posture-overview "Posture Overview"] $doc(title)] # # Counting # of instances per package_key which are publicly readable @@ -80,7 +80,7 @@ # installed and mounted packages. # set doc(title) "Installed Packages" - set context [list [list system-overview "Posture Overview"] $doc(title)] + set context [list [list posture-overview "Posture Overview"] $doc(title)] # # Counting # of instances per package_key which are publicly readable @@ -127,7 +127,7 @@ } else { set mode per_package_key set doc(title) "Publicly Accessible Packages of type $package_key" - set context [list [list system-overview "Posture Overview"] $doc(title)] + set context [list [list posture-overview "Posture Overview"] $doc(title)] set overviewLink [export_vars -base ./widely-accessible-packages { numPublicReadableSiteNodes numSiteNodesEntries sitenodeModel