Index: openacs-4/packages/xowiki/xowiki.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v diff -u -N -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