I tried a couple of different things with Template::Stash to
get the output of the subroutine, but all seem to result in STDOUT from the subroutine to print at the top of the page.
Here's my modified code:
my $tmpl_stash = Template::Stash->new( {
'show_subcat' => \&show_subcat( $lpmkey ),
} );
my $tmpl_data = {
"${lpmkey}select" => ' selected',
# 'show_subcat' => show_subcat( $lpmkey ),
'lpmcat' => $lpmkey,
'lpmcategory' => { 'l' => 'Logos',
'p' => 'Photos',
'm' => 'More',
}->{ $lpmkey },
};
And then I have a <code>{#PERL#} block like you suggested in your post. I also just tried running the subroutine from the block directly, avoiding using Template::Stash, but I'm still running into the same problem.
Any help would be appreciated.
elbieelbieelbie |