nah... I'll chuck it in here...
sub parse {
my( $cgi,$objTpl, $tpl, $vars ) = @_;
# Don't complain if $vars was undef
$vars = {} if !( defined( $vars ) );
$vars->{'version'} = '1.0.0';
eval Links::SiteHTML::display($tpl, { %$vars } );
#eval $objTpl->parse_print( $tpl, { %$vars } );
if( $@ ) {
print "<h2>$0: error in parse_print(): '$@'</h2>";
return 0;
} else {
return 1;
}
}
There we go: $tpl contains "Results.html" and $vars contains the tags.
I used the eval to find out what is wrong... I think....
Without the evel keyword, the page just displays blank.
Sacrifice is not about what you lose,
it is about what you gain in the process.
Code:
use Links::SiteHTML; sub parse {
my( $cgi,$objTpl, $tpl, $vars ) = @_;
# Don't complain if $vars was undef
$vars = {} if !( defined( $vars ) );
$vars->{'version'} = '1.0.0';
eval Links::SiteHTML::display($tpl, { %$vars } );
#eval $objTpl->parse_print( $tpl, { %$vars } );
if( $@ ) {
print "<h2>$0: error in parse_print(): '$@'</h2>";
return 0;
} else {
return 1;
}
}
There we go: $tpl contains "Results.html" and $vars contains the tags.
I used the eval to find out what is wrong... I think....
Without the evel keyword, the page just displays blank.
Sacrifice is not about what you lose,
it is about what you gain in the process.