Hi,
>
> $self->AddTag('epimg', ['width', 'height'], ['src'], undef,
> {
> perlcode =>
> 'my ($w, $h, $src);
> $w = %&width%;
> $h = %&height%;
> $src = %&src%;
> if (!defined $w && !defined $h) {
> ($w, $h) = my_own_func_to_get_img_dimensions($src);
> _ep_sa(%$t%, %$x%, "width", $w);
> _ep_sa(%$t%, %$x%, "height", $h);
XML::Embperl::DOM::iSetText(%$t%,%$x%, "img") ;
> }',
> });
>
Use the above addition with the DOM.xs I attach you then it should work (but
I have not fully tested it)
Gerald
DOM.xs
Description: Binary data
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
