Quelle  util.xsl

<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"
 xmlns:xweb="http://msqr.us/xsd/jaxb-web"
 exclude-result-prefixes="xweb">
 
 <!--
Named Template: javascript-string

Replace occurances of " in a string with \".

Parameters:
output-string - the text to seach/replace in
-->
 <xsl:template name="javascript-string">
  <xsl:param name="output-string"/>
  <xsl:call-template name="global-replace">
   <xsl:with-param name="output-string" select="$output-string"/>
   <xsl:with-param name="target"><xsl:text>"</xsl:text></xsl:with-param>
   <xsl:with-param name="replacement"><xsl:text>\"</xsl:text></xsl:with-param>
  </xsl:call-template>
 </xsl:template>
 
 <!--
Named Template: single-quote-string

Replace occurances of ' in a string with \'.

Parameters:
output-string - the text to seach/replace in
-->
 <xsl:template name="single-quote-string">
  <xsl:param name="output-string"/>
  <xsl:call-template name="global-replace">
   <xsl:with-param name="output-string" select="$output-string"/>
   <xsl:with-param name="target"><xsl:text>'</xsl:text></xsl:with-param>
   <xsl:with-param name="replacement"><xsl:text>\'</xsl:text></xsl:with-param>
  </xsl:call-template>
 </xsl:template>
 
 <!--
Named Template: escape-string

Replace occurances of a string with that string preceeded by a '\' 
character.

Parameters:
output-string - the text to seach/replace in
target - the text to search for
-->
 <xsl:template name="escape-string">
  <xsl:param name="output-string"/>
  <xsl:param name="target"/>
  <xsl:call-template name="global-replace">
   <xsl:with-param name="output-string" select="$output-string"/>
   <xsl:with-param name="target" select="$target"/>
   <xsl:with-param name="replacement">
    <xsl:text>\</xsl:text>
    <xsl:value-of select="$target"/>
   </xsl:with-param>
  </xsl:call-template>
 </xsl:template>
 
 <!--
Named Template: global-replace

Replace occurances of one string with another.

Parameters:
output-string - the text to seach/replace in
target - the text to search for
replacement - the text to replace occurances of 'target' with
-->
 <xsl:template name="global-replace">
  <xsl:param name="output-string"/>
  <xsl:param name="target"/>
  <xsl:param name="replacement"/>
  <xsl:choose>
   <xsl:when test="contains($output-string,$target)">

    <xsl:value-of select=
     "concat(substring-before($output-string,$target), $replacement)"/>
    <xsl:call-template name="global-replace">
     <xsl:with-param name="output-string" 
       select="substring-after($output-string,$target)"/>
     <xsl:with-param name="target" select="$target"/>
     <xsl:with-param name="replacement" 
       select="$replacement"/>
    </xsl:call-template>
   </xsl:when>
   <xsl:otherwise>
    <xsl:value-of select="$output-string"/>
   </xsl:otherwise>
  </xsl:choose>
 </xsl:template>
 
 <!--
Named Template: truncate-at-word

Truncate a string at a word break (space). If the input text
is shorter than max-length the text is returned unchanged.
Otherwise the text is truncated at the max-length plus any 
characters up to the next space, and a ellipsis character is
appended.

Parameters:
text       - the text to truncate
max-length - the maximum number of characters to allow
-->
 <xsl:template name="truncate-at-word">
  <xsl:param name="text"/>
  <xsl:param name="max-length">350</xsl:param>
  <xsl:choose>
   <xsl:when test="string-length($text) < $max-length">
    <xsl:value-of select="$text" disable-output-escaping="yes"/>
   </xsl:when>
   <xsl:otherwise>
    <xsl:variable name="start" select="substring($text,1,$max-length)"/>
    <xsl:variable name="after" select="substring($text,($max-length+1))"/>
    <xsl:variable name="word" select="substring-before($after,' ')"/>
    <xsl:value-of select="$start" disable-output-escaping="yes"/>
    <xsl:value-of select="$word" disable-output-escaping="yes"/>
    <xsl:text>…</xsl:text>
   </xsl:otherwise>
  </xsl:choose>
 </xsl:template>
 

</xsl:stylesheet>