Move string-replace-all to util.xsl

1 files changed, 23 insertions, 0 deletions

diff --git a/util.xsl b/util.xsl
index 19e6cf9..1c8bb5a 100644
--- a/util.xsl
+++ b/util.xsl
@@ -51,4 +51,27 @@
 	<xsl:template mode="nodetype" match="@*">attribute</xsl:template>
 	<xsl:template mode="nodetype" match="text()">text</xsl:template>
 
+	<xsl:template name="string-replace-all">
+		<xsl:param name="text" />
+		<xsl:param name="replace" />
+		<xsl:param name="by" />
+		<xsl:choose>
+			<xsl:when test="$replace = ''">
+				<xsl:value-of select="$text" />
+			</xsl:when>
+			<xsl:when test="contains($text, $replace)">
+				<xsl:value-of select="substring-before($text,$replace)" />
+				<xsl:value-of select="$by" />
+				<xsl:call-template name="string-replace-all">
+					<xsl:with-param name="text" select="substring-after($text,$replace)" />
+					<xsl:with-param name="replace" select="$replace" />
+					<xsl:with-param name="by" select="$by" />
+				</xsl:call-template>
+			</xsl:when>
+			<xsl:otherwise>
+				<xsl:value-of select="$text" />
+			</xsl:otherwise>
+		</xsl:choose>
+	</xsl:template>
+
 </xsl:stylesheet>