Mailing List Archive

Author: richter
Date: Sun May 10 16:13:53 2015
New Revision: 1678575

URL: http://svn.apache.org/r1678575
Log:
textarea HTML, no <br>

Modified:
perl/embperl/trunk/Embperl/Form/Control/textarea.pm

Modified: perl/embperl/trunk/Embperl/Form/Control/textarea.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/textarea.pm?rev=1678575&r1=1678574&r2=1678575&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/textarea.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/textarea.pm Sun May 10 16:13:53 2015
@@ -184,13 +184,14 @@ $]
my $text = $self -> get_display_text ($req, $value) ;
$text =~ s/\s*$// ;
$text =~ s/^\s*// ;
-my @text = split (/\n/, $text) ;
my $name = $self -> {force_name} || $self -> {name} ;
+my $is_html = $self -> {format} eq 'html' ;
+my @text = $is_html?($text):split (/\n/, $text) ;
$]
<div [.+ do { local $escmode = 0 ; $self -> get_std_control_attr($req, '', 'readonly') } +] _ef_divname="[+ $name +]">
[$ foreach my $val (@text) $]
[$ if $val =~ /^\s*$/ $]<br>[$else$]
-[+ $val +]
+[$if $is_html $][.+ do { local $escmode = 0 ; $val } +][$else$][+ $val +][$endif$]
[$endif$]
[$endforeach$]
</div>



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org