<xsl:template name="tag_onesubject">

    <xsl:choose>

      <xsl:when test="marc:subfield[@code=9]">

        <xsl:for-each select="marc:subfield">

          <xsl:if test="@code='9'">

            <xsl:variable name="start" select="position()"/>

            <xsl:variable name="ends">

              <xsl:for-each select="../marc:subfield[position() &gt; $start]">

                <xsl:if test="@code=9">

                  <xsl:variable name="end" select="position() + $start"/>

                  <xsl:value-of select="$end"/>

                  <xsl:text>,</xsl:text>

                </xsl:if>

              </xsl:for-each>

            </xsl:variable>

            <xsl:variable name="end">

              <xsl:choose>

                <xsl:when test="string-length($ends) > 0">

                  <xsl:value-of select="substring-before($ends,',')"/>

                </xsl:when>

                <xsl:otherwise>

                  <xsl:text>1000</xsl:text>

                </xsl:otherwise>

              </xsl:choose>

            </xsl:variable>

            <xsl:variable name="display">

              <xsl:for-each select="../marc:subfield[position() &gt; $start and position() &lt; $end and @code!=2 and @code!=3]">

                <xsl:value-of select="."/>

                <xsl:if test="not(position()=last())">

                  <xsl:text>, </xsl:text>

                </xsl:if>

              </xsl:for-each>

            </xsl:variable>

            <a>

              <xsl:attribute name="href">

                <xsl:text>/cgi-bin/koha/opac-search.pl?q=an:</xsl:text>

                <xsl:value-of select="str:encode-uri(., true())"/>

              </xsl:attribute>

              <xsl:choose>

                <xsl:when test="string-length($display) &gt; 0">

                  <xsl:call-template name="chopPunctuation">

                    <xsl:with-param name="chopString">

                      <xsl:value-of select="$display"/>

                    </xsl:with-param>

                  </xsl:call-template>

                </xsl:when>

                <xsl:otherwise>

                  <xsl:value-of select="."/>

                </xsl:otherwise>

              </xsl:choose>

            </a>

            <xsl:variable name="ncommas"

                 select="string-length($ends) - string-length(translate($ends, ',', ''))" />

            <xsl:if test="$ncommas &gt; 1">

              <xsl:text> -- </xsl:text>

            </xsl:if>

          </xsl:if>

        </xsl:for-each>

      </xsl:when>

      <xsl:when test="marc:subfield[@code='a']">

        <a>

          <xsl:attribute name="href">

            <xsl:text>/cgi-bin/koha/opac-search.pl?q=su:</xsl:text>

            <xsl:value-of select="str:encode-uri(marc:subfield[@code='a'], true())"/>

          </xsl:attribute>

          <xsl:call-template name="chopPunctuation">

            <xsl:with-param name="chopString">

              <xsl:call-template name="subfieldSelect">

                <xsl:with-param name="codes">abcdfijkmnptvxyz</xsl:with-param>

                <xsl:with-param name="subdivCodes">ijknpxyz</xsl:with-param>

                <xsl:with-param name="subdivDelimiter">-- </xsl:with-param>

              </xsl:call-template>

            </xsl:with-param>

          </xsl:call-template>

        </a>

      </xsl:when>

      <xsl:otherwise/>

    </xsl:choose>

    <xsl:if test="not(position()=last())">

      <xsl:text> | </xsl:text>

    </xsl:if>

  </xsl:template>

-