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.265 -r1.266 --- openacs-4/packages/xowiki/tcl/package-procs.tcl 7 Dec 2012 15:50:12 -0000 1.265 +++ openacs-4/packages/xowiki/tcl/package-procs.tcl 28 Feb 2013 17:13:38 -0000 1.266 @@ -1146,7 +1146,7 @@ -parent_id $parent_id \ -assume_folder [expr {[incr n] < $nr_elements}] \ $element] - #my log "$element => [array get {}]" + #my msg "simple_item_ref $element => [array get {}]" if {$(item_id) == 0} { set parent_id $(parent_id) break @@ -1340,6 +1340,8 @@ if {[$item_id is_folder_page]} { return [list link_type "folder" prefix "" stripped_name $name parent_id $parent_id] } + set stripped_name $name + set prefix "" regexp {^(.+):(.+)$} $name _ prefix stripped_name return [list link_type "link" prefix $prefix stripped_name $stripped_name parent_id $parent_id] }