Trouble with CGI / HTML::Template

jms53 has asked for the wisdom of the Perl Monks concerning the following question:

I'm having some trouble sending the appropriate parameters to HTML::Template.
I have a module fetching the data from a DB, as follows:

EDIT: I have verified that the data exists on the databas, and is in the format I'm expecting

sub get_account
{
  my $acct_num = pop;
  
  my $ar = $dbh->selectall_arrayref( 'SELECT * FROM account WHERE acco
+unt_number = ?', { Slice => {} }, $acct_num );
  my ($account) = @$ar;
  $account->{transactions} = \{get_transactions($account->{transaction
+s_id})};
  $account->{owners} = get_owners( $account->{customers_id} );
  return $account;
}

sub get_transactions
{
  my $transactions_id = shift;
  
  my $sql = <<'EOSQL';
    SELECT s.transaction_date, type.name, s.amount, s.new_balance
      FROM transactions t
      JOIN single_transaction s ON t.single_transaction_id = s.id
      JOIN transaction_type type ON s.transaction_type_id = type.id
     WHERE t.id = ?
EOSQL
  my $ar = $dbh->selectall_arrayref( $sql, undef, $transactions_id );
  my @lines;
  my $count = 1;
  my %transac;
  for ( @$ar )
  {
    my ($key, $type, $amount, $new_balance) = @$_;
    $key =~ /\A(\d{4})-(\d{2})-(\d{2})/;
    my $date = "$3\/$2\/$1";
    my @line = ($count, $date, $type, $amount, $new_balance);
    $transac{$key} = \@line;
    $count++;
  }
 
  return \%transac;
}
[download]

And the CGI part:

my $template = HTML::Template->new( filename => 'atm_choose.tmpl', die
+_on_bad_params => 0 );
my $account_number = param( 'account_number' );
my $account = MyDB->get_account( $account_number );
$template->param( %$account );
print header, $template->output;
[download]

I'm having trouble with setting the transactions in $account->{transactions}. When set as a reference to anon hash, I have an ISA problem, when set as an anon hash, HTML Template complains I'm attempting to set the parameter as a scalar.
I attempted de-referencing the hash, but to no avail.

thank you.

UPDATE 31.03.2013
There seem to be far more bugs than expected in the code, I'm going to start this from scratch.

J -

Comment on Trouble with CGI / HTML::Template Select or Download Code

Replies are listed 'Best First'.
Re: Trouble with CGI / HTML::Template by Corion (Patriarch) on Mar 30, 2013 at 16:30 UTC
You say that you tested your data, but this line: `$account->{transactions} = \{get_transactions($account->{transactions_ +id})};` [download] ... feels suspicious to me. I think you're double-referencing things here, given that `get_transactions` already returns a hash reference. I suggest you compare the Data::Dumper output of your data structures and pay very close attention to whether you get a hash reference or a reference to a hash reference: `>perl -MData::Dumper -wle "warn Dumper \{ foo => bar }; warn Dumper { +foo => bar }" Unquoted string "bar" may clash with future reserved word at -e line 1 +. Unquoted string "bar" may clash with future reserved word at -e line 1 +. $VAR1 = \{ 'foo' => 'bar' }; $VAR1 = { 'foo' => 'bar' };` [download] Also, "I have an ISA problem" is not a very good error description. Maybe you want to tell us the exact error message that HTML::Template gives you?	[reply] [d/l] [select]
Re^2: Trouble with CGI / HTML::Template by jms53 (Monk) on Mar 31, 2013 at 14:41 UTC
After attempting to debug all possible dereferencing possibilities, it turns out there are far more bugs with this code than just attempting to return a hash instead of a hash-ref around. I'm going to start this from scratch J -	[reply]


Perl-Sensitive Sunglasses
	PerlMonks