On Wed, Jun 18, 2003 at 04:14:05PM -0700, Tim Howell wrote:
>I've been over the template several times today, and I'm printing it out
>now so that I can look though it more carefully. If I don't find
>anything obvious, though, where do I go from here?
What I use in this situation is my template dumper program. I haven't
posted this for a while, so it's probably time to do it again:
#! /usr/bin/perl -w
use strict;
use HTML::Template;
my $t=HTML::Template->new(filename => $ARGV[0],
die_on_bad_params => 0);
my @l=$t->param;
my @o;
&output(0,[EMAIL PROTECTED],[EMAIL PROTECTED]);
sub output {
my ($level,$oldref,$listref)[EMAIL PROTECTED];
my @[EMAIL PROTECTED];
my @[EMAIL PROTECTED];
foreach my $param (sort @list) {
my @[EMAIL PROTECTED];
push @k,$param;
print ' ' x $level;
print "$param\n";
if ($t->query('name' => [EMAIL PROTECTED]) eq 'LOOP') {
my @l=$t->query('loop' => [EMAIL PROTECTED]);
&output($level+1,[EMAIL PROTECTED],[EMAIL PROTECTED]);
}
}
}
Roger
-------------------------------------------------------
This SF.Net email is sponsored by: INetU
Attention Web Developers & Consultants: Become An INetU Hosting Partner.
Refer Dedicated Servers. We Manage Them. You Get 10% Monthly Commission!
INetU Dedicated Managed Hosting http://www.inetu.net/partner/index.php
_______________________________________________
Html-template-users mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/html-template-users
