You can use the global below:
sub {
my $tags = GT::Template->tags;
my $cgi = $tags->{home}->{cgi};
my $html = '';
foreach (keys %$cgi) {
next if $_ =~ /^do|sid|db/ or !$cgi->{$_};
$html .= qq!<input type="hidden" name="$_" value="$cgi->{$_}">!;
}
return $html;
}
Hope that helps.
TheStone.
B.
sub {
my $tags = GT::Template->tags;
my $cgi = $tags->{home}->{cgi};
my $html = '';
foreach (keys %$cgi) {
next if $_ =~ /^do|sid|db/ or !$cgi->{$_};
$html .= qq!<input type="hidden" name="$_" value="$cgi->{$_}">!;
}
return $html;
}
Hope that helps.
TheStone.
B.