Changeset 1771

Timestamp:

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

Author:

fumiakiy

Message:

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

Location:

branches/release-33/lib/MT

Files:

• Object.pm (modified) (2 diffs)
• 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;
     }
 }