<xsl:param name="delimeter"><xsl:text> </xsl:text></xsl:param>
<xsl:param name="subdivCodes"/>
<xsl:param name="subdivDelimiter"/>
+ <xsl:param name="prefix"/>
+ <xsl:param name="suffix"/>
<xsl:variable name="str">
<xsl:for-each select="marc:subfield">
<xsl:if test="contains($codes, @code)">
<xsl:if test="contains($subdivCodes, @code)">
<xsl:value-of select="$subdivDelimiter"/>
</xsl:if>
- <xsl:value-of select="text()"/><xsl:value-of select="$delimeter"/>
+ <xsl:value-of select="$prefix"/><xsl:value-of select="text()"/><xsl:value-of select="$suffix"/><xsl:value-of select="$delimeter"/>
</xsl:if>
</xsl:for-each>
</xsl:variable>
<xsl:when test="not($chopString)"/>
<xsl:otherwise><xsl:value-of select="$chopString"/></xsl:otherwise>
</xsl:choose>
+<xsl:text> </xsl:text>
</xsl:template>
-</xsl:stylesheet><!-- Stylus Studio meta-information - (c)1998-2002 eXcelon Corp.
+
+ <!-- Function extractControlNumber is used to extract the control number (record number) from MARC tags 773/80/85 [etc.] subfield $w.
+ Parameter: control number string.
+ Assumes LOC convention: (OrgCode)recordNumber.
+ If OrgCode is not present, return full string.
+ Additionally, handle various brackets/parentheses. Chop leading and trailing spaces.
+ -->
+ <xsl:template name="extractControlNumber">
+ <xsl:param name="subfieldW"/>
+ <xsl:variable name="tranW" select="translate($subfieldW,']})>','))))')"/>
+ <xsl:choose>
+ <xsl:when test="contains($tranW,')')">
+ <xsl:value-of select="normalize-space(translate(substring-after($tranW,')'),'[]{}()<>',''))"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="normalize-space($subfieldW)"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:template>
+
+ <!-- Function m880Select: Display Alternate Graphic Representation (MARC 880) for selected latin "base"tags
+ - should be called immediately before the corresonding latin tags are processed
+ - tags in right-to-left languages are displayed floating right
+ * Parameter:
+ + basetags: display these tags if found in linkage section ( subfield 6) of tag 880
+ + codes: display these subfields codes
+ * Options:
+ - class: wrap output in <span class="$class">...</span>
+ - label: prefix each(!) tag with label $label
+ - bibno: link to biblionumber $bibno
+ - index: build a search link using index $index with subfield $a as key; if subfield $9 is present use index 'an' with key $9 instead.
+ * Limitations:
+ - displays every field on a separate line (to switch between rtl and ltr)
+ * Pitfalls:
+ (!) output might be empty
+ -->
+ <xsl:template name="m880Select">
+ <xsl:param name="basetags"/> <!-- e.g. 100,700,110,710 -->
+ <xsl:param name="codes"/> <!-- e.g. abc -->
+ <xsl:param name="class"/> <!-- e.g. results_summary -->
+ <xsl:param name="label"/> <!-- e.g. Edition -->
+ <xsl:param name="bibno"/>
+ <xsl:param name="index"/> <!-- e.g. au -->
+
+ <xsl:for-each select="marc:datafield[@tag=880]">
+ <xsl:variable name="code6" select="marc:subfield[@code=6]"/>
+ <xsl:if test="contains(string($basetags), substring($code6,1,3))">
+ <span>
+ <xsl:if test="boolean($class)">
+ <xsl:attribute name="class"><xsl:value-of select="$class"/></xsl:attribute>
+ </xsl:if>
+ <xsl:choose>
+ <!-- display right-to-left tags floating right of their left-to-right counterparts -->
+ <xsl:when test="substring($code6,string-length($code6)-1,2) ='/r'">
+ <xsl:attribute name="style">display:block; text-align:right; float:right; width:50%; padding-left:20px</xsl:attribute>
+ <xsl:attribute name="dir">rtl</xsl:attribute>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:attribute name="style">display:block; </xsl:attribute>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:if test="boolean($label)">
+ <span class="label">
+ <xsl:value-of select="$label"/>
+ </span>
+ </xsl:if>
+ <xsl:variable name="str">
+ <xsl:for-each select="marc:subfield">
+ <xsl:if test="contains($codes, @code)">
+ <xsl:value-of select="text()"/>
+ <xsl:text> </xsl:text>
+ </xsl:if>
+ </xsl:for-each>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="boolean($bibno)">
+ <a>
+ <xsl:attribute name="href">/cgi-bin/koha/opac-detail.pl?biblionumber=<xsl:value-of select="$bibno"/></xsl:attribute>
+ <xsl:value-of select="$str"/>
+ </a>
+ </xsl:when>
+ <xsl:when test="boolean($index) and boolean(marc:subfield[@code=9])">
+ <a>
+ <xsl:attribute name="href">/cgi-bin/koha/opac-search.pl?q=an:<xsl:value-of select="marc:subfield[@code=9]"/></xsl:attribute>
+ <xsl:value-of select="$str"/>
+ </a>
+ </xsl:when>
+ <xsl:when test="boolean($index)">
+ <a>
+ <xsl:attribute name="href">/cgi-bin/koha/opac-search.pl?q=<xsl:value-of select="$index"/>:<xsl:value-of select="marc:subfield[@code='a']"/></xsl:attribute>
+ <xsl:value-of select="$str"/>
+ </a>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$str"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </span>
+ </xsl:if>
+ </xsl:for-each>
+
+ </xsl:template>
+
+</xsl:stylesheet>
+
+<!-- Stylus Studio meta-information - (c)1998-2002 eXcelon Corp.
<metaInformation>
<scenarios/><MapperInfo srcSchemaPath="" srcSchemaRoot="" srcSchemaPathIsRelative="yes" srcSchemaInterpretAsXML="no" destSchemaPath="" destSchemaRoot="" destSchemaPathIsRelative="yes" destSchemaInterpretAsXML="no"/>
</metaInformation>