Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v diff -u -r1.485.2.14 -r1.485.2.15 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 20 Oct 2015 08:49:05 -0000 1.485.2.14 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 22 Oct 2015 08:28:42 -0000 1.485.2.15 @@ -2237,6 +2237,15 @@ } } + Page instproc anchor_parent_id {} { + # + # This method returns the parent_id used for rendering links + # between double square brackets [[...]]. It can be overloaded for + # more complex embedding situations + # + return [my item_id] + } + Page instproc anchor {arg} { if {[catch {set l [my create_link $arg]} errorMsg]} { return "
Error during processing of anchor ${arg}:
$errorMsg
" @@ -2245,7 +2254,7 @@ if {[my exists __RESOLVE_LOCAL]} { my set_resolve_context -package_id [my physical_package_id] -parent_id [my physical_parent_id] - $l parent_id [my item_id] + $l parent_id [my anchor_parent_id] set html [$l render] my reset_resolve_context } else {