Perl Integration - Assigning a text value during the editor

[anonymous]

Can't assign a value to the editor (v.2.2) during instance from Perl code.

Sample instance:

...
FCKeditor('instance_name');
my $BasePath = $sBasePath;
my $Value = "Sample text";
my $fckedit = CreateHtml($Value);
...

The response returns an empty text field in the editor. The reason is simple - there is no value assignment to the variable $Value in the CreateHTML subroutine in "fckeditor.pl"

Now:

sub CreateHtml
{
$HtmlValue = &specialchar_cnv($Value);
$Html = '<div>' ;
..
}

Should be:

sub CreateHtml
{
$Value = shift();
$HtmlValue = &specialchar_cnv($Value);
$Html = '<div>' ;
..
}

---

Moved from SF:
http://sourceforge.net/tracker/index.php?func=detail&aid=1429965&group_id=75348&atid=543653

[martinkou]

FCKeditor('instance_name');
my $BasePath = $sBasePath;
my $Value = "Sample text";
my $fckedit = CreateHtml($Value);
...

The response returns an empty text field in the editor. The reason is simple - there is no value assignment to the variable $Value in the CreateHTML subroutine in "fckeditor.pl"

Now:

sub CreateHtml
{
$HtmlValue = &specialchar_cnv($Value);
$Html = '<div>' ;
..
}

Should be:

sub CreateHtml
{
$Value = shift();
$HtmlValue = &specialchar_cnv($Value);
$Html = '<div>' ;
..
}

---

Moved from SF. Original poster: Anonymous