Index: openacs-4/packages/acs-templating/acs-templating.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/acs-templating.info,v diff -u -r1.41 -r1.42 --- openacs-4/packages/acs-templating/acs-templating.info 25 Sep 2007 15:22:38 -0000 1.41 +++ openacs-4/packages/acs-templating/acs-templating.info 19 Jan 2008 16:53:57 -0000 1.42 @@ -36,7 +36,7 @@ - + Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v diff -u -r1.32 -r1.33 --- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 21 Nov 2007 14:08:44 -0000 1.32 +++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 19 Jan 2008 16:53:57 -0000 1.33 @@ -301,7 +301,7 @@ ad_proc -public template::widget::richtext { element_reference tag_attributes } { Implements the richtext widget, which offers rich text editing options. - This version supports the rte and xinha editor. + This version supports the xinha editor. If the acs-templating.UseHtmlAreaForRichtextP parameter is set to true (1), this will use the htmlArea WYSIWYG editor widget. @@ -429,25 +429,12 @@ $options(editor) : [parameter::get \ -package_id $package_id_templating \ -parameter "RichTextEditor" \ - -default "rte"]}] + -default "xinha"]}] # Tell the blank-master to include the special stuff # for the richtext widget in the page header set ::acs_blank_master($richtextEditor) 1 - if {$richtextEditor eq "rte"} { - lappend ::acs_blank_master__htmlareas $element(form_id) - # quote contents for javascript. - set contents [string map {\n \\n \r {} "'" "&\#39"} $contents] - - # What we are generating here is the call to write the richtext widget - # but we also need to pass what to generate in for browsers for - # which the richtext widget won't work but which do have js enabled - # should output since we need the format widget (this for Safari among - # some others) - set noscript_output "$output
[_ acs-templating.Format]: $format_menu\n" - - set output "" - } elseif {$richtextEditor eq "xinha"} { + if {$richtextEditor eq "xinha"} { append output "\n" append output "\n"