From 00d23d7913792b0ef6acaa5a3f022391a557de28 Mon Sep 17 00:00:00 2001
From: Bob Stayton <bobs@sagehill.net>
Date: Mon, 8 Jan 2007 03:32:20 +0000
Subject: [PATCH] Add utility template tabstyle to return the tabstyle from any
 table element.

---
 xsl/common/table.xsl | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/xsl/common/table.xsl b/xsl/common/table.xsl
index 4599f02ad..8fa6c8e62 100644
--- a/xsl/common/table.xsl
+++ b/xsl/common/table.xsl
@@ -473,4 +473,31 @@ or 0 (the empty string)</para>
   </xsl:if>
 </xsl:template>
 
+<!-- Returns the table style for the context element -->
+<xsl:template name="tabstyle">
+  <xsl:param name="node" select="."/>
+
+  <xsl:variable name="tgroup" select="$node/tgroup[1] | 
+                                      $node/ancestor-or-self::tgroup[1]"/>
+
+  <xsl:variable name="table" 
+                select="($node/ancestor-or-self::table | 
+                         $node/ancestor-or-self::informaltable)[1]"/>
+
+  <xsl:variable name="tabstyle">
+    <xsl:choose>
+      <xsl:when test="$table/@tabstyle != ''">
+        <xsl:value-of select="normalize-space($table/@tabstyle)"/>
+      </xsl:when>
+      <xsl:when test="$tgroup/@tgroupstyle != ''">
+        <xsl:value-of select="normalize-space($tgroup/@tgroupstyle)"/>
+      </xsl:when>
+      <xsl:otherwise>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:variable>
+
+  <xsl:value-of select="$tabstyle"/>
+</xsl:template>
+
 </xsl:stylesheet>
-- 
2.40.0