Jochen Topf wrote:
> tested with 2.0b9.
>
> when using EMBPERL_OUTPUT_MODE 1
>
...
> inserts a spurious '/':
The appended patch fixes this problem. You can also grab it from the CVS
Gerald
---------------------------------------------------------------------------
Gerald Richter ecos electronic communication services gmbh
IT-Securitylösungen * Webapplikationen mit Apache/Perl/mod_perl/Embperl
Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: [EMAIL PROTECTED] Voice: +49 6133 939-122
WWW: http://www.ecos.de/ Fax: +49 6133 939-333
---------------------------------------------------------------------------
Besuchen Sie uns auf der CeBIT (18. - 24. März 2004)
Halle 6 Stand B38-452
ECOS BB-5000 Firewall- und IT-Security Appliance: www.bb-5000.info
---------------------------------------------------------------------------
Index: Embperl/Syntax/EmbperlHTML.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/EmbperlHTML.pm,v
retrieving revision 1.5
diff -u -r1.5 EmbperlHTML.pm
--- Embperl/Syntax/EmbperlHTML.pm 13 Feb 2004 20:39:38 -0000 1.5
+++ Embperl/Syntax/EmbperlHTML.pm 7 Mar 2004 19:34:21 -0000
@@ -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) ;
Index: Embperl/Syntax/HTML.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/HTML.pm,v
retrieving revision 1.3
diff -u -r1.3 HTML.pm
--- Embperl/Syntax/HTML.pm 23 Jan 2004 06:50:57 -0000 1.3
+++ Embperl/Syntax/HTML.pm 7 Mar 2004 19:34:22 -0000
@@ -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 ;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
