Index: openacs-4/packages/xowiki/tcl/package-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v diff -u -r1.223 -r1.224 --- openacs-4/packages/xowiki/tcl/package-procs.tcl 25 Jun 2010 13:30:31 -0000 1.223 +++ openacs-4/packages/xowiki/tcl/package-procs.tcl 28 Jun 2010 11:22:20 -0000 1.224 @@ -149,7 +149,7 @@ # try without a prefix set p [::xo::db::CrClass lookup -name $parent -parent_id $parent_id] - my log "check '$parent' returned $p" + #my log "check '$parent' returned $p" if {$p == 0} { # pages are stored with a lang prefix @@ -739,6 +739,10 @@ } my get_lang_and_name -default_lang $lang -path $object lang stripped_name + set parent_id [my get_parent_and_name -lang $lang -path $stripped_name -parent_id [my folder_id] \ + parent local_name] + #my msg "parent_id = $parent_id, local_name = $local_name, stripped_name = $stripped_name" + set stripped_name $local_name # stripped object is the object without a language prefix set stripped_object $object @@ -785,7 +789,7 @@ } set page [::xowiki::Package get_site_wide_page -name en:$stripped_name] - #my log "get_site_wide_page for en:'$stripped_name' returned $page (stripped name)" + #my log "get_site_wide_page for en:'$stripped_name' returned '$page' (stripped name)" if {$page ne ""} { #my msg "set_resolve_context site-wide -package_id [my id] -parent_id [my folder_id]" $page set_resolve_context -package_id [my id] -parent_id [my folder_id]