10c08b6552
Bug 23290 explicitly disabled entity expansion during XML parsing for security reasons. However, many XSLTs define the following entity: <!ENTITY nbsp " " > They don't use the entity  , but its presence could lead to confusion. Signed-off-by: Eden Bacani <eden.bacani@gmail.com> Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
262 lines
11 KiB
XML
262 lines
11 KiB
XML
<?xml version='1.0'?>
|
|
|
|
<!DOCTYPE stylesheet>
|
|
|
|
<xsl:stylesheet version="1.0"
|
|
xmlns:marc="http://www.loc.gov/MARC21/slim"
|
|
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
|
|
xmlns:str="http://exslt.org/strings">
|
|
<xsl:template name="datafield">
|
|
<xsl:param name="tag"/>
|
|
<xsl:param name="ind1"><xsl:text> </xsl:text></xsl:param>
|
|
<xsl:param name="ind2"><xsl:text> </xsl:text></xsl:param>
|
|
<xsl:param name="subfields"/>
|
|
<xsl:element name="datafield">
|
|
<xsl:attribute name="tag">
|
|
<xsl:value-of select="$tag"/>
|
|
</xsl:attribute>
|
|
<xsl:attribute name="ind1">
|
|
<xsl:value-of select="$ind1"/>
|
|
</xsl:attribute>
|
|
<xsl:attribute name="ind2">
|
|
<xsl:value-of select="$ind2"/>
|
|
</xsl:attribute>
|
|
<xsl:copy-of select="$subfields"/>
|
|
</xsl:element>
|
|
</xsl:template>
|
|
|
|
<xsl:template name="subfieldSelect">
|
|
<xsl:param name="codes"/>
|
|
<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:param name="urlencode"/>
|
|
<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="$prefix"/><xsl:value-of select="text()"/><xsl:value-of select="$suffix"/><xsl:value-of select="$delimeter"/>
|
|
</xsl:if>
|
|
</xsl:for-each>
|
|
</xsl:variable>
|
|
<xsl:choose>
|
|
<xsl:when test="$urlencode=1">
|
|
<xsl:value-of select="str:encode-uri(substring($str,1,string-length($str)-string-length($delimeter)), true())"/>
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<xsl:value-of select="substring($str,1,string-length($str)-string-length($delimeter))"/>
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:template>
|
|
|
|
<xsl:template name="buildSpaces">
|
|
<xsl:param name="spaces"/>
|
|
<xsl:param name="char"><xsl:text> </xsl:text></xsl:param>
|
|
<xsl:if test="$spaces>0">
|
|
<xsl:value-of select="$char"/>
|
|
<xsl:call-template name="buildSpaces">
|
|
<xsl:with-param name="spaces" select="$spaces - 1"/>
|
|
<xsl:with-param name="char" select="$char"/>
|
|
</xsl:call-template>
|
|
</xsl:if>
|
|
</xsl:template>
|
|
|
|
<xsl:template name="buildBiblioDefaultViewURL">
|
|
<xsl:param name="IntranetBiblioDefaultView"/>
|
|
<xsl:choose>
|
|
<xsl:when test="$IntranetBiblioDefaultView='normal'">
|
|
<xsl:text>/cgi-bin/koha/catalogue/detail.pl?biblionumber=</xsl:text>
|
|
</xsl:when>
|
|
<xsl:when test="$IntranetBiblioDefaultView='isbd'">
|
|
<xsl:text>/cgi-bin/koha/catalogue/ISBDdetail.pl?biblionumber=</xsl:text>
|
|
</xsl:when>
|
|
<xsl:when test="$IntranetBiblioDefaultView='labeled_marc'">
|
|
<xsl:text>/cgi-bin/koha/catalogue/labeledMARCdetail.pl?biblionumber=</xsl:text>
|
|
</xsl:when>
|
|
<xsl:when test="$IntranetBiblioDefaultView='marc'">
|
|
<xsl:text>/cgi-bin/koha/catalogue/MARCdetail.pl?biblionumber=</xsl:text>
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<xsl:text>/cgi-bin/koha/catalogue/detail.pl?biblionumber=</xsl:text>
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:template>
|
|
|
|
<xsl:template name="chopPunctuation">
|
|
<xsl:param name="chopString"/>
|
|
<xsl:variable name="length" select="string-length($chopString)"/>
|
|
<xsl:choose>
|
|
<xsl:when test="$length=0"/>
|
|
<xsl:when test="contains('.:,;/ ', substring($chopString,$length,1))">
|
|
<xsl:call-template name="chopPunctuation">
|
|
<xsl:with-param name="chopString" select="substring($chopString,1,$length - 1)"/>
|
|
</xsl:call-template>
|
|
</xsl:when>
|
|
<xsl:when test="not($chopString)"/>
|
|
<xsl:otherwise><xsl:value-of select="$chopString"/></xsl:otherwise>
|
|
</xsl:choose>
|
|
<xsl:text> </xsl:text>
|
|
</xsl:template>
|
|
|
|
<!-- 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.
|
|
Returns the value URI-encoded.
|
|
-->
|
|
<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="str:encode-uri(normalize-space(translate(substring-after($tranW,')'),'[]{}()<>','')), true())"/>
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<xsl:value-of select="str:encode-uri(normalize-space($subfieldW), true())"/>
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:template>
|
|
|
|
<xsl:template name="nameABCDQ">
|
|
<xsl:call-template name="chopPunctuation">
|
|
<xsl:with-param name="chopString">
|
|
<xsl:call-template name="subfieldSelect">
|
|
<xsl:with-param name="codes">aq</xsl:with-param>
|
|
</xsl:call-template>
|
|
</xsl:with-param>
|
|
<xsl:with-param name="punctuation">
|
|
<xsl:text>:,;/ </xsl:text>
|
|
</xsl:with-param>
|
|
</xsl:call-template>
|
|
<xsl:call-template name="termsOfAddress"/>
|
|
</xsl:template>
|
|
|
|
<xsl:template name="nameABCDN">
|
|
<xsl:for-each select="marc:subfield[@code='a']">
|
|
<xsl:call-template name="chopPunctuation">
|
|
<xsl:with-param name="chopString" select="."/>
|
|
</xsl:call-template>
|
|
</xsl:for-each>
|
|
<xsl:for-each select="marc:subfield[@code='b']">
|
|
<xsl:value-of select="."/>
|
|
</xsl:for-each>
|
|
<xsl:if test="marc:subfield[@code='c'] or marc:subfield[@code='d'] or marc:subfield[@code='n']">
|
|
<xsl:call-template name="subfieldSelect">
|
|
<xsl:with-param name="codes">cdn</xsl:with-param>
|
|
</xsl:call-template>
|
|
</xsl:if>
|
|
</xsl:template>
|
|
|
|
<xsl:template name="nameACDEQ">
|
|
<xsl:call-template name="subfieldSelect">
|
|
<xsl:with-param name="codes">acdeq</xsl:with-param>
|
|
</xsl:call-template>
|
|
</xsl:template>
|
|
|
|
<xsl:template name="termsOfAddress">
|
|
<xsl:if test="marc:subfield[@code='b' or @code='c']">
|
|
<xsl:call-template name="chopPunctuation">
|
|
<xsl:with-param name="chopString">
|
|
<xsl:call-template name="subfieldSelect">
|
|
<xsl:with-param name="codes">bc</xsl:with-param>
|
|
</xsl:call-template>
|
|
</xsl:with-param>
|
|
</xsl:call-template>
|
|
</xsl:if>
|
|
</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,10,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="str:encode-uri($bibno, true())"/></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="str:encode-uri(marc:subfield[@code=9], true())"/></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="str:encode-uri(marc:subfield[@code='a'], true())"/></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>
|
|
-->
|