2 <!DOCTYPE stylesheet [<!ENTITY nbsp " " >]>
3 <xsl:stylesheet version="1.0" xmlns:marc="http://www.loc.gov/MARC21/slim" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
4 <xsl:template name="datafield">
5 <xsl:param name="tag"/>
6 <xsl:param name="ind1"><xsl:text> </xsl:text></xsl:param>
7 <xsl:param name="ind2"><xsl:text> </xsl:text></xsl:param>
8 <xsl:param name="subfields"/>
9 <xsl:element name="datafield">
10 <xsl:attribute name="tag">
11 <xsl:value-of select="$tag"/>
13 <xsl:attribute name="ind1">
14 <xsl:value-of select="$ind1"/>
16 <xsl:attribute name="ind2">
17 <xsl:value-of select="$ind2"/>
19 <xsl:copy-of select="$subfields"/>
23 <xsl:template name="subfieldSelect">
24 <xsl:param name="codes"/>
25 <xsl:param name="delimeter"><xsl:text> </xsl:text></xsl:param>
26 <xsl:param name="subdivCodes"/>
27 <xsl:param name="subdivDelimiter"/>
28 <xsl:param name="prefix"/>
29 <xsl:param name="suffix"/>
30 <xsl:variable name="str">
31 <xsl:for-each select="marc:subfield">
32 <xsl:if test="contains($codes, @code)">
33 <xsl:if test="contains($subdivCodes, @code)">
34 <xsl:value-of select="$subdivDelimiter"/>
36 <xsl:value-of select="$prefix"/><xsl:value-of select="text()"/><xsl:value-of select="$suffix"/><xsl:value-of select="$delimeter"/>
40 <xsl:value-of select="substring($str,1,string-length($str)-string-length($delimeter))"/>
43 <xsl:template name="subfieldSelectSpan">
44 <xsl:param name="codes"/>
45 <xsl:param name="delimeter"><xsl:text> </xsl:text></xsl:param>
46 <xsl:param name="subdivCodes"/>
47 <xsl:param name="subdivDelimiter"/>
48 <xsl:param name="prefix"/>
49 <xsl:param name="suffix"/>
50 <xsl:for-each select="marc:subfield">
51 <xsl:if test="contains($codes, @code)">
53 <xsl:attribute name="class"><xsl:value-of select="@code"/></xsl:attribute>
54 <xsl:if test="contains($subdivCodes, @code)">
55 <xsl:value-of select="$subdivDelimiter"/>
57 <xsl:value-of select="$prefix"/><xsl:value-of select="text()"/><xsl:value-of select="$suffix"/><xsl:if test="position()!=last()"><xsl:value-of select="$delimeter"/></xsl:if>
63 <xsl:template name="buildSpaces">
64 <xsl:param name="spaces"/>
65 <xsl:param name="char"><xsl:text> </xsl:text></xsl:param>
66 <xsl:if test="$spaces>0">
67 <xsl:value-of select="$char"/>
68 <xsl:call-template name="buildSpaces">
69 <xsl:with-param name="spaces" select="$spaces - 1"/>
70 <xsl:with-param name="char" select="$char"/>
75 <xsl:template name="chopPunctuation">
76 <xsl:param name="chopString"/>
77 <xsl:variable name="length" select="string-length($chopString)"/>
79 <xsl:when test="$length=0"/>
80 <xsl:when test="contains('.:,;/ ', substring($chopString,$length,1))">
81 <xsl:call-template name="chopPunctuation">
82 <xsl:with-param name="chopString" select="substring($chopString,1,$length - 1)"/>
85 <xsl:when test="not($chopString)"/>
86 <xsl:otherwise><xsl:value-of select="$chopString"/></xsl:otherwise>
90 <!-- Function extractControlNumber is used to extract the control number (record number) from MARC tags 773/80/85 [etc.] subfield $w.
91 Parameter: control number string.
92 Assumes LOC convention: (OrgCode)recordNumber.
93 If OrgCode is not present, return full string.
94 Additionally, handle various brackets/parentheses. Chop leading and trailing spaces.
96 <xsl:template name="extractControlNumber">
97 <xsl:param name="subfieldW"/>
98 <xsl:variable name="tranW" select="translate($subfieldW,']})>','))))')"/>
100 <xsl:when test="contains($tranW,')')">
101 <xsl:value-of select="normalize-space(translate(substring-after($tranW,')'),'[]{}()<>',''))"/>
104 <xsl:value-of select="normalize-space($subfieldW)"/>
109 <!-- Function m880Select: Display Alternate Graphic Representation (MARC 880) for selected latin "base"tags
110 - should be called immediately before the corresonding latin tags are processed
111 - tags in right-to-left languages are displayed floating right
113 + basetags: display these tags if found in linkage section ( subfield 6) of tag 880
114 + codes: display these subfields codes
116 - class: wrap output in <span class="$class">...</span>
117 - label: prefix each(!) tag with label $label
118 - bibno: link to biblionumber $bibno
119 - 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.
121 - displays every field on a separate line (to switch between rtl and ltr)
123 (!) output might be empty
125 <xsl:template name="m880Select">
126 <xsl:param name="basetags"/> <!-- e.g. 100,700,110,710 -->
127 <xsl:param name="codes"/> <!-- e.g. abc -->
128 <xsl:param name="class"/> <!-- e.g. results_summary -->
129 <xsl:param name="label"/> <!-- e.g. Edition -->
130 <xsl:param name="bibno"/>
131 <xsl:param name="index"/> <!-- e.g. au -->
132 <xsl:param name="UseAuthoritiesForTracings"/>
134 <xsl:for-each select="marc:datafield[@tag=880]">
135 <xsl:variable name="code6" select="marc:subfield[@code=6]"/>
136 <xsl:if test="contains(string($basetags), substring($code6,1,3))">
139 <xsl:when test="boolean($class) and substring($code6,string-length($code6)-1,2) ='/r'">
140 <xsl:attribute name="class"><xsl:value-of select="$class"/> m880</xsl:attribute>
141 <xsl:attribute name="dir">rtl</xsl:attribute>
143 <xsl:when test="boolean($class)">
144 <xsl:attribute name="class"><xsl:value-of select="$class"/></xsl:attribute>
145 <xsl:attribute name="style">display:block; </xsl:attribute>
147 <xsl:when test="substring($code6,string-length($code6)-1,2) ='/r'">
148 <xsl:attribute name="class"><xsl:value-of select="$class"/> m880</xsl:attribute>
151 <xsl:if test="boolean($label)">
153 <xsl:value-of select="$label"/>
156 <xsl:variable name="str">
157 <xsl:for-each select="marc:subfield">
158 <xsl:if test="contains($codes, @code)">
159 <xsl:value-of select="text()"/>
160 <xsl:text> </xsl:text>
165 <xsl:when test="boolean($bibno)">
167 <xsl:attribute name="href">/cgi-bin/koha/opac-detail.pl?biblionumber=<xsl:value-of select="$bibno"/></xsl:attribute>
168 <xsl:value-of select="$str"/>
171 <xsl:when test="boolean($index) and boolean(marc:subfield[@code=9]) and $UseAuthoritiesForTracings='1'">
173 <xsl:attribute name="href">/cgi-bin/koha/opac-search.pl?q=an:<xsl:value-of select="marc:subfield[@code=9]"/></xsl:attribute>
174 <xsl:value-of select="$str"/>
177 <xsl:when test="boolean($index)">
179 <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>
180 <xsl:value-of select="$str"/>
184 <xsl:value-of select="$str"/>
195 <!-- Stylus Studio meta-information - (c)1998-2002 eXcelon Corp.
197 <scenarios/><MapperInfo srcSchemaPath="" srcSchemaRoot="" srcSchemaPathIsRelative="yes" srcSchemaInterpretAsXML="no" destSchemaPath="" destSchemaRoot="" destSchemaPathIsRelative="yes" destSchemaInterpretAsXML="no"/>