Hi again!
>OK, one more try:
>$t->{'top'}{testcode} = sub {
>my ($node, $t) = @_;
>$t->{pre} = "A List\n\n";
>my $pos = 1;
>foreach my $kid ($node->findnodes('./node()')) {
>if ($kid->isElementNode && $kid->getName eq 'sub') {
>$t->{pre} .= "$pos) ";
>$pos++;
>}
>$t->{pre} .= apply_templates($kid);
>}
>return DO_SELF_ONLY;
>}
Yes! This finally did the job. But <complain-mode>should this not be *much*
more easier and straightforward?</complain-mode>
Anyway, thanks alot Matt for digging into my problem.
Best regards
Olaf
>--
><!-- Matt -->
><:->Get a smart net</:->
--
Olaf P�schel, Softwaretechnik, OLMOS Workstations GmbH, Germany
Wolfenb�tteler Str. 31A, 38102 Braunschweig, Fon.: +49-531-22020-0 Fax: -99
OLMOS supports signed and/or encrypted mail. Grab my key at www.keyserver.net
"Unix *is* user friendly. It's just a bit picky about its friends"
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
