Hi.
>   # redefine the tags we want to manipulate attributes for
>   $self->AddTag('test', ['attribute'], undef, undef, {
>       perlcode => q[ {
>         # _ep_sa is an apparently undocumented function which
>         # allows you to rewrite an attribute of the current node
>         # specified by %$n%
>         _ep_sa(%$n%, 'attribute', %&'attribute%);
>       }],
>

Please move the comment out of the perlcode section, because line breaks may
change in the final code.Also the braces inside the q[ ] aren't necessary,
also they shouldn't create trouble:

   $self->AddTag('test', ['attribute'], undef, undef, {
         # _ep_sa is an apparently undocumented function which
         # allows you to rewrite an attribute of the current node
         # specified by %$n%
       perlcode => q[  _ep_sa(%$n%, 'attribute', %&'attribute%); ],
       });

If this still doesn't work, please set EMBPERL_DEBUG to 0x7ffffffe and send
me the resulting embperl.log file when you do the request

Gerald


-------------------------------------------------------------
Gerald Richter    ecos electronic communication services gmbh
Internetconnect * Webserver/-design/-datenbanken * Consulting

Post:       Tulpenstrasse 5         D-55276 Dienheim b. Mainz
E-Mail:     [EMAIL PROTECTED]         Voice:    +49 6133 925131
WWW:        http://www.ecos.de      Fax:      +49 6133 925152
-------------------------------------------------------------



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to