oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

first shot at DBI tracing code

Browse source
This commit is contained in:
Graham Knop 2009-09-17 05:01:10 -05:00
parent 0c08e9c235
commit 5b25692561
3 changed files with 62 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/SQL.pm
View file

@ -203,7 +203,6 @@ sub buildHashRef {
unless ($options->{noOrder}) {
tie %hash, "Tie::IxHash";
}
$self->session->log->query($sql, $params);
my $dbh = $self->dbh;
my $results = $dbh->selectall_arrayref($sql, {}, @$params);
if ($dbh->err) {
@ -428,10 +427,15 @@ sub connect {
my $pass = shift;
my $params = shift;
require WebGUI::SQL::Trace;
open my $trace_handle, '>:via(WebGUI::SQL::Trace)', $session;
my (undef, $driver) = DBI->parse_dsn($dsn);
my $dbh = DBI->connect($dsn,$user,$pass,{RaiseError => 0, AutoCommit => 1,
my $dbh = DBI->connect($dsn, $user, $pass, {
RaiseError => 0,
AutoCommit => 1,
$driver eq 'mysql' ? (mysql_enable_utf8 => 1) : (),
});
$dbh->trace('2|SQL', $trace_handle);
unless (defined $dbh) {
$session->errorHandler->error("Couldn't connect to database: $dsn : $DBI::errstr");