Merge remote branch 'kc/new/bug_5693' into kcmaster
[koha.git] / koha-tmpl / intranet-tmpl / prog / en / xslt / MARC21slimUtils.xsl
1 <?xml version='1.0'?>
2 <xsl:stylesheet version="1.0" xmlns:marc="http://www.loc.gov/MARC21/slim" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
3         <xsl:template name="datafield">
4                 <xsl:param name="tag"/>
5                 <xsl:param name="ind1"><xsl:text> </xsl:text></xsl:param>
6                 <xsl:param name="ind2"><xsl:text> </xsl:text></xsl:param>
7                 <xsl:param name="subfields"/>
8                 <xsl:element name="datafield">
9                         <xsl:attribute name="tag">
10                                 <xsl:value-of select="$tag"/>
11                         </xsl:attribute>
12                         <xsl:attribute name="ind1">
13                                 <xsl:value-of select="$ind1"/>
14                         </xsl:attribute>
15                         <xsl:attribute name="ind2">
16                                 <xsl:value-of select="$ind2"/>
17                         </xsl:attribute>
18                         <xsl:copy-of select="$subfields"/>
19                 </xsl:element>
20         </xsl:template>
21
22         <xsl:template name="subfieldSelect">
23                 <xsl:param name="codes"/>
24                 <xsl:param name="delimeter"><xsl:text> </xsl:text></xsl:param>
25                 <xsl:param name="subdivCodes"/>
26                 <xsl:param name="subdivDelimiter"/>
27                 <xsl:variable name="str">
28                         <xsl:for-each select="marc:subfield">
29                                 <xsl:if test="contains($codes, @code)">
30                     <xsl:if test="contains($subdivCodes, @code)">
31                         <xsl:value-of select="$subdivDelimiter"/>
32                     </xsl:if>
33                                         <xsl:value-of select="text()"/><xsl:value-of select="$delimeter"/>
34                                 </xsl:if>
35                         </xsl:for-each>
36                 </xsl:variable>
37                 <xsl:value-of select="substring($str,1,string-length($str)-string-length($delimeter))"/>
38         </xsl:template>
39
40         <xsl:template name="buildSpaces">
41                 <xsl:param name="spaces"/>
42                 <xsl:param name="char"><xsl:text> </xsl:text></xsl:param>
43                 <xsl:if test="$spaces>0">
44                         <xsl:value-of select="$char"/>
45                         <xsl:call-template name="buildSpaces">
46                                 <xsl:with-param name="spaces" select="$spaces - 1"/>
47                                 <xsl:with-param name="char" select="$char"/>
48                         </xsl:call-template>
49                 </xsl:if>
50         </xsl:template>
51
52         <xsl:template name="chopPunctuation">
53                 <xsl:param name="chopString"/>
54                 <xsl:variable name="length" select="string-length($chopString)"/>
55                 <xsl:choose>
56                         <xsl:when test="$length=0"/>
57                         <xsl:when test="contains('.:,;/ ', substring($chopString,$length,1))">
58                                 <xsl:call-template name="chopPunctuation">
59                                         <xsl:with-param name="chopString" select="substring($chopString,1,$length - 1)"/>
60                                 </xsl:call-template>
61                         </xsl:when>
62                         <xsl:when test="not($chopString)"/>
63                         <xsl:otherwise><xsl:value-of select="$chopString"/></xsl:otherwise>
64                 </xsl:choose>
65 <xsl:text> </xsl:text>
66         </xsl:template>
67
68
69     <!-- Function m880Select:  Display Alternate Graphic Representation (MARC 880) for selected latin "base"tags
70         - should be called immediately before the corresonding latin tags are processed 
71         - tags in right-to-left languages are displayed floating right
72         * Parameter:
73            + basetags: display these tags if found in linkage section ( subfield 6) of tag 880
74            + codes: display these subfields codes
75         * Options: 
76             - class: wrap output in <span class="$class">...</span>
77             - label: prefix each(!) tag with label $label
78             - bibno: link to biblionumber $bibno
79             - 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.
80          * Limitations:
81             - displays every field on a separate line (to switch between rtl and ltr)
82          * Pitfalls:
83            (!) output might be empty
84     -->
85     <xsl:template name="m880Select">
86          <xsl:param name="basetags"/> <!-- e.g.  100,700,110,710 -->
87         <xsl:param name="codes"/> <!-- e.g. abc  -->
88         <xsl:param name="class"/> <!-- e.g. results_summary -->
89         <xsl:param name="label"/> <!-- e.g.  Edition -->
90         <xsl:param name="bibno"/>
91         <xsl:param name="index"/> <!-- e.g.  au -->
92
93         <xsl:for-each select="marc:datafield[@tag=880]">
94             <xsl:variable name="code6" select="marc:subfield[@code=6]"/>
95             <xsl:if test="contains(string($basetags), substring($code6,1,3))">
96                 <span>
97                     <xsl:if test="boolean($class)">
98                         <xsl:attribute name="class"><xsl:value-of select="$class"/></xsl:attribute>
99                     </xsl:if>
100                     <xsl:choose>
101                         <!-- display right-to-left tags floating right of their left-to-right counterparts -->
102                         <xsl:when test="substring($code6,string-length($code6)-1,2) ='/r'">
103                             <xsl:attribute name="style">display:block; text-align:right; float:right; width:50%; padding-left:20px</xsl:attribute>
104                             <xsl:attribute name="dir">rtl</xsl:attribute>
105                         </xsl:when>
106                         <xsl:otherwise>
107                             <xsl:attribute name="style">display:block; </xsl:attribute>
108                         </xsl:otherwise>
109                     </xsl:choose>
110                     <xsl:if test="boolean($label)">
111                         <span class="label">
112                             <xsl:value-of select="$label"/>
113                         </span>
114                     </xsl:if>
115                     <xsl:variable name="str">
116                         <xsl:for-each select="marc:subfield">
117                             <xsl:if test="contains($codes, @code)">
118                                 <xsl:value-of select="text()"/>
119                                 <xsl:text> </xsl:text>
120                             </xsl:if>
121                         </xsl:for-each>
122                     </xsl:variable>
123                     <xsl:choose>
124                         <xsl:when test="boolean($bibno)">
125                             <a>
126                                 <xsl:attribute name="href">/cgi-bin/koha/opac-detail.pl?biblionumber=<xsl:value-of  select="$bibno"/></xsl:attribute>
127                                 <xsl:value-of select="$str"/>
128                             </a>
129                         </xsl:when>
130                        <xsl:when test="boolean($index) and boolean(marc:subfield[@code=9]) and $UseAuthoritiesForTracings='1'">
131                             <a>
132                                 <xsl:attribute name="href">/cgi-bin/koha/opac-search.pl?q=an:<xsl:value-of  select="marc:subfield[@code=9]"/></xsl:attribute>
133                                   <xsl:value-of select="$str"/>
134                             </a>
135                         </xsl:when>
136                         <xsl:when test="boolean($index)">
137                             <a>
138                                 <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>
139                                 <xsl:value-of select="$str"/>
140                             </a>
141                         </xsl:when>
142                         <xsl:otherwise>
143                             <xsl:value-of select="$str"/>
144                         </xsl:otherwise>
145                     </xsl:choose>
146                 </span>
147             </xsl:if>
148         </xsl:for-each>
149
150     </xsl:template>
151
152 </xsl:stylesheet>
153
154 <!-- Stylus Studio meta-information - (c)1998-2002 eXcelon Corp.
155 <metaInformation>
156 <scenarios/><MapperInfo srcSchemaPath="" srcSchemaRoot="" srcSchemaPathIsRelative="yes" srcSchemaInterpretAsXML="no" destSchemaPath="" destSchemaRoot="" destSchemaPathIsRelative="yes" destSchemaInterpretAsXML="no"/>
157 </metaInformation>
158 -->