diff --git a/docs/upgrades/upgrade_6.5.6-6.6.0.pl b/docs/upgrades/upgrade_6.5.6-6.6.0.pl
index f11e326a9..04d391a40 100644
--- a/docs/upgrades/upgrade_6.5.6-6.6.0.pl
+++ b/docs/upgrades/upgrade_6.5.6-6.6.0.pl
@@ -234,6 +234,35 @@ while (my ($assetId) = $sth->array) {
}
$sth->finish;
+#--------------------------------------------
+print "\tAdding rich editor configurations.\n" unless ($quiet);
+my $importNode = WebGUI::Asset->getImportNode;
+$importNode->addChild({
+ className=>"WebGUI::Asset::RichEdit",
+ title=>"Content Manager's Rich Edit",
+ menuTitle=>"Content Manager's Rich Edit",
+ url=>"content_managers_rich_edit",
+ ownerUserId=>3,
+ groupIdView=>12,
+ groupIdEdit=>4,
+ toolbarRow1=>"bold\nitalic\njustifyleft\njustifyright\njustifycenter\njustifyfull\nindent\noutdent\nstyleselect\nremoveformat",
+ toolbarRow2=>"bullist\nnumlist\nsub\nsup\nlink\npagetree\nanchor\nunlink\nadvhr\nimage\ninsertImage\ncharmap\ncollateral",
+ toolbarRow3=>"tablecontrols\nvisualaid\npreview\nsource\nsearchreplace",
+ sourceEditorWidth=>600,
+ sourceEditorHeight=>500,
+ enableContextMenu=>1
+ },"PBrichedit000000000001");
+$importNode->addChild({
+ className=>"WebGUI::Asset::RichEdit",
+ title=>"Forum Rich Edit",
+ menuTitle=>"Forum Rich Edit",
+ url=>"forum_rich_edit",
+ ownerUserId=>3,
+ groupIdView=>7,
+ groupIdEdit=>4,
+ toolbarRow1=>"bold\nitalic\nbullist\nnumlist\nlink\nunlink\ncode\nemotions"
+ },"PBrichedit000000000002");
+
WebGUI::Session::close();
diff --git a/lib/WebGUI/Form.pm b/lib/WebGUI/Form.pm
index f8e78c2d0..1699bf03f 100644
--- a/lib/WebGUI/Form.pm
+++ b/lib/WebGUI/Form.pm
@@ -17,6 +17,7 @@ package WebGUI::Form;
use strict;
use Tie::IxHash;
use WebGUI::Asset;
+use WebGUI::Asset::RichEdit;
use WebGUI::Asset::Template;
use WebGUI::DateTime;
use WebGUI::International;
@@ -1141,6 +1142,10 @@ Returns an HTML area. An HTML area is different than a standard text area in tha
The name field for this form element.
+=head3 richEditorId
+
+An asset Id of a rich editor to display for this field.
+
=head3 value
The default value for this form element.
@@ -1171,16 +1176,10 @@ This will be used if no value is specified.
sub HTMLArea {
my $params = shift;
- my ($output, $rows, $columns, $htmlArea);
- my %var;
- # Store all scalar options in template variables
- foreach (keys %{$params}) {
- $var{"form.".$_} = $params->{$_} unless (ref $params->{$_});
- }
- # Textarea field
- $rows = $params->{rows} || ($session{setting}{textAreaRows}+20);
- $columns = $params->{columns} || ($session{setting}{textAreaCols}+10);
- $var{textarea} = textarea({
+ my $rows = $params->{rows} || ($session{setting}{textAreaRows}+20);
+ my $columns = $params->{columns} || ($session{setting}{textAreaCols}+10);
+ my $richEditId = $params->{richEditId} || "PBrichedit000000000001";
+ my $output = textarea({
name=>$params->{name},
value=>$params->{value},
wrap=>$params->{wrap},
@@ -1189,14 +1188,8 @@ sub HTMLArea {
extras=>$params->{extras}.' onBlur="fixChars(this.form.'.$params->{name}.')" id="'.$params->{name}.'"'.' mce_editable="true" ',
defaultValue=>$params->{defaultValue}
});
- # Other variables
- $var{"button"} = '
';
- if ($session{user}{richEditor} eq 'none') {
- return $var{textarea};
- } else {
- #return WebGUI::Asset::Template->new($session{user}{richEditor})->process(\%var);
- }
+ $output .= WebGUI::Asset::RichEdit->new($richEditId)->view;
+ return $output;
}
#-------------------------------------------------------------------
diff --git a/lib/WebGUI/i18n/English/WebGUI.pm b/lib/WebGUI/i18n/English/WebGUI.pm
index c5306ee80..54594be06 100644
--- a/lib/WebGUI/i18n/English/WebGUI.pm
+++ b/lib/WebGUI/i18n/English/WebGUI.pm
@@ -854,11 +854,6 @@ As with any delete operation, you are prompted to be sure you wish to proceed wi
lastUpdated => 1031514049
},
- '171' => {
- message => q|rich edit|,
- lastUpdated => 1031514049
- },
-
'445' => {
message => q|Preferences|,
lastUpdated => 1031514049