Added a quiet parameter to suppress the Writing... message

diff --git a/xsl/html/chunker.xsl b/xsl/html/chunker.xsl
index d5beebe73185fd4c3aa3e436d8a7df31b22c0bbe..22fcafe17096f11ef3e0d92bce93f541632d3df8 100644 (file)
--- a/xsl/html/chunker.xsl
+++ b/xsl/html/chunker.xsl
@@ -81,20 +81,23 @@ in default.encoding, set this parameter to value <literal>native</literal>.
   <xsl:param name="encoding" select="$default.encoding"/>
   <xsl:param name="indent" select="'no'"/>
   <xsl:param name="content" select="''"/>
-
-  <xsl:message>
-    <xsl:text>Writing </xsl:text>
-    <xsl:value-of select="$filename"/>
-    <xsl:if test="name(.) != ''">
-      <xsl:text> for </xsl:text>
-      <xsl:value-of select="name(.)"/>
-      <xsl:if test="@id">
-        <xsl:text>(</xsl:text>
-        <xsl:value-of select="@id"/>
-        <xsl:text>)</xsl:text>
+  <xsl:param name="quiet" select="0"/>
+
+  <xsl:if test="$quiet = 0">
+    <xsl:message>
+      <xsl:text>Writing </xsl:text>
+      <xsl:value-of select="$filename"/>
+      <xsl:if test="name(.) != ''">
+        <xsl:text> for </xsl:text>
+        <xsl:value-of select="name(.)"/>
+        <xsl:if test="@id">
+          <xsl:text>(</xsl:text>
+          <xsl:value-of select="@id"/>
+          <xsl:text>)</xsl:text>
+        </xsl:if>
       </xsl:if>
-    </xsl:if>
-  </xsl:message>
+    </xsl:message>
+  </xsl:if>
 
   <xsl:choose>
     <xsl:when test="element-available('exsl:document')">