Index: openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl,v diff -u -r1.19.2.3 -r1.19.2.4 --- openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl 27 Nov 2022 17:55:10 -0000 1.19.2.3 +++ openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl 7 Jul 2024 10:18:33 -0000 1.19.2.4 @@ -246,7 +246,7 @@ if {[info exists to_type] && $to_type ne ""} { set to_type_clause [db_map to_type_where_clause] - if {[content::type::is_content_type -object_type $to_type]} { + if {[content::type::is_content_type -object_type $to_type]} { set to_type_clause [db_map content_type_where_clause] set content_type_from_clause [db_map content_type_from_clause] } @@ -272,7 +272,7 @@ if {[info exists from_type] && $from_type ne ""} { set from_type_clause [db_map from_type_where_clause] - if {[content::type::is_content_type -content_type $from_type]} { + if {[content::type::is_content_type -content_type $from_type]} { set from_type_clause [db_map content_type_where_clause] set content_type_from_clause [db_map content_type_from_clause] } Index: openacs-4/packages/acs-tcl/tcl/json-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/json-procs.tcl,v diff -u -r1.11.2.2 -r1.11.2.3 --- openacs-4/packages/acs-tcl/tcl/json-procs.tcl 1 Feb 2021 10:51:09 -0000 1.11.2.2 +++ openacs-4/packages/acs-tcl/tcl/json-procs.tcl 7 Jul 2024 10:18:33 -0000 1.11.2.3 @@ -377,7 +377,7 @@ regsub -all -- {\n} $value "\\n" value return $value } - } + } } } Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v diff -u -r1.153.2.64 -r1.153.2.65 --- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 4 Jun 2024 12:14:59 -0000 1.153.2.64 +++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 7 Jul 2024 10:18:33 -0000 1.153.2.65 @@ -1820,7 +1820,7 @@ [expr { [ns_set iget [ns_conn headers] X-SSL-Request] == 1 || [ns_set iget [ns_conn headers] X-Forwarded-Proto] eq "https" - }] + }] } return $ad_conn(behind_secure_proxy_p) }