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 -N -r1.365 -r1.366 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 18 Sep 2009 12:13:37 -0000 1.365 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 27 Oct 2009 11:30:28 -0000 1.366 @@ -1255,6 +1255,7 @@ set parent_id [$package_id folder_id] set name "" + if {[regexp {^:(..):(.*)$} $link _ lang stripped_name]} { # language link (it starts with a ':') set link_type language @@ -1263,6 +1264,12 @@ # (typed) file links set lang "" set name file:$stripped_name + } elseif {[regexp {^\./(.*)/$} $link _ stripped_name]} { + # relative folder link, starting with a "./", ending with a "/" + set link_type folder + set lang "" + set name $stripped_name + #my msg "folder link, lang=$lang, stripped_name='$stripped_name', name='$name', label=$label" } else { # do we have a typed link? prefix has more than two chars... if {[regexp {^([^:/?][^:/?][^:/?]+):((..):)?(.+)$} $link _ \