> Try to use '!Fields' instead of '$fields', does it make any difference?
No, I get exactly the same result. I guess I could manually remove any extra
added column that already exists in $joined_col, but that isn't really
ideal...
> If the DBD driver you are using supports it (it must support $sth -> rows),
> you can set $DBIx::Recordset::FetchsizeWarn to zero and then get the number
> with
> $num = @set ;
After running the following:
****
*set = DBIx::Recordset->Search({%fdat,('!DataSource' => $db, '!Table' =>
$table, '!Fields' => $joined_col, '$where' => $query, '$max' => 15)});
$DBIx::Recordset::FetchsizeWarn=0;
my $dbh = DBI->connect('DBI:Pg:dbname=ag','nobody') or die "Couldn't
connect to database";
my $sth = $dbh->prepare("SELECT COUNT(*) FROM $table");
my $rv = $sth->execute;
print $rv,br; #Generates '1'
$rv = $sth->rows;
print $rv,br; #Generates '1'
my $num = @set;
print $num,br; #Generates '15'
****
I take it that my driver doesn't support $sth->rows(). Am I right?
Marcus
