You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2005/08/07 01:15:26 UTC
cvs commit: embperl/test/html input.htm
richter 2005/08/06 16:15:26
Modified: . Changes.pod
Embperl/Syntax EmbperlHTML.pm
test/cmp input.htm
test/html input.htm
Log:
- Fixed incorrect quoting of single quotes inside of <textarea> values,
reported by Axel Beckert.
Revision Changes Path
1.278 +2 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.277
retrieving revision 1.278
diff -u -r1.277 -r1.278
--- Changes.pod 6 Aug 2005 23:07:04 -0000 1.277
+++ Changes.pod 6 Aug 2005 23:15:25 -0000 1.278
@@ -11,6 +11,8 @@
before any output.
- Fixed mail:send tag (Syntax Mail), so that Perl code inside the tag
for example to set an attribute, is now executed correctly.
+ - Fixed incorrect quoting of single quotes inside of <textarea> values,
+ reported by Axel Beckert.
- Documentation cleanup
- Added test for optKeepSpaces
1.10 +2 -2 embperl/Embperl/Syntax/EmbperlHTML.pm
Index: EmbperlHTML.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/EmbperlHTML.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- EmbperlHTML.pm 4 Nov 2004 06:19:14 -0000 1.9
+++ EmbperlHTML.pm 6 Aug 2005 23:15:25 -0000 1.10
@@ -80,7 +80,7 @@
perlcode =>
[
'$idat{%&*\'name%}=$fdat{%&*\'name%};_ep_ac(%$n%, Embperl::Syntax::ntypText + 0x20, $fdat{%&*\'name%}) ; %#!-0%',
- '$idat{%&*\'name%}=\'%#*0%\' ; ',
+ '$idat{%&*\'name%}=%#*\'0% ; ',
]
}) ;
1.22 +6 -0 embperl/test/cmp/input.htm
Index: input.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/input.htm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- input.htm 4 Nov 2004 06:19:14 -0000 1.21
+++ input.htm 6 Aug 2005 23:15:25 -0000 1.22
@@ -719,6 +719,12 @@
<select name="empty"></select>
+ <script language="JavaScript">
+ document.writeln('<textarea id="editor" name="editor" cols="80" rows="20">'+
+ o.getElementById('edit_content').value+
+ '</textarea>');
+ </script>
+
</form>
</body>
1.19 +6 -0 embperl/test/html/input.htm
Index: input.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/input.htm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- input.htm 4 Nov 2004 06:19:14 -0000 1.18
+++ input.htm 6 Aug 2005 23:15:25 -0000 1.19
@@ -404,6 +404,12 @@
</select>
+ <script language="JavaScript">
+ document.writeln('<textarea id="editor" name="editor" cols="80" rows="20">'+
+ o.getElementById('edit_content').value+
+ '</textarea>');
+ </script>
+
</form>
</body>
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org