Monktim, I'm trying to work your code into mine and I'm having some
problems any help would be appreciated. Here's what I tried:
my $orf_id = $pt->get("$i,2");
#$dbh->do(q{ CREATE TEMPORARY TABLE IF NOT
EXISTS
moo(id INT UNSIGNED, escore DOUBLE, org_id
MEDIUMINT)});


$sql1 = qq/ SELECT DISTINCT min(escore) as escore,
org_id
FROM blast, protein
WHERE EXISTS ( SELECT id2, escore, org_id2
FROM blast, protein
WHERE id1 = id
AND text_id = ?
UNION
SELECT id1, escore, org_id1
FROM blast, protein
WHERE id2 = id
AND text_id = ? )
GROUP BY org_id
/;
$sth2->prepare($sql1);
$sth2->execute($orf_id);
with the above I got the following error:

Background Error: Can't locate object method "prepare" via package "DBI::st" (p rhaps you forgot to load "DBI::st"?) at C:/Perl/site/lib/RG/PropTable.pm line 1 75.
I've inhereted the code and a novice at best.
Any ideas on where the problem is?
Thanks,
Mark