Re: Error when passing AoH ref to HTML::Template

Firstly you don't need all those my $c =..., but the error is because you sent a hash not a hash reference (also print $template->output).:

sub validate {
  my @params = @_;
  my @warning;

  for ( @params ) {
    my %h = ( missing => $_);
    push (@warning, \%h ) unless $c->param($_); 
  }
  if ( @warning ) {
    print $c->header;
    my $template = HTML::Template->new(filename => './templates/warnin
+g.html');
    #don't use die $! while testing HTML::Template has it's own error 
+handling
    $template->param( warnings => \@warning );
    print $template->output();
    exit;
  }
}
[download]

"Cogito cogito ergo cogito sum - I think that I think, therefore I think that I am." Ambrose Bierce

Comment on Re: Error when passing AoH ref to HTML::Template Download Code

Replies are listed 'Best First'.
Re^2: Error when passing AoH ref to HTML::Template by silent11 (Vicar) on Aug 17, 2005 at 20:03 UTC
Thanks! I'll give your code a try. I didn't want to add the extra instance of CGI, but when I don't add the instance inside of the sub I get the following eror: `Can't call method "param" on an undefined value at /var/www/cgi-bin/eb +ranch/assignment/process.cgi line 23.` [download] Any ideas? -silent11 Spread Firefox	[reply] [d/l]
Re^3: Error when passing AoH ref to HTML::Template by eric256 (Parson) on Aug 18, 2005 at 16:30 UTC
Only create one $c. Then pass it to validate. CGI can get tempermental when you keep creating new ones. #!/usr/bin/perl use strict; use HTML::Template; use MIME::Lite; use CGI; use CGI::Carp qw/fatalsToBrowser/; use Data::Dumper; my $c = new CGI; validate($c, qw/ email phone/ ); print $c->header,$c->start_html('everythings ok'); sub validate { my $c = shift; my @params = @_; my @warning; for ( @params ) { push (@warning, { 'missing' => $_ }) unless $c->param($_); } if ( @warning ) { print $c->header; my $template = HTML::Template->new(filename => './templates/warnin +g.html'); $template->param( warnings => \@warning ); print $template->output(); print Dumper @warning; exit; } } [download] ___________ Eric Hodges	[reply] [d/l]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks