Index: openacs-4/packages/cookie-consent/cookie-consent.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cookie-consent/cookie-consent.info,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cookie-consent/cookie-consent.info 17 Dec 2017 19:55:03 -0000 1.1
+++ openacs-4/packages/cookie-consent/cookie-consent.info 18 Dec 2017 08:17:07 -0000 1.2
@@ -9,16 +9,16 @@
f
f
-
+
Gustaf Neumann
Cookie Consent Widget based on the free
Cookie Consent Library
2017-12-13
MIT License
0
-
+
Index: openacs-4/packages/cookie-consent/catalog/cookie-consent.de_DE.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cookie-consent/catalog/cookie-consent.de_DE.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cookie-consent/catalog/cookie-consent.de_DE.ISO-8859-1.xml 18 Dec 2017 08:17:07 -0000 1.1
@@ -0,0 +1,7 @@
+
+
+
+ Verstanden
+ Diese Webseite verwendet Cookies, um logins zu erm�glichen.
+ Details
+
Index: openacs-4/packages/cookie-consent/tcl/cookie-consent-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cookie-consent/tcl/cookie-consent-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cookie-consent/tcl/cookie-consent-procs.tcl 17 Dec 2017 19:55:03 -0000 1.1
+++ openacs-4/packages/cookie-consent/tcl/cookie-consent-procs.tcl 18 Dec 2017 08:17:07 -0000 1.2
@@ -41,8 +41,18 @@
} {
set dict [security::get_register_subsite]
if {![dict exists $dict subsite_id]} {
- set subsite_id [site_node::get_object_id \
- -node_id [dict get $dict host_node_id]]
+ set host_node_id [dict get $dict host_node_id]
+ if {$host_node_id == 0} {
+ #
+ # Provide compatibility with older versions of
+ # get_register_subsite, not returning the
+ # host_node_id. In such cases, we get the host_node_id
+ # via the URL
+ #
+ set node_info [site_node::get_from_url -url [dict get $dict url]]
+ set host_node_id [dict get $node_info node_id]
+ }
+ set subsite_id [site_node::get_object_id -node_id $host_node_id]
} else {
set subsite_id [dict get $dict subsite_id]
}