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 -N -r1.164 -r1.165 --- openacs-4/packages/xowiki/tcl/package-procs.tcl 12 Feb 2009 15:07:15 -0000 1.164 +++ openacs-4/packages/xowiki/tcl/package-procs.tcl 20 Feb 2009 08:00:49 -0000 1.165 @@ -97,6 +97,7 @@ ressources 1 revisions 1 view-default 1 view-links 1 view-plain 1 oacs-view 1 oacs-view2 1 oacs-view3 1 + view-book 1 view-book-no-ajax 1 view-oacs-docs 1 download 1 } 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.334 -r1.335 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 14 Feb 2009 13:39:07 -0000 1.334 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 20 Feb 2009 08:00:49 -0000 1.335 @@ -1684,27 +1684,26 @@ my text $text } - PlainPage instproc substitute_markup {content} { + PlainPage instproc substitute_markup {raw_content} { # - # The provided content and the returned result are strings - # containing plain text. + # The provided text is a raw text, that is transformed into HTML + # markup for links etc. # [self class] instvar RE markupmap - if {![my do_substitutions]} { - return $content + return $raw_content } - set content "" - foreach l [split $content \n] { + set html "" + foreach l [split $raw_content \n] { set l [string map $markupmap(escape) $l] set l [my regsub_eval $RE(anchor) $l {my anchor "\1"}] set l [my regsub_eval $RE(div) $l {my div "\1"}] set l [my regsub_eval $RE(include) $l {my include_content "\1" ""}] #regsub -all $RE(clean) $l {\1} l set l [string map $markupmap(unescape) $l] - append content $l \n + append html $l \n } - return $content + return $html } #