richter 2004/03/07 11:36:35
Modified: . Changes.pod TODO
Embperl/Syntax EmbperlHTML.pm HTML.pm
test/cmp xhtml.htm
test/html xhtml.htm
Log:
fix a and option tags in xml output mode
Revision Changes Path
1.232 +2 -1 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.231
retrieving revision 1.232
diff -u -r1.231 -r1.232
--- Changes.pod 7 Mar 2004 18:09:55 -0000 1.231
+++ Changes.pod 7 Mar 2004 19:36:35 -0000 1.232
@@ -18,7 +18,8 @@
Reported by Edwin Ramirez.
- Fixed problem with encrypted source files and set key length.
Reported by Edwin Ramirez.
-
+ - Fixed problem with <a /> and <option /> in xml output mode.
+ Reported by Jochen Topf.
=head1 2.0b10 23. Jan 2004
1.121 +5 -0 embperl/TODO
Index: TODO
===================================================================
RCS file: /home/cvs/embperl/TODO,v
retrieving revision 1.120
retrieving revision 1.121
diff -u -r1.120 -r1.121
--- TODO 20 Feb 2004 06:05:34 -0000 1.120
+++ TODO 7 Mar 2004 19:36:35 -0000 1.121
@@ -9,6 +9,11 @@
- en/de select parameter passing in eg/web/header.epl
+- fdat param and Embperl::Object
+
+- xml output mode and a tag
+
+
TODO for Embperl 2.1 and later
- make Embperl run with threads and threaded Apache 2
1.6 +8 -4 embperl/Embperl/Syntax/EmbperlHTML.pm
Index: EmbperlHTML.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/EmbperlHTML.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- EmbperlHTML.pm 13 Feb 2004 20:39:38 -0000 1.5
+++ EmbperlHTML.pm 7 Mar 2004 19:36:35 -0000 1.6
@@ -148,10 +148,14 @@
#'_ep_opt (%$n%, %^*htmlselect%, %&*\'value%, %&\'selected%);',
#'_ep_opt (%$n%, %^*htmlselect%, %>*\'1%, %&\'selected%);',
]
- }) ;
- $self -> AddTagWithStart ('/option', 'option') ;
+ },
+ { 'nodename' => ':<:>:option:', 'cdatatype' => ntypAttrValue,
procinfo => {} }) ;
- $self -> AddTag ('a', undef, ['href'], undef, undef, undef, 1) ;
+ $self -> AddTagWithStart ('/option', 'option', undef, undef, undef, undef,
+ { 'nodename' => ':</:>:option:', 'cdatatype' =>
ntypAttrValue, procinfo => {} } ) ;
+
+ $self -> AddTag ('a', undef, ['href'], undef, undef, { 'nodename' => ':<:>:a:',
'cdatatype' => ntypAttrValue, procinfo => {} }, 1) ;
+ $self -> AddTag ('area', undef, ['href'], undef, undef, undef, 1) ;
$self -> AddTag ('frame', undef, ['src'], undef, undef, undef, 1) ;
$self -> AddTag ('iframe', undef, ['src'], undef, undef, undef, 1) ;
$self -> AddTag ('embed', undef, ['src'], undef, undef) ;
1.4 +3 -3 embperl/Embperl/Syntax/HTML.pm
Index: HTML.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/HTML.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- HTML.pm 23 Jan 2004 06:50:57 -0000 1.3
+++ HTML.pm 7 Mar 2004 19:36:35 -0000 1.4
@@ -299,10 +299,10 @@
sub AddTagWithStart
{
- my ($self, $tagname, $starttag, $attrs, $attrsurl, $attrsnoval, $procinfo) = @_
;
+ my ($self, $tagname, $starttag, $attrs, $attrsurl, $attrsnoval, $procinfo,
$taginfo) = @_ ;
- my $tag = $self -> AddTag ($tagname, $attrs, $attrsurl, $attrsnoval, $procinfo)
;
+ my $tag = $self -> AddTag ($tagname, $attrs, $attrsurl, $attrsnoval, $procinfo,
$taginfo) ;
$tag -> {'starttag'} = $starttag ;
}
1.3 +10 -1 embperl/test/cmp/xhtml.htm
Index: xhtml.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/xhtml.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- xhtml.htm 23 Dec 2002 20:47:36 -0000 1.2
+++ xhtml.htm 7 Mar 2004 19:36:35 -0000 1.3
@@ -20,10 +20,19 @@
</tr>
</table>
-^(<input type=\"hidden\" name=\"c\" value=\""3"\" \/>|<input
type=\"hidden\" name=\"a\" value=\"1\" \/>)(<input type=\"hidden\" name=\"a\"
value=\"1\" \/>|<input type=\"hidden\" name=\"b\" value=\"\'2\'\" \/>|<input
type=\"hidden\" name=\"c\" value=\""3"\" \/>)(<input type=\"hidden\"
name=\"c\" value=\""3"\" \/>|<input type=\"hidden\" name=\"b\"
value=\"\'2\'\" \/>)
+<input type="hidden" name="a" value="1" /><input type="hidden" name="c"
value=""3"" /><input type="hidden" name="b" value="'2'" />
<input type="text" name="b" value="'2'" />
<input type="text" name="c" value=""3"" />
+
+<a href="bla.htm">bla</a>
+
+<select name="a">
+ <option>xxx</option>
+</select>
+
+
+
</body>
</html>
1.2 +9 -0 embperl/test/html/xhtml.htm
Index: xhtml.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/xhtml.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- xhtml.htm 26 Nov 2002 10:03:45 -0000 1.1
+++ xhtml.htm 7 Mar 2004 19:36:35 -0000 1.2
@@ -39,5 +39,14 @@
<input type="text" name="b">
<input type="text" name="c">
+<a href="bla.htm">bla</a>
+
+<select name="a">
+ <option>xxx</option>
+</select>
+
+
+
+
</body>
</html>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
