richter at ecos
Sep 29, 2007, 5:14 AM
Post #3 of 6
(1052 views)
Permalink
|
|
RE: Re: Problems customizing selected form elements output
[In reply to]
|
|
Hi,
Please try to use the just uploaded Embperl 2.3.0 and set output mode 1
(xml). This should do the trick without the need of your custom syntax
Gerald
------------------------------------------------------------------------
Besuchen Sie unseren Messestand auf der SYSTEMS vom 23. - 26.10. in
München, Halle B3, Stand 425 www.ecos.de/messen-events/systems-2007.html
------------------------------------------------------------------------
Gerald Richter ECOS electronic communication services GmbH
******************* SECURING YOUR NETWORK ********************
Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: richter[at]ecos.de Voice: +49 6133 939-122
WWW: http://www.ecos.de Fax: +49 6133 939-333
Sitz der Gesellschaft: Dienheim; AG Mainz HRB 6889; GF: W.Heck,G.Richter
------------------------------------------------------------------------
> -----Original Message-----
> From: Villu Roogna [mailto:realmerx[at]gmail.com]
> Sent: Friday, September 07, 2007 9:45 PM
> To: embperl[at]perl.apache.org
> Subject: Re: Problems customizing selected form elements output
>
> Hi again,
>
> Well I have partially achieved what I want. I took a good
> look on the Embperl::Syntax::* code and documentation again
> and figured out that I can do what I want by using _ep_sa
> (XML::Embperl::DOM::Element::iSetAttribut in DOM.xs) function
> instead of Embperl::Cmd::InputCheck.
>
> In case anyone is interested I give here original and
> replaced code from EmbperlHTML.pm (actually I made a new
> syntax to prevent overwriting core).
>
> original:
>
> $self -> AddTag ('input', ['type', 'name', 'value'], ['src'],
> ['checked'],
> {
> perlcode =>
> [
> 'Embperl::Cmd::InputCheck (%$n%,
> %&*\'name%, %&*\'value%, %&\'checked%) ; %&=-type:radio|checkbox% ',
> #'_ep_sa(%$n%, \'checked\', \'checked\')
> if($fdat{%&*\'name%}); %&=-type:radio|checkbox% ',
> '$idat{%&*\'name%}=$fdat{%&*\'name%} ;
> _ep_sa(%$n%, \'value\', exists
> ($fdat{%&*\'name%})?$fdat{%&*\'name%}:\'\') ; %&!-value%',
> '$idat{%&*\'name%}=%&*\'value% ; ',
> ]
> }) ;
>
> replaced:
>
> $self -> AddTag ('input', ['type', 'name', 'value',
> 'checked'], ['src'], undef,
> {
> perlcode =>
> [
> #'Embperl::Cmd::InputCheck (%$n%,
> %&*\'name%, %&*\'value%, %&\'checked%) ; %&=-type:radio|checkbox% ',
> '_ep_sa(%$n%, \'checked\', \'checked\')
> if($fdat{%&*\'name%}); %&=-type:radio|checkbox% ',
> '$idat{%&*\'name%}=$fdat{%&*\'name%} ;
> _ep_sa(%$n%, \'value\', exists
> ($fdat{%&*\'name%})?$fdat{%&*\'name%}:\'\') ; %&!-value%',
> '$idat{%&*\'name%}=%&*\'value% ; ',
> ]
> }) ;
>
>
>
> But now I have another problem.
>
> When I write my html "xhtml" way (I need to do this because I
> want to send embperl output to XSLT processor) then checked
> or checked="checked" in replaced EmbperlHTML syntax is
> inserted at the wrong place
>
> For example
>
> <input type="checkbox" name="c1" value="v1" />
>
> now when I use %fdat magic to check the checkbox embperl generates:
>
> old syntax:
> <input type="checkbox" name="c1" value="v1" / checked> my new
> modified syntax:
> <input type="checkbox" name="c1" value="v1" / checked="checked">
>
> but I need it to generate:
>
> old syntax:
> <input type="checkbox" name="c1" value="v1" checked /> my new
> modified syntax:
> <input type="checkbox" name="c1" value="v1" checked="checked" />
>
> So the "checked" is inserted after slash "/", it should be
> inserted before it.
>
> What would I have to change (Embperl::Syntax ?) or something
> else to insert slash in correct place?
>
> With kind regards,
> Villu
>
>
>
** Virus checked by BB-5000 Mailfilter **
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe[at]perl.apache.org
For additional commands, e-mail: embperl-help[at]perl.apache.org
|
