my @transactions; my $sth = $db_h->Query(" SELECT serial_num, FROM_UNIXTIME(trans_date) AS 'Action_date', actor, type, trans_data, content FROM transtable ORDER BY serial_num; "); $sth->execute(); while( my $trans_hash = $sth->fetchrow_hashref("NAME_lc") ) { push (@transactions,$trans_hash); } return @transactions; ##

##

print "  $transaction->{'Action_date'}";						
##

##

my @trans_array = ();
my @trans_array = &Cpt::transactions_summary( $current_user );


    foreach my $transaction (@trans_array)
    {    	

    print "";
	print "  $transaction->{'serial_num'}";
	print "  $transaction->{'Action_date'}";												
	print "  $transaction->{'actor'}";
	print "  $transaction->{'type'}";
	print "  $transaction->{'trans_data'}";
	print "  $transaction->{'content'}";
	print "";
 
   }