From c3fa375f4541c43750874c8ea6e58927b9d1ff89 Mon Sep 17 00:00:00 2001
From: George Clark <geonwiki@fenachrone.com>
Date: Thu, 16 Apr 2015 22:51:24 -0400
Subject: [PATCH] Item13331: Encode some entitites

Minor updates to get unit test to pass.
---
 UnitTestContrib/test/unit/ViewScriptTests.pm | 3 ++-
 core/lib/Foswiki/Render/HTML.pm              | 7 +++++++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/UnitTestContrib/test/unit/ViewScriptTests.pm b/UnitTestContrib/test/unit/ViewScriptTests.pm
index 9c02c08b99..d960f13f0c 100644
--- a/UnitTestContrib/test/unit/ViewScriptTests.pm
+++ b/UnitTestContrib/test/unit/ViewScriptTests.pm
@@ -37,7 +37,7 @@ my $topic2metaQ = $topic2meta;
 $topic2metaQ =~ s/"/&quot;/g;
 
 my $topic2txtarea =
-'<textarea name=""  rows="22" cols="70" readonly="readonly" style="width:99%" id="topic" class="foswikiTextarea foswikiTextareaRawView">';
+"<textarea class='foswikiTextarea foswikiTextareaRawView' cols='70' readonly='readonly' rows='22' style='width:99%' id='topic'>";
 
 my $topic2rawON = $topic2;
 $topic2rawON =~ s/</&lt;/g;
@@ -246,6 +246,7 @@ sub test_render_raw {
 
     ( $text, $hdr ) =
       $this->setup_view( $this->{test_web}, 'TestTopic2', 'viewfour', 'on' );
+
     $this->assert_html_matches( $topic2txtarea . $topic2rawON,
         $text, "Unexpected output from raw=on" );
     $this->assert_matches( qr#^Content-Type: text/html#ms,
diff --git a/core/lib/Foswiki/Render/HTML.pm b/core/lib/Foswiki/Render/HTML.pm
index 81cfa042ee..4a48958e0c 100644
--- a/core/lib/Foswiki/Render/HTML.pm
+++ b/core/lib/Foswiki/Render/HTML.pm
@@ -35,6 +35,13 @@ sub textarea {
     my $id       = $ah->{id};
     my $default  = $ah->{default};
 
+    #$default =~ s/([<>%'"])/'&#'.ord($1).';'/ge;
+
+    $default =~ s/&/&amp;/g;
+    $default =~ s/</&lt;/g;
+    $default =~ s/>/&gt;/g;
+    $default =~ s/"/&quot;/g;
+
     print STDERR Data::Dumper::Dumper( \$ah );
 
     my $html = '<textarea ';