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

        Patch by afuna. 

diffs (36 lines):

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?>
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog

Reply via email to