From 0571ac47e2cc0d2225ad7e14c7ffedb37335536e Mon Sep 17 00:00:00 2001
From: Nathan Gray <nathangray.bsc@gmail.com>
Date: Thu, 25 Aug 2011 20:28:24 +0000
Subject: [PATCH] Get basic HTML formattings working in word 2003, formattings
 inside table working in word documents

---
 etemplate/inc/class.bo_merge.inc.php      | 22 ++++++++++++----------
 etemplate/templates/default/msoffice.xslt | 12 +++++++++---
 etemplate/templates/default/wordml.xslt   | 17 +++++++++++++----
 3 files changed, 34 insertions(+), 17 deletions(-)

diff --git a/etemplate/inc/class.bo_merge.inc.php b/etemplate/inc/class.bo_merge.inc.php
index 7073c00d6a..eb6661b3de 100644
--- a/etemplate/inc/class.bo_merge.inc.php
+++ b/etemplate/inc/class.bo_merge.inc.php
@@ -377,13 +377,14 @@ abstract class bo_merge
 				);
 				// It seems easier to split the parent tags here
 				$replace_tags = array(
+					// Tables, lists don't go inside <w:p>
 					'/<(ol|ul|table)( [^>]*)?>/' => '</w:t></w:r></w:p><$1$2>',
 					'/<\/(ol|ul|table)>/' => '</$1><w:p><w:r><w:t>',
+					// Fix for things other than text (newlines) inside table row
+					'/<(td)( [^>]*)?>((?!<w:t>))(.*?)<\/td>[\s]*?/' => '<$1$2><w:t>$4</w:t></td>',
 					'/<(li)(.*?)>(.*?)<\/\1>/' => '<$1 $2>$3</$1>',
-/*
-					'/<(span)(.*?)>/' => "\n".'</w:t></w:r><$1$2>',
-					'/<\/(span)>/' => '</$1><w:r><w:t>'."\n",
-*/
+					// Remove extra whitespace
+					'/<w:t>[\s]+(.*?)<\/w:t>/' => '<w:t>$1</w:t>'
 				);
 				$content = preg_replace(array_keys($replace_tags),array_values($replace_tags),$content);
 //echo $content;die();
@@ -400,17 +401,18 @@ abstract class bo_merge
 			try
 			{
 				$element = new SimpleXMLelement($content);
-				$content = $xslt->transformToXml($element);
+				$content = @$xslt->transformToXml($element);
 
-				// Word 2003 needs invalid XML, add back in
-				if($mimetype == 'application/xml' && $mso_application_progid == 'Word.Document') {
+				// Word 2003 needs two declarations, add extra declaration back in
+				if($mimetype == 'application/xml' && $mso_application_progid == 'Word.Document' && strpos($content, '<?xml') !== 0) {
 					$content = '<?xml version="1.0" encoding="UTF-8" standalone="yes"?>'.$content;
 				}
 				// Validate
+				/*
 				$doc = new DOMDocument();
-//				$doc->loadXML($content);
-//				$doc->schemaValidate('/home/nathan/Downloads/WordprocessingML Schemas/wordnet.xsd');
-//echo $content;die();
+				$doc->loadXML($content);
+				$doc->schemaValidate(*Schema (xsd) file*);
+				*/
 			}
 			catch (Exception $e)
 			{
diff --git a/etemplate/templates/default/msoffice.xslt b/etemplate/templates/default/msoffice.xslt
index be4b1ee6f2..ebee7ad9dc 100644
--- a/etemplate/templates/default/msoffice.xslt
+++ b/etemplate/templates/default/msoffice.xslt
@@ -86,7 +86,7 @@ Breakers
 	</xsl:template>
 -->
 
-	<xsl:template match="w:r[descendant::strong|descendant::em|descendant::u|descendant::span]">
+	<xsl:template name="apply-styles" match="w:r[descendant::strong|descendant::em|descendant::u|descendant::span]">
 		<xsl:for-each select="node()|@*[not(w:rPr)]">
 			<xsl:choose>
 			<xsl:when test="descendant::strong|descendant::em|descendant::u|descendant::span" >
@@ -221,7 +221,7 @@ Breakers
 	<xsl:template match="table">
 		<w:tbl>
 			<w:tblPr>
-				<w:tblW w:type="dxa" w:w="9972"/>
+				<w:tblW w:type="pct" w:w="4500"/>
 				<w:jc w:value="left"/>
 				<xsl:if test="@border &gt; 0">
 					<w:tblBorders>
@@ -251,7 +251,13 @@ Breakers
 						<w:right w:color="000000" w:space="0" w:sz="{$width}" w:val="single"/>
 					</w:tcBorders></w:tcPr>
 				</xsl:if>
-				<w:p><w:r><w:t><xsl:apply-templates select="child::node()" /></w:t></w:r></w:p>
+				<w:p>
+				<xsl:call-template name="apply-styles">
+				<w:r>
+				<xsl:copy-of select="node()|@*"/>
+				</w:r>
+				</xsl:call-template>
+				</w:p>
 				</w:tc>
 			</xsl:for-each>
 			</w:tr>
diff --git a/etemplate/templates/default/wordml.xslt b/etemplate/templates/default/wordml.xslt
index 4587944459..15025c4255 100644
--- a/etemplate/templates/default/wordml.xslt
+++ b/etemplate/templates/default/wordml.xslt
@@ -87,7 +87,7 @@ Breakers
 	</xsl:template>
 -->
 
-	<xsl:template match="w:r[descendant::strong|descendant::em|descendant::u|descendant::span]">
+	<xsl:template match="w:r[descendant::strong|descendant::em|descendant::u|descendant::span]" name="apply-styles">
 		<xsl:for-each select="node()|@*[not(w:rPr)]">
 			<xsl:choose>
 			<xsl:when test="descendant::strong|descendant::em|descendant::u|descendant::span" >
@@ -123,6 +123,7 @@ Breakers
 		</w:t>
 		<w:br/>
 	</xsl:template>
+
 	<xsl:template match="i|em">
 		<w:i />
 	</xsl:template>
@@ -165,7 +166,7 @@ Breakers
 					</xsl:otherwise>
 				</xsl:choose>
 			</xsl:variable>
-			<w:shd w:fill="{$hex}" w:val="solid"/>
+			<w:shd w:fill="{$hex}" w:val="clear"/>
 		</xsl:if>
 		<xsl:if test="starts-with(.,'font-size')">
 			<xsl:variable name="font-size" select="substring-after(text(),'font-size:')" />
@@ -218,8 +219,8 @@ Breakers
 	<xsl:template match="table">
 		<w:tbl>
 			<w:tblPr>
-				<w:tblW w:type="dxa" w:w="9972"/>
 				<w:jc w:val="left"/>
+				<w:tblW w:w="5000" w:type="pct"/>
 			</w:tblPr>
 			<w:tblGrid>
 				<xsl:for-each select="./tr[1]/td">
@@ -229,7 +230,15 @@ Breakers
 		<xsl:for-each select="./tr">
 			<w:tr>
 			<xsl:for-each select="./td">
-				<w:tc><w:p><w:r><w:t><xsl:apply-templates select="child::node()" /></w:t></w:r></w:p></w:tc>
+				<w:tc>
+				<w:p>
+				<xsl:call-template name="apply-styles">
+				<w:r>
+<xsl:copy-of select="node()|@*"/>
+				</w:r>
+				</xsl:call-template>
+				</w:p>
+				</w:tc>
 			</xsl:for-each>
 			</w:tr>
 		</xsl:for-each>