I have an installed copy of DbMan:SQL and a Global Variable called "list_currentCarrier" (but this is more of a perl question than a DbMan question). Basically it lists a bunch of data from a database and SHOULD output a comma seperated list of that data. Here is what I have:
sub {
....
my $list = $DB->table("Insured")->select('Carrier', $cond)->fetchall_hashref;
return join(",", $list);
}
Now this is only part of the code ($Db, $Table and $cond are all correctly defind and I have verified that they work correctly) but my problem is that the array list SHOULD return the list of data but all I get back from the script is something like "ARRAY(0xa03c30c)". I believe I am doing something wrong but can't quite figure it out?
Thank you for any suggestions you may have.
Code:
sub {
....
my $list = $DB->table("Insured")->select('Carrier', $cond)->fetchall_hashref;
return join(",", $list);
}
Now this is only part of the code ($Db, $Table and $cond are all correctly defind and I have verified that they work correctly) but my problem is that the array list SHOULD return the list of data but all I get back from the script is something like "ARRAY(0xa03c30c)". I believe I am doing something wrong but can't quite figure it out?
Thank you for any suggestions you may have.