Changeset 2367 for branches/release-38/lib/MT/ObjectDriver/Driver/DBD/Pg.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/Pg.pm (modified) (2 diffs)

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

@@ -52 +52 @@
     my $dbd = shift;
     my ($driver) = @_;
-    $dbd->_set_names($driver);
     $driver->pk_generator(\&pk_generator); 
-
     return $dbd;
 }
@@ -86 +84 @@
 }
 
+sub init_dbh {
+    my $dbd = shift;
+    my ($dbh) = @_;
+    $dbd->SUPER::init_dbh(@_);
+    $dbd->_set_names($dbh);
+}
+
 sub _set_names {
     my $dbd = shift;
-    my ($driver) = @_;
-    my $dbh = $driver->r_handle;
-    return 1 if exists $driver->{set_names};
+    my ($dbh) = @_;
+    return 1 if exists $dbh->{private_set_names};
 
     my $cfg = MT->config;
     my $set_names = $cfg->SQLSetNames;
-    $driver->{set_names} = 1;
+    $dbh->{private_set_names} = 1;
     return 1 if (defined $set_names) && !$set_names;