$ctype => undef
$string
$what
+$dbh => undef
</%args>
<%flags>
die if $what =~ m/[^a-z]/;
my $chk= $m->fetch_comp("check_${what}");
-my $dbh= dbw_connect($ocean);
+my $mydbh;
+$dbh ||= ($mydbh= dbw_connect($ocean));
my $sqlstmt= $chk->scall_method("sqlstmt");
my $sth= $dbh->prepare($sqlstmt);
print Dumper($emsg, $canontext, \@results);
}
-$dbh->rollback();
+$mydbh->rollback() if $mydbh;
return $emsg,
$canontext,