[bml] Add ability for Template Toolkit site-schemes to DW::Template

[fu]

[commit: http://hg.dwscoalition.org/bml/rev/a33fd9b94cd5]

http://bugs.dwscoalition.org/show_bug.cgi?id=2304

Handle path where a page coded in BML is viewed in a sitescheme coded in TT.

Patch by exor674.

Files modified:

• lib/Apache/BML.pm

--------------------------------------------------------------------------------
diff -r 80e4ab813745 -r a33fd9b94cd5 lib/Apache/BML.pm
--- a/lib/Apache/BML.pm	Mon Oct 04 01:24:04 2010 +0000
+++ b/lib/Apache/BML.pm	Mon Jan 31 19:41:23 2011 +0800
@@ -26,6 +26,8 @@ use APR::Finfo ();
 use APR::Finfo ();
 use Digest::MD5;
 use File::Spec;
+use DW::SiteScheme;
+
 BEGIN {
     $Apache::BML::HAVE_ZLIB = eval "use Compress::Zlib (); 1;";
 }
@@ -1388,6 +1390,13 @@ sub set_scheme
             $req->{'env'}->{'DefaultScheme'};
     }
 
+    my $dw_scheme = DW::SiteScheme->get($scheme);
+
+    if ( $dw_scheme && $dw_scheme->engine eq 'tt' ) {
+        $scheme = 'tt_runner';
+        DW::Request->get->pnote( actual_scheme => $dw_scheme );
+    }
+
     my $file = "$req->{env}{LookRoot}/$scheme.look";
 
     return 0 unless Apache::BML::load_look($file);
--------------------------------------------------------------------------------