From 6bc9dcb10aa56cd4fe2a3697374a3fa1b7d11a23 Mon Sep 17 00:00:00 2001
From: Norman Walsh <ndw@nwalsh.com>
Date: Thu, 23 May 2002 12:56:15 +0000
Subject: [PATCH] Protect calls to extension functions behind
 function-available tests

---
 xsl/html/html-rtf.xsl | 78 +++++++++++++++++++++++--------------------
 1 file changed, 42 insertions(+), 36 deletions(-)

diff --git a/xsl/html/html-rtf.xsl b/xsl/html/html-rtf.xsl
index 8fa7bcd21..caad72952 100644
--- a/xsl/html/html-rtf.xsl
+++ b/xsl/html/html-rtf.xsl
@@ -145,42 +145,48 @@
   <xsl:param name="blocks"/>
   <xsl:variable name="block" select="$blocks[1]"/>
 
-  <xsl:choose>
-    <xsl:when test="$blocks">
-      <xsl:variable name="leading" select="set:leading($nodes,$blocks)"/>
-      <xsl:variable name="trailing" select="set:trailing($nodes,$blocks)"/>
-
-      <xsl:element name="{local-name($wrap)}" namespace="{namespace-uri($wrap)}">
-        <xsl:for-each select="$wrap/@*">
-          <xsl:if test="$first != 0 or local-name(.) != 'id'">
-            <xsl:copy/>
-          </xsl:if>
-        </xsl:for-each>
-        <xsl:apply-templates select="$leading" mode="unwrap.p"/>
-      </xsl:element>
-
-      <xsl:apply-templates select="$block" mode="unwrap.p"/>
-
-      <xsl:if test="$trailing">
-        <xsl:call-template name="unwrap.nodes">
-          <xsl:with-param name="wrap" select="$wrap"/>
-          <xsl:with-param name="nodes" select="$trailing"/>
-          <xsl:with-param name="blocks" select="$blocks[position() &gt; 1]"/>
-        </xsl:call-template>
-      </xsl:if>
-    </xsl:when>
-
-    <xsl:otherwise>
-      <xsl:element name="{local-name($wrap)}" namespace="{namespace-uri($wrap)}">
-        <xsl:for-each select="$wrap/@*">
-          <xsl:if test="$first != 0 or local-name(.) != 'id'">
-            <xsl:copy/>
-          </xsl:if>
-        </xsl:for-each>
-        <xsl:apply-templates select="$nodes" mode="unwrap.p"/>
-      </xsl:element>
-    </xsl:otherwise>
-  </xsl:choose>
+  <!-- This template should never get called if these functions aren't available -->
+  <!-- but this test is still necessary so that processors don't choke on the -->
+  <!-- function calls if they don't support the set: functions -->
+  <xsl:if test="function-available('set:leading')
+                and function-available('set:trailing')">
+    <xsl:choose>
+      <xsl:when test="$blocks">
+        <xsl:variable name="leading" select="set:leading($nodes,$blocks)"/>
+        <xsl:variable name="trailing" select="set:trailing($nodes,$blocks)"/>
+
+        <xsl:element name="{local-name($wrap)}" namespace="{namespace-uri($wrap)}">
+          <xsl:for-each select="$wrap/@*">
+            <xsl:if test="$first != 0 or local-name(.) != 'id'">
+              <xsl:copy/>
+            </xsl:if>
+          </xsl:for-each>
+          <xsl:apply-templates select="$leading" mode="unwrap.p"/>
+        </xsl:element>
+
+        <xsl:apply-templates select="$block" mode="unwrap.p"/>
+
+        <xsl:if test="$trailing">
+          <xsl:call-template name="unwrap.nodes">
+            <xsl:with-param name="wrap" select="$wrap"/>
+            <xsl:with-param name="nodes" select="$trailing"/>
+            <xsl:with-param name="blocks" select="$blocks[position() &gt; 1]"/>
+          </xsl:call-template>
+        </xsl:if>
+      </xsl:when>
+
+      <xsl:otherwise>
+        <xsl:element name="{local-name($wrap)}" namespace="{namespace-uri($wrap)}">
+          <xsl:for-each select="$wrap/@*">
+            <xsl:if test="$first != 0 or local-name(.) != 'id'">
+              <xsl:copy/>
+            </xsl:if>
+          </xsl:for-each>
+          <xsl:apply-templates select="$nodes" mode="unwrap.p"/>
+        </xsl:element>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:if>
 </xsl:template>
 
 <!-- ==================================================================== -->
-- 
2.50.1