Changeset 2367 for branches/release-38/lib/MT/ObjectDriver/Driver/DBD/mysql.pm

Timestamp:

05/16/08 22:36:08 (19 months ago)

Author:

bchoate

Message:

Issue _set_names when init_dbh is invoked. BugId:79506

Files:

• branches/release-38/lib/MT/ObjectDriver/Driver/DBD/mysql.pm (modified) (2 diffs)

branches/release-38/lib/MT/ObjectDriver/Driver/DBD/mysql.pm

@@ -37 +37 @@
 }
 
-sub configure {
+sub init_dbh {
     my $dbd = shift;
-    my ($driver) = @_;
-    $dbd->_set_names($driver);
-    $dbd;
+    my ($dbh) = @_;
+    $dbd->SUPER::init_dbh(@_);
+    $dbd->_set_names($dbh);
 }
 
 sub _set_names {
     my $dbd = shift;
-    my ($driver) = @_;
-    my $dbh = $driver->rw_handle;
+    my ($dbh) = @_;
+    return 1 if exists $dbh->{private_set_names};
 
+warn "got here";
     my $cfg = MT->config;
     my $set_names = $cfg->SQLSetNames;
+    $dbh->{private_set_names} = 1;
     return 1 if (defined $set_names) && !$set_names;
 
@@ -56 +58 @@
         local $@;
         my $sth = $dbh->prepare('show variables like "character_set_database"')
-            or return $driver->error($dbh->errstr);
-        $sth->execute or return $driver->error($sth->errstr);
+            or die "error collecting variables from mysql: " . $dbh->errstr;
+        $sth->execute or die "error collecting variables from mysql: " . $sth->errstr;
         my $result = $sth->fetchall_hashref('Variable_name');
         my $charset_db = $result->{character_set_database}{Value};