Changeset 1771

Timestamp:

04/04/08 06:48:16 (4 months ago)

Author:

fumiakiy

Message:

Use database driver directory for non-cacheable classes. BugId:72003

Files:

• branches/release-33/lib/MT/Object.pm (modified) (2 diffs)
• branches/release-33/lib/MT/ObjectDriverFactory.pm (modified) (1 diff)

branches/release-33/lib/MT/Object.pm

@@ -220 +220 @@
-        $class->add_trigger( pre_save  => get_date_translator(\&ts2db, 1) );
-        $class->add_trigger( post_load => get_date_translator(\&db2ts, 0) );
+    }
+
+    if ( exists($props->{cacheable}) && !$props->{cacheable} ) {
+        no warnings 'redefine';
+        no strict 'refs'; ## no critic
+        *{$class . '::driver'} = sub { $_[0]->dbi_driver(@_) };
-    }
-
@@ -727 +733 @@
-}
-
+# ref to the fallback driver for non-cacheable classes
+our $DBI_DRIVER;
+sub dbi_driver {
+    unless ($DBI_DRIVER) {
+        my $driver = driver(@_);
+        if ( my $fb_driver = $driver->fallback ) {
+            $driver = $fb_driver;
+        }
+        $DBI_DRIVER = $driver;
+    }
+    return $DBI_DRIVER;
+}
+
-sub table_name {
-    my $obj = shift;

branches/release-33/lib/MT/ObjectDriverFactory.pm

@@ -94 +94 @@
-        }
-        $MT::Object::DRIVER = undef;
+        $MT::Object::DBI_DRIVER = undef;
-    }
-}