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 "
";
}