perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Gerald Richter - ECOS GmbH" <rich...@ecos.de>
Subject RE: Re: Problems customizing selected form elements output
Date Sat, 29 Sep 2007 12:14:25 GMT
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@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@gmail.com] 
> Sent: Friday, September 07, 2007 9:45 PM
> To: embperl@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@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message