[dw-free] entry preview shows mix of styles

[kareila]

[commit: http://hg.dwscoalition.org/dw-free/rev/4997039fd165]

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

Only wrap the BML page wrapper when it's a BML page.

Patch by afuna.

Files modified:

• htdocs/preview/entry.bml

--------------------------------------------------------------------------------
diff -r 50aa26b65ec0 -r 4997039fd165 htdocs/preview/entry.bml
--- a/htdocs/preview/entry.bml	Thu Jul 16 19:04:02 2009 -0500
+++ b/htdocs/preview/entry.bml	Thu Jul 16 19:12:47 2009 -0500
@@ -1,5 +1,3 @@
-<?page
-body<=
 <?_code
 {
     use strict;
@@ -97,6 +95,9 @@ body<=
             # it works, as bytes >= chars:
             $subject = LJ::text_trim($subject, 0, length($req{'subject'}) || 40);
         }
+
+        $ret .= "<?page\n";
+        $ret .= "body<=\n";
 
         $ret .= "<p>";
 
@@ -241,6 +242,10 @@ body<=
         $ret .= "</div>";
 
         $ret .= "<br clear='all' /><hr width='100%' size='2' align='center' />";
+        
+        $ret .= "\n<=body";
+        $ret .= "\npage?>";
+
     } else {
         $LJ::S2::ret_ref = \$ret;
         my $opts;
@@ -379,5 +384,3 @@ body<=
     return $ret;
 }
 _code?>
-<=body
-page?>
--------------------------------------------------------------------------------