Fixing bug #761: quick tests wipe out the use attribute section.
[irspy-moved-to-github.git] / xsl / irspy2zeerex.xsl
1 <?xml version="1.0"?>
2 <!--
3     $Id: irspy2zeerex.xsl,v 1.13 2006-12-11 11:01:14 sondberg Exp $
4
5     This stylesheet is used by IRSpy to map the internal mixed Zeerex/IRSpy
6     record format into the Zeerex record which we store.
7
8 -->
9 <xsl:stylesheet
10     xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
11     xmlns:irspy="http://indexdata.com/irspy/1.0"
12     xmlns="http://explain.z3950.org/dtd/2.0/"
13     xmlns:explain="http://explain.z3950.org/dtd/2.0/"
14     exclude-result-prefixes="irspy explain"
15     version="1.0">
16
17   <xsl:output indent="yes"
18       method="xml"
19       version="1.0"
20       encoding="UTF-8"/>
21
22   <xsl:strip-space elements="*"/>
23
24   <xsl:variable name="old_indexes" select="/*/explain:indexInfo/explain:index"/>
25   <xsl:variable name="use_attr_names" select="document('use-attr-names.xml')"/>
26
27
28   <xsl:template match="/*">
29     <explain>
30       <xsl:call-template name="insert-zeerexBase"/>
31       <xsl:call-template name="insert-indexInfo"/>
32       <xsl:call-template name="insert-recordInfo"/>
33       <xsl:call-template name="insert-configInfo"/>
34       <xsl:call-template name="insert-irspySection"/>
35     </explain>
36   </xsl:template>
37
38
39   <xsl:template name="insert-zeerexBase">
40     <xsl:copy-of select="explain:serverInfo"/>
41     <xsl:copy-of select="explain:databaseInfo"/>
42     <metaInfo>
43       <dateModified><xsl:value-of
44                     select="/*/irspy:status/*[last()]"/></dateModified>
45     </metaInfo>
46   </xsl:template>
47
48
49   <xsl:template name="insert-indexInfo">
50     <indexInfo>
51       <xsl:choose>
52
53         <!-- Check that search was actually probed -->
54         <xsl:when test="/*/irspy:status/irspy:search">
55           <xsl:for-each select="/*/irspy:status/irspy:search">
56             <xsl:variable name="set" select="@set"/>
57             <xsl:variable name="ap" select="@ap"/>
58             <xsl:variable name="old"
59                 select="$old_indexes[explain:map/explain:attr/@set = $set and
60                                      explain:map/explain:attr/text() = $ap]"/>
61             <xsl:choose>
62               <xsl:when test="$old">
63                 <xsl:call-template name="insert-index-section">
64                   <xsl:with-param name="title" select="$old/explain:title"/>
65                 </xsl:call-template>
66               </xsl:when>
67               <xsl:otherwise>
68                 <xsl:call-template name="insert-index-section"/>
69               </xsl:otherwise>
70             </xsl:choose>
71           </xsl:for-each>
72         </xsl:when>
73
74         <!-- If not, insert what we already had... -->
75         <xsl:otherwise>
76           <xsl:copy-of select="explain:indexInfo/*"/>
77         </xsl:otherwise>
78       </xsl:choose>
79     </indexInfo>
80   </xsl:template>
81
82
83   <xsl:template name="insert-recordInfo">
84     <recordInfo>
85       <xsl:choose>
86
87         <!-- Did we actually probe record syntaxes? -->
88         <xsl:when test="/*/irspy:status/irspy:record">
89           <xsl:for-each select="/*/irspy:status/irspy:record_fetch[@ok = 1]">
90             <recordSyntax name="{@syntax}">
91               <elementSet name="F"/> <!-- FIXME: This should be probed too -->
92             </recordSyntax>
93           </xsl:for-each>
94         </xsl:when>
95
96         <!-- If not, use the existing test report... -->
97         <xsl:otherwise>
98           <xsl:copy-of select="explain:recordInfo/*"/>
99         </xsl:otherwise>
100       </xsl:choose>
101     </recordInfo>
102   </xsl:template>
103
104
105   <xsl:template name="insert-configInfo">
106     <configInfo>
107       <xsl:choose>
108         <xsl:when test="/*/irspy:status/irspy:init_opt">
109           <xsl:for-each select="/*/irspy:status/irspy:init_opt">
110             <supports type="z3950_{@option}">1</supports>
111           </xsl:for-each>
112         </xsl:when>
113         <xsl:otherwise>
114           <xsl:copy-of select="explain:configInfo/*"/>
115         </xsl:otherwise>
116       </xsl:choose>
117     </configInfo>
118   </xsl:template>
119
120
121   <!-- 
122        Here we list the bits and pieces of the irspy:status element which we
123        want to keep in the persistent version of the zeerex record.
124        Simply add "| irspy:xxx" to the select attribute.
125   -->
126   <xsl:template name="insert-irspySection">
127     <irspy:status>
128       <xsl:for-each select="*/irspy:probe   |
129                             */irspy:boolean |
130                             */irspy:named_resultset |
131                             */irspy:explain">
132         <xsl:copy-of select="."/>
133       </xsl:for-each>
134     </irspy:status>
135   </xsl:template>
136
137   
138   <xsl:template match="node() | @*">
139     <xsl:copy>
140       <xsl:apply-templates select="@* | node()"/>
141     </xsl:copy>
142   </xsl:template>
143
144
145   <xsl:template name="insert-index-section">
146     <xsl:param name="update" select="."/>
147     <xsl:param name="title">
148       <xsl:call-template name="insert-index-title">
149         <xsl:with-param name="update" select="$update"/>
150       </xsl:call-template>
151     </xsl:param>
152
153     <index>
154       <xsl:attribute name="search">
155         <xsl:choose>
156           <xsl:when test="$update/@ok = 1">true</xsl:when>
157           <xsl:otherwise>false</xsl:otherwise>
158         </xsl:choose>
159       </xsl:attribute>
160       <title primary="true" lang="en">
161         <xsl:value-of select="$title"/>
162       </title>
163       <map primary="true">
164         <attr type="1" set="{$update/@set}">
165           <xsl:value-of select="$update/@ap"/>
166         </attr>
167       </map>
168     </index>
169   </xsl:template>
170
171
172   <xsl:template name="insert-index-title">
173     <xsl:param name="update"/>
174     <xsl:variable name="name"
175                 select="$use_attr_names/*/map[@attr = $update/@ap and
176                                               @set = $update/@set]/@name"/>
177
178     <xsl:choose>
179       <xsl:when test="string-length($name) &gt; 0"><xsl:value-of
180                                             select="$name"/></xsl:when>
181       <xsl:otherwise><xsl:value-of select="$update/@ap"/></xsl:otherwise>
182     </xsl:choose>
183   </xsl:template>
184
185
186   <xsl:template match="*"/>
187
188 </xsl:stylesheet>