Index: openacs-4/packages/xowiki/tcl/link-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v diff -u -N -r1.106.2.18 -r1.106.2.19 --- openacs-4/packages/xowiki/tcl/link-procs.tcl 3 Oct 2021 17:38:49 -0000 1.106.2.18 +++ openacs-4/packages/xowiki/tcl/link-procs.tcl 28 Dec 2021 15:59:42 -0000 1.106.2.19 @@ -419,8 +419,9 @@ set item_id [:resolve] #:log "-- image resolve for ${:page} returned $item_id (name=${:name}, label=${:label})" if {$item_id} { + set absolute_links [expr {[${:page} exists absolute_links] ? [${:page} absolute_links] : 0}] set link [::${:package_id} pretty_link -download true -query ${:query} \ - -absolute [${:page} absolute_links] -parent_id ${:parent_id} \ + -absolute $absolute_links -parent_id ${:parent_id} \ -page $item_id \ ${:name}] #:log "--l fully quali [${:page} absolute_links], link=$link [info commands ::$item_id]"