Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -r1.178 -r1.179
--- openacs-4/packages/xowiki/xowiki.info 30 Jan 2019 13:49:18 -0000 1.178
+++ openacs-4/packages/xowiki/xowiki.info 5 Feb 2019 16:21:49 -0000 1.179
@@ -10,7 +10,7 @@
t
xowiki
-
+
Gustaf Neumann
A xotcl-based enterprise wiki system with multiple object types
2017-08-06
@@ -55,7 +55,7 @@
BSD-Style
2
-
+
@@ -119,6 +119,7 @@
+
"
}
#:log "resolve_page '$object', default-lang $lang"
@@ -1082,13 +1083,22 @@
}
#
- # second, resolve object level, unless we got a value already
+ # Second, resolve on object level, unless we have already an
+ # item_id from above.
#
if {![info exists (item_id)]} {
array set "" [:item_info_from_url -with_package_prefix false -default_lang $lang $object]
#:log "item_info_from_url returns [array get {}]"
}
+ if {$(item_id) == 0 && [:get_parameter use_fallback_page_in_system_locale 0] eq "1"} {
+ set system_lang [string range [lang::system::locale] 0 1]
+ if {$system_lang ne $lang} {
+ array set "" [:item_info_from_url -with_package_prefix false -default_lang $system_lang $object]
+ :log "item_info_from_url based on system_lang <$system_lang> returns [array get {}]"
+ }
+ }
+
if {$(item_id) ne 0} {
if {$(method) ne ""} { set method $(method) }
set page [:get_page_from_item_or_revision_id $(item_id)]
@@ -1105,7 +1115,10 @@
return $page
}
- if {$simple} { return ""}
+
+ if {$simple} {
+ return ""
+ }
#:log "NOT found object=$object"
# try standard page