index-processor.xqm 51 KB
Newer Older
Mathias Goebel's avatar
Mathias Goebel committed
1
xquery version "3.1";
Mathias Goebel's avatar
Mathias Goebel committed
2
3
(:~
: This module prepares the index html.
Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
4
5
6
: It is used for preparing a cached version and also called when preparing
: the index for a single notebook.
: The corresponding viewer module is `index-viewer.xqm`.
Mathias Goebel's avatar
Mathias Goebel committed
7
: @author Mathias Göbel
Mathias Goebel's avatar
Mathias Goebel committed
8
: @version 1.0.1
Mathias Goebel's avatar
Mathias Goebel committed
9
10
: @see https://fontane-nb.dariah.eu/register.html
:)
Mathias Goebel's avatar
Mathias Goebel committed
11
module namespace ixp="http://fontane-nb.dariah.eu/index-processor";
12
import module namespace code="http://bdn-edition.de/ns/code-view";
Mathias Goebel's avatar
minor    
Mathias Goebel committed
13
14
import module namespace config="http://textgrid.de/ns/SADE/config" at "../config/config.xqm";
import module namespace f-misc="http://fontane-nb.dariah.eu/ns/SADE/misc" at "misc.xqm";
Mathias Goebel's avatar
Mathias Goebel committed
15
16
import module namespace functx="http://www.functx.com";

17

18
declare namespace foaf="http://xmlns.com/foaf/0.1/";
19
declare namespace gndo="http://d-nb.info/standards/elementset/gnd#";
Mathias Goebel's avatar
Mathias Goebel committed
20
21
declare namespace ore="http://www.openarchives.org/ore/terms/";
declare namespace rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#";
Mathias Goebel's avatar
Mathias Goebel committed
22
declare namespace tei="http://www.tei-c.org/ns/1.0";
Mathias Goebel's avatar
Mathias Goebel committed
23
declare namespace tgmd="http://textgrid.info/namespaces/metadata/core/2010";
Mathias Goebel's avatar
Mathias Goebel committed
24
declare namespace xhtml="http://www.w3.org/1999/xhtml";
Mathias Goebel's avatar
Mathias Goebel committed
25

Mathias Goebel's avatar
Mathias Goebel committed
26
27
declare variable $ixp:metaCollection := '/db/sade-projects/textgrid/data/xml/meta/';
declare variable $ixp:targetStart := "http://textgridrep.org/textgrid:";
Mathias Goebel's avatar
Mathias Goebel committed
28
(: try/catch here, to pass the tests where no request object is available :)
Mathias Goebel's avatar
Mathias Goebel committed
29
30
31
32
declare variable $ixp:getEntity := try {request:get-parameter('e', '')} catch * {""};
declare variable $ixp:getIndex := try {request:get-parameter('i', '')} catch * {""};
declare variable $ixp:notebookParam := try {request:get-parameter('nb', '')} catch * {""};
declare variable $ixp:getNotebook := $ixp:targetStart || $ixp:notebookParam;
Mathias Goebel's avatar
Mathias Goebel committed
33

34
declare variable $ixp:dataCollection := collection($config:data-root || "/data");
Mathias Goebel's avatar
Mathias Goebel committed
35
declare variable $ixp:dataPath := '/db/sade-projects/textgrid/data/xml/data/';
Mathias Goebel's avatar
Mathias Goebel committed
36

Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
37
38
39
(:~
 : Helper function to collect all main nodes from the index files.
:)
Mathias Goebel's avatar
Mathias Goebel committed
40
declare function ixp:getNodes()
Mathias Goebel's avatar
   
Mathias Goebel committed
41
as array(*) {
Mathias Goebel's avatar
Mathias Goebel committed
42
43
44
45
let $agg := '253st.xml' (: TextGrid Aggregation containing all index files :)
let $uris := (doc('/db/sade-projects/textgrid/data/xml/agg/' || $agg)
          //ore:aggregates/substring-after(@rdf:resource, 'textgrid:')
        )[. != "25547"] (: omit the bibliography here :)
Mathias Goebel's avatar
Mathias Goebel committed
46
let $docs := $uris ! doc($ixp:dataPath || . || '.xml')
Mathias Goebel's avatar
Mathias Goebel committed
47

Mathias Goebel's avatar
   
Mathias Goebel committed
48
return
Mathias Goebel's avatar
Mathias Goebel committed
49
    [
Mathias Goebel's avatar
Mathias Goebel committed
50
    $docs//tei:body/tei:listEvent,
Mathias Goebel's avatar
Mathias Goebel committed
51
    $docs//tei:body/tei:listOrg,
Mathias Goebel's avatar
Mathias Goebel committed
52
53
54
55
    $docs//tei:body/tei:listPerson,
    $docs//tei:body/tei:listPlace,
    $docs//tei:body//tei:list[@type="works"],
    $docs//tei:body//tei:list[@type="periodicals"],
Mathias Goebel's avatar
   
Mathias Goebel committed
56
    $docs//tei:body//tei:list[@type="Fontane"]
Mathias Goebel's avatar
Mathias Goebel committed
57
    ]
Mathias Goebel's avatar
Mathias Goebel committed
58
59
60
};

(:~
Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
61
62
 : the list type an entity is listed in.
 : This is used when preparing the html resource name.
Mathias Goebel's avatar
Mathias Goebel committed
63
 : @param $entity On of tei:item, tei:place, tei:person, tei:gersonGrp,
Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
64
65
66
67
 : tei:event or tei:org
 : @return on of listEvent, listOrg, listPlace, listPerson, list-works,
 : list-Fontane, list-periodicals
 :)
Mathias Goebel's avatar
Mathias Goebel committed
68
declare function ixp:get-list-by-entity($entity as node()?)
Mathias Goebel's avatar
Mathias Goebel committed
69
70
71
72
as xs:string {
switch ( $entity/local-name() )
    case "event" return "listEvent"
    case "org" return "listOrg"
Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
73
    case "person" return
Mathias Goebel's avatar
Mathias Goebel committed
74
        if($entity/ancestor::tei:item)
Mathias Goebel's avatar
Mathias Goebel committed
75
        then ixp:get-list-by-entity( $entity/ancestor::tei:item[last()] )
Mathias Goebel's avatar
Mathias Goebel committed
76
        else "listPerson"
Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
77
    case "personGrp" return
Mathias Goebel's avatar
Mathias Goebel committed
78
        if($entity/ancestor::tei:item)
Mathias Goebel's avatar
Mathias Goebel committed
79
        then ixp:get-list-by-entity( $entity/ancestor::tei:item[last()] )
Mathias Goebel's avatar
Mathias Goebel committed
80
81
82
83
84
85
86
87
        else "listPerson"
    case "place" return "listPlace"
    default return
        let $list := ($entity/ancestor::tei:list[@type])[last()]
        return
            $list/local-name() || "-" || string($list/@type)
};

Mathias Goebel's avatar
Mathias Goebel committed
88
89
90
91
92
(:~
 : Returns the prefix used in the TEI documents to refere to a index file.
 : @param $entity an element from the index (e.g. tei:person)
 :)
declare function ixp:get-prefix-by-entity($entity as element(*))
Mathias Goebel's avatar
Mathias Goebel committed
93
as xs:string {
Mathias Goebel's avatar
Mathias Goebel committed
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
  switch($entity/base-uri())
  case "/db/sade-projects/textgrid/data/xml/data/253t0.xml"
    return "eve"
  case "/db/sade-projects/textgrid/data/xml/data/253t2.xml"
    return "plc"
  case "/db/sade-projects/textgrid/data/xml/data/253t1.xml"
    return "org"
  case "/db/sade-projects/textgrid/data/xml/data/253sx.xml"
    return "psn"
  case "/db/sade-projects/textgrid/data/xml/data/253t3.xml"
    return "wrk"
  default
    return error(QName("FONTANE", "INDEX2"), "entity resource is not considered to belong to the index: " || $entity/base-uri())
};

declare function ixp:get-icon-by-entity($entity as element(*))
Mathias Goebel's avatar
Mathias Goebel committed
110
111
112
113
114
115
116
117
118
119
120
121
as xs:string {
switch ( $entity/local-name() )
    case "event" return "fa-flag"
    case "org" return "fa-university"
    case "person" return "fa-user"
    case "personGrp" return "fa-users"
    case "place" return "fa-map-marker"
    case "item" return "fa-book"
    default return
        "fa-exclamation-triangle"
};

Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
122
123
124
(:~
 : Helper function to use an efficient map data type to store the model.
 :)
Mathias Goebel's avatar
Mathias Goebel committed
125
declare function ixp:main-map($index as xs:string+)
Mathias Goebel's avatar
Mathias Goebel committed
126
as map() {
Mathias Goebel's avatar
Mathias Goebel committed
127
let $nodes := ixp:getNodes()
Mathias Goebel's avatar
Mathias Goebel committed
128
return
Mathias Goebel's avatar
Mathias Goebel committed
129
map:new(
Mathias Goebel's avatar
Mathias Goebel committed
130
131
    for $n in 1 to array:size($nodes)
    let $node := $nodes?($n)
Mathias Goebel's avatar
Mathias Goebel committed
132
133
    let $localId := string-join(($node/local-name(), $node/@type), "-")
    let $content :=
Mathias Goebel's avatar
Mathias Goebel committed
134
        for $node in $node return
Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
135
        switch ($node/local-name())
Mathias Goebel's avatar
   
Mathias Goebel committed
136
            case "listEvent" return
Mathias Goebel's avatar
Mathias Goebel committed
137
                if($index = "listEvent") then ixp:events($node) else ()
Mathias Goebel's avatar
   
Mathias Goebel committed
138
            case "listOrg" return
Mathias Goebel's avatar
Mathias Goebel committed
139
                if($index = "listOrg") then ixp:orgs($node) else ()
Mathias Goebel's avatar
   
Mathias Goebel committed
140
            case "listPerson" return
Mathias Goebel's avatar
Mathias Goebel committed
141
                if($index = "listPerson") then ixp:persons($node) else ()
Mathias Goebel's avatar
   
Mathias Goebel committed
142
            case "listPlace" return
Mathias Goebel's avatar
Mathias Goebel committed
143
                if($index = "listPlace") then ixp:places($node) else ()
Mathias Goebel's avatar
   
Mathias Goebel committed
144
            case "list" return
Mathias Goebel's avatar
Mathias Goebel committed
145
                ixp:works($node)
Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
146
            default return error(QName("FONTANE", "INDEX1"), "unknown node-name: " || $node/local-name())
Mathias Goebel's avatar
Mathias Goebel committed
147
148
149
150
    return
        map:entry(
            $localId,
            map:new((
Mathias Goebel's avatar
Mathias Goebel committed
151
                map:entry("content", $content)
Mathias Goebel's avatar
Mathias Goebel committed
152
153
154
155
156
            ))
        )
    )
};

Mathias Goebel's avatar
Mathias Goebel committed
157
declare function ixp:main-map()
Mathias Goebel's avatar
   
Mathias Goebel committed
158
as map() {
Mathias Goebel's avatar
Mathias Goebel committed
159
    ixp:main-map(("listEvent", "listOrg", "listPerson", "listPlace", "list-"))
Mathias Goebel's avatar
   
Mathias Goebel committed
160
161
};

Mathias Goebel's avatar
Mathias Goebel committed
162
163
164
165
(:~
 : Main function to create a complete index, contains some template specific
 : code.
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
166
declare function ixp:register()
Mathias Goebel's avatar
Mathias Goebel committed
167
as element(xhtml:div)+ {
Mathias Goebel's avatar
Mathias Goebel committed
168
let $map := ixp:main-map()
Mathias Goebel's avatar
Mathias Goebel committed
169
return
Mathias Goebel's avatar
   
Mathias Goebel committed
170
    $map?*?("content")
Mathias Goebel's avatar
Mathias Goebel committed
171
};
Mathias Goebel's avatar
Mathias Goebel committed
172

Mathias Goebel's avatar
   
Mathias Goebel committed
173
174
175
176
(:~
 : Main function to create a complete index, contains some template specific
 : code.
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
177
declare function ixp:register($index as xs:string?)
Mathias Goebel's avatar
   
Mathias Goebel committed
178
as element(xhtml:div)+ {
Mathias Goebel's avatar
Mathias Goebel committed
179
let $map := ixp:main-map($index)
Mathias Goebel's avatar
   
Mathias Goebel committed
180
181
182
return
    $map?*?("content")
};
183

Mathias Goebel's avatar
Mathias Goebel committed
184
185
(:~
 : helper function to get the tgmd:title by URI
Mathias Goebel's avatar
Mathias Goebel committed
186
187
 : @param $uri The textgrid-URI without prefix
 : @TODO may this function should be placed in a generic module
Mathias Goebel's avatar
Mathias Goebel committed
188
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
189
declare function ixp:resolve-name($uri as xs:string)
Mathias Goebel's avatar
Mathias Goebel committed
190
as xs:string {
Mathias Goebel's avatar
Mathias Goebel committed
191
    let $title := string(doc($ixp:metaCollection || $uri || '.xml')//tgmd:title)
Mathias Goebel's avatar
Mathias Goebel committed
192
    return
Mathias Goebel's avatar
   
Mathias Goebel committed
193
194
195
        if($title = "")
        then $uri
        else $title
Mathias Goebel's avatar
Mathias Goebel committed
196
197
198
};

(:~
Mathias Goebel's avatar
Mathias Goebel committed
199
 : tests for a given ID to appear in all @xml:id in a given node
Mathias Goebel's avatar
Mathias Goebel committed
200
201
 : @param $id The id to search for
 : @param $node The document or xml fragment
Mathias Goebel's avatar
Mathias Goebel committed
202
 : :)
Mathias Goebel's avatar
Mathias Goebel committed
203
declare function ixp:check-active($id as xs:string, $node as element(*)+)
204
as xs:boolean {
205
    exists($node/id($id))
Mathias Goebel's avatar
Mathias Goebel committed
206
207
};

Mathias Goebel's avatar
Mathias Goebel committed
208
209
(:~
 : checks if a target entity is in the current node set
Mathias Goebel's avatar
Mathias Goebel committed
210
 : @param $node Any node set
Mathias Goebel's avatar
Mathias Goebel committed
211
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
212
declare function ixp:check-entity($node as node()+)
Mathias Goebel's avatar
Mathias Goebel committed
213
as xs:string? {
Mathias Goebel's avatar
Mathias Goebel committed
214
    if(ixp:check-active($ixp:getEntity, $node))
Mathias Goebel's avatar
Mathias Goebel committed
215
216
217
218
    then "active"
    else ()
};

219
220
(:~
 : creates a generic xhtml:class attribute mandatory for every entry
Mathias Goebel's avatar
Mathias Goebel committed
221
 : @param $id ID to check for
222
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
223
declare function ixp:entry-class($id as attribute(xml:id))
Mathias Goebel's avatar
Mathias Goebel committed
224
as attribute(class)? {
225
226
    attribute class {
        "registerEintrag",
Mathias Goebel's avatar
Mathias Goebel committed
227
        $id/parent::*/local-name()
228
229
230
231
    }
};

(:~
Mathias Goebel's avatar
Mathias Goebel committed
232
 : creates a list for label or name
Mathias Goebel's avatar
Mathias Goebel committed
233
 : @param $variant A tei element containing any secondary label or name variant
Mathias Goebel's avatar
Mathias Goebel committed
234
 :)
Mathias Goebel's avatar
Mathias Goebel committed
235
declare function ixp:variant($variant as element()*)
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
as element(xhtml:li)? {
if(not(exists($variant))) then () else
    element xhtml:li {
        attribute class { "variant" },
        "Im Text: ",
        element xhtml:ul {
            for $var at $pos in $variant
            return
                element xhtml:li {
                    string($var) || (if($pos = count($variant)) then () else ",")
                }
        }
    }
};

(:~
252
 : transforms tei:idno to xhtml:li
Mathias Goebel's avatar
Mathias Goebel committed
253
254
 : @param $idnos TEI element (idno and label) with reference to authority file
 : @TODO Declare element(tei:idno), currently wrong encoding with tei:label
255
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
256
declare function ixp:idno($idnos as element()*)
Mathias Goebel's avatar
Mathias Goebel committed
257
as element(xhtml:li)* {
258
259
for $idno in $idnos
let $str := string($idno)
Mathias Goebel's avatar
Mathias Goebel committed
260
let $wikipedia :=
Mathias Goebel's avatar
Mathias Goebel committed
261
262
  if($idno/@type = "GND") then ixp:gnd-wikipedia($str) else
  if($idno/@type = "Wikidata") then ixp:wikidata-wikipedia($str) else ()
263
let $deutscheBiographie := collection($config:data-root)/id( "gnd"||$str )
264
265
266
267
268
269
270
271
return
    element xhtml:li {
        attribute class {"idno"},
        string($idno/@type) || ": " || $str,
        " ",
        element xhtml:a {
            attribute href { string($idno/@xml:base) || $str },
            <xhtml:i title="Link zu externer Ressource" class="fa fa-external-link"></xhtml:i>
272
        },
Mathias Goebel's avatar
Mathias Goebel committed
273
        (: Deutsche Biografie :)
274
        if($idno/parent::tei:person and $deutscheBiographie)
275
276
        then
          (",&#160;",
277
            let $url := string($deutscheBiographie/@db-url)
278
279
280
281
282
            return
              element xhtml:a {
                attribute title {
                    if(ends-with($url, "adbcontent"))
                    then "ADB-Eintrag basierend auf GND"
Mathias Goebel's avatar
Mathias Goebel committed
283
284
285
                    else if (ends-with($url, "ndbcontent"))
                    then "NDB-Eintrag basierend auf GND"
                    else "Eintrag in Deutscher Biografie basierend auf GND"
286
287
288
289
                },
                attribute href {$url},
                if(ends-with($url, "adbcontent"))
                then "ADB"
Mathias Goebel's avatar
Mathias Goebel committed
290
291
292
                else if (ends-with($url, "ndbcontent"))
                then "NDB"
                else "DB"
293
            })
294
        else (),
295
        if(string($wikipedia) = "") then ()
296
297
298
299
300
301
        else (",&#160;",
            element xhtml:a {
                attribute title {"Link zu Wikipedia basierend auf GND"},
                attribute href { $wikipedia },
                <i class="fa fa-wikipedia-w" aria-hidden="true"></i>
            })
302
303
304
    }
};

Mathias Goebel's avatar
Mathias Goebel committed
305
declare function ixp:gnd-wikipedia($gndid-orig as xs:string)
306
307
308
309
310
311
312
313
314
315
316
317
318
as xs:string?{
let $gndid := replace($gndid-orig, "[^A-Za-z0-9\-]", "+")
let $gndCollection := "/db/sade-projects/textgrid/data/xml/gnd/"
let $filename := $gndid || ".xml"
let $docname := $gndCollection || $filename
let $url := "https://d-nb.info/gnd/" || $gndid || "/about/lds.rdf"
let $persist := false()
let $request-headers := ()
let $response :=
    if( doc-available( $docname ))
    then doc( $docname )
    else
        httpclient:get(xs:anyURI($url), $persist, $request-headers)
Mathias Goebel's avatar
Mathias Goebel committed
319
320
let $store :=
    if(config:get("sade.develop") = "true")
Mathias Goebel's avatar
Mathias Goebel committed
321
322
323
324
    then
        if(doc-available($gndCollection || $filename))
        then $gndCollection || $filename
        else
Mathias Goebel's avatar
Mathias Goebel committed
325
326
327
328
329
            try {
                xmldb:store($gndCollection, $filename, $response)
            } catch * {
                ()
            }
Mathias Goebel's avatar
Mathias Goebel committed
330
    else ()
331
332
333
334
return
    string($response//foaf:page/@rdf:resource)
};

Mathias Goebel's avatar
Mathias Goebel committed
335
declare function ixp:wikidata-wikipedia($wikidata-id as xs:string)
Mathias Goebel's avatar
Mathias Goebel committed
336
337
338
339
340
341
342
343
344
345
346
347
348
349
as xs:string?{
  let $query := escape-uri("SELECT ?s WHERE{?s schema:about wd:" || $wikidata-id || ".}", true())
  let $url := "https://query.wikidata.org/sparql?query=" || $query
  let $persist := false()
  let $request-headers := ()
  let $uris := httpclient:get(xs:anyURI($url), $persist, $request-headers)//*:uri/string()
  return (
    $uris[matches(., "de\.wikipedia")],
    $uris[matches(., "en\.wikipedia")],
    $uris[matches(., "fr\.wikipedia")],
    $uris[matches(., "it\.wikipedia")],
    $uris[1])[1]
};

350
351
352
(:~
 : transformation from tei:note to xhtml:li
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
353
declare function ixp:note($note as element(tei:note)*)
Mathias Goebel's avatar
Mathias Goebel committed
354
as element(xhtml:li)* {
355
356
357
358
for $n in $note
    return
        element xhtml:li {
            attribute class { "tei-note" },
Mathias Goebel's avatar
Mathias Goebel committed
359
360
361
362
363
            $n/text(),
            for $ptr in $n/tei:ptr[@type = "Figurenlexikon"]
            return
                element xhtml:a {
                    attribute href { string($ptr/@target) },
364
365
                    attribute class { "figurenlexikon" },
                    string($ptr/@type)
Mathias Goebel's avatar
Mathias Goebel committed
366
                }
367
368
369
        }
};

370
371
372
(:~
 : creates a list of all creations or points to the creator of a work
 : :)
Mathias Goebel's avatar
Mathias Goebel committed
373
declare function ixp:creator($creators as element(tei:link)+)
374
as element(xhtml:li) {
375
376
377
378
379
380

if($creators[1]/parent::*/parent::tei:person)
then
    (: person item that is the creator :)
element xhtml:li {
    attribute class { "creator" },
Mathias Goebel's avatar
Mathias Goebel committed
381
    "",
382
    element xhtml:ul {
383
        attribute class {"workList"},
384
385
386
        for $creator in $creators
        let $target := $creator/@target => substring-before(" ")
        let $targetId := $target => substring-after(":")
Mathias Goebel's avatar
Mathias Goebel committed
387
        let $targetNode := $ixp:dataCollection/id($targetId)
388
389
390
391
392
393
        let $htmlResource :=
(: TODO remove condition_s_ for final production release :)
            if($targetNode)
            then
                if($targetNode[2])
                then "two entities with same ID: " || $targetId
Mathias Goebel's avatar
Mathias Goebel committed
394
                else ixp:get-list-by-entity( $targetNode )
395
396
397
            else "target-not-available"
        return
            element xhtml:li {
398
                attribute class {"item"},
399
                element xhtml:a {
400
                    attribute href { "register.html?e=" || string-join($targetId) },
401
402
403
                    if($targetNode[2])
                    then "two entities with same ID: " || $targetId
                    else string($targetNode/*[1])
404
                },
Mathias Goebel's avatar
fix    
Mathias Goebel committed
405
                text{ "&#8195;" },
406
407
408
409
410
411
412
                element xhtml:span {
                    attribute class { "load-entity" },
                    attribute data-load { $targetId },
                    element xhtml:i {
                        attribute class {"fa fa-plus-square-o"},
                        attribute aria-hidden {"true"}
                    }
413
414
415
416
417
418
                }
            }
    }
}
else
    (: work item with creator :)
419
420
element xhtml:li {
    attribute class { "creator" },
Mathias Goebel's avatar
Mathias Goebel committed
421
    "",
422
    element xhtml:ul {
Mathias Goebel's avatar
Mathias Goebel committed
423
        attribute class {"listPerson"},
424
425
        for $creator in $creators
        let $target := $creator/@target => substring-after(" ")
Mathias Goebel's avatar
Mathias Goebel committed
426
        let $targetId := $target => substring-after(":")
Mathias Goebel's avatar
Mathias Goebel committed
427
        let $targetNode := $ixp:dataCollection/id($targetId)
Mathias Goebel's avatar
   
Mathias Goebel committed
428
429
430
        let $htmlResource :=
(: TODO remove condition for final production release :)
            if($targetNode)
431
432
433
            then
                if($targetNode[2])
                then "two entities with same ID: " || $targetId
Mathias Goebel's avatar
Mathias Goebel committed
434
                else ixp:get-list-by-entity( $targetNode )
Mathias Goebel's avatar
   
Mathias Goebel committed
435
            else "target-not-available"
436
437
        return
            element xhtml:li {
Mathias Goebel's avatar
Mathias Goebel committed
438
                attribute class {"person"},
439
                element xhtml:a {
440
                    attribute href { "register.html?e=" || string-join($targetId) },
441
442
443
                    if($targetNode[2])
                    then "two entities with same ID: " || $targetId
                    else string($targetNode/*[1])
444
445
446
447
448
449
                }
            }
    }
}
};

Mathias Goebel's avatar
Mathias Goebel committed
450
declare function ixp:has-former-or-current-location($links as element(tei:link)*)
451
452
as element(xhtml:li)* {
for $link in $links
Mathias Goebel's avatar
Mathias Goebel committed
453
454
455
456
457
458
459
let $thisId := string($link/parent::tei:linkGrp/parent::tei:*/@xml:id)
let $id := ($link/@target => replace("\w{3}:|#", "") => tokenize(" "))[. != ""][. != $thisId]
return
    if(count($id) != 1) then
        (update insert comment {"unable to parse target: "  || serialize($link)} following $link,
        update delete $link)
        else
Mathias Goebel's avatar
Mathias Goebel committed
460
let $targetNode := $ixp:dataCollection/id($id)
Mathias Goebel's avatar
Mathias Goebel committed
461
462
463
464
465
466
467
468
469
470
471
return
    if(count($targetNode) gt 1)
    then (update insert comment {"xml:id used multiple times. this occurence is removed. please check and reinsert item when xml:id is unique. "  || serialize($id[2])} following $id[2],
        update delete $id[2]
        )
    else if(count($targetNode) = 0)
    then
        (update insert comment {"ID " || $id || " not found: Please create an appropriate item. "  || serialize($link)} following $link,
        update delete $link
        )
    else
Mathias Goebel's avatar
Mathias Goebel committed
472
let $list := ixp:get-list-by-entity($targetNode)
473
474
475
476
return
    element xhtml:li {
        attribute class { "former-or-current-location" },
        element xhtml:a {
477
        attribute href { "register.html?e=" || $id },
478
479
        <xhtml:i class="fa fa-map-marker" aria-hidden="true"></xhtml:i>,
        "&#160;",
480
481
482
483
484
485
486
487
        $targetNode/*[1]/string(),
        let $ancestors := $targetNode/ancestor::tei:place
        for $parentPlace at $pos in $ancestors
        let $name := $parentPlace/*[1]/string()
        return
          ((if($pos = 1) then "(" else ", ") ||
          $name ||
          (if($pos = count($ancestors)) then ")" else ()))
488
489
490
491
        }
    }
};

492
493
494
(:~ renewed version of the linking function
 : generates a XHTML list with all links without using the tei:link[@corresp]
 : from the entity. it queries the database for what is really mentioned.
495
 : @version 2.0
496
 :)
Mathias Goebel's avatar
Mathias Goebel committed
497
declare function ixp:links($entity as element()) {
498
499
500
let $id := string($entity/@xml:id)
let $prefix := ixp:get-prefix-by-entity($entity)
let $reference := $prefix || ":" || $id
Mathias Goebel's avatar
Mathias Goebel committed
501
502
503
504
let $hits := $ixp:dataCollection//tei:rs
                [contains(@ref, $reference)]
                [not(@prev)]
                [@ref eq $reference]
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521

let $array :=
    array{
        for $hit in $hits
        let $base := $hit/base-uri()
        let $tguri := (substring-before($base, ".xml") => tokenize("/|\."))[last()]
        let $resolve := ixp:resolve-name($tguri)
        return
            map{
                "base": $base,
                "tguri" : $tguri,
                "title" : $resolve,
                "surface": $hit/ancestor::tei:surface[parent::tei:sourceDoc]/string(@n)
            }
    }
let $titles := $array?*?title => distinct-values()
let $countNotebooks := count($titles)
522
return
523
524
element xhtml:li {
    attribute class { "links" },
525
    if($countNotebooks lt 2) then 'In Notizbuch' else ('In den Notizbüchern ',
526
527
    <span style="color:gray">({$countNotebooks} Notizbücher, insgesamt {array:size($array)} Vorkommnisse)</span>),
    element xhtml:ul {
Mathias Goebel's avatar
Mathias Goebel committed
528
        (: main list :)
529
530
531
532
533
534
535
536
537
538
539
540
541
542
        for $title in $titles
        let $titleArray := $array?*[?title = $title]
        let $titleReadable := $title => replace("([A-E])0(\d)", "$1$2")
        let $tguri := $titleArray?tguri[1]
        order by $title
        return
        element xhtml:li {
            $titleReadable || ": ",
            element xhtml:ul {
                attribute class {"link-list-horizontal"},
                for $surface in distinct-values($titleArray?surface)
                let $count := $titleArray[?surface = $surface] => count()
                return
                    element xhtml:li {
543
544
                    element xhtml:a {
                        attribute href {
Mathias Goebel's avatar
Mathias Goebel committed
545
                            "edition.html?id=%2Fxml%2Fdata%2F" || $tguri || ".xml"
546
                            || "&amp;page=" || $surface
547
548
                            || "&amp;target=" || $id
                        },
549
                        ($surface),
550
551
552
553
                        if($count eq 1) then ()
                        else (" ", <xhtml:span title="Anzahl an Vorkommnissen auf dieser Seite">({$count})</xhtml:span>)
                    }
                }
554
            }
555
556
557
558
559
        }
    }
}
};

Mathias Goebel's avatar
Mathias Goebel committed
560
561
(:~
 : prepares a link to the current entry
Mathias Goebel's avatar
Mathias Goebel committed
562
 : @param $id The xml:id of the currently processed element
Mathias Goebel's avatar
Mathias Goebel committed
563
:)
Mathias Goebel's avatar
Mathias Goebel committed
564
declare function ixp:entry-link($id as attribute(xml:id))
Mathias Goebel's avatar
Mathias Goebel committed
565
566
567
568
569
as element(xhtml:span) {
    element xhtml:span {
        attribute class {"registerLink"},
        element xhtml:a {
            attribute href {
570
                "register.html?e=" || $id
Mathias Goebel's avatar
Mathias Goebel committed
571
572
573
574
575
576
                },
            <xhtml:i title="Link zu diesem Eintrag" class="fa fa-link"></xhtml:i>
        }
    }
};

Mathias Goebel's avatar
Mathias Goebel committed
577
578
(:~
 : creates a xhtml list item containing serialized code.
Mathias Goebel's avatar
Mathias Goebel committed
579
 : @param $node A single element
Mathias Goebel's avatar
Mathias Goebel committed
580
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
581
declare function ixp:li-code($node as element(*))
Mathias Goebel's avatar
Mathias Goebel committed
582
as element(xhtml:li) {
583
584
585
586
element xhtml:li {
    attribute class {"register-code"},
    element xhtml:span {
        attribute class {"registerCode"},
Mathias Goebel's avatar
Mathias Goebel committed
587
588
            <xhtml:i title="Zeige XML" class="fa fa-code"></xhtml:i>
    },
Mathias Goebel's avatar
minor    
Mathias Goebel committed
589
    if(config:get("sade.develop") = "true")
Mathias Goebel's avatar
Mathias Goebel committed
590
591
592
593
594
    then
        code:main($node) => functx:change-element-ns-deep("", "")
    else
        code:main($node, false(), "hljs-", true())
            => functx:change-element-ns-deep("", "")
Mathias Goebel's avatar
Mathias Goebel committed
595
}
Mathias Goebel's avatar
Mathias Goebel committed
596
597
};

598
599
(:~
 : generic function for entries with tei:note/tei:ptr.
Mathias Goebel's avatar
Mathias Goebel committed
600
 : @return Link to the corresponding index entry
601
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
602
declare function ixp:pointer($entry as element())
Mathias Goebel's avatar
Mathias Goebel committed
603
as element(xhtml:li) {
Mathias Goebel's avatar
Mathias Goebel committed
604
605
    let $labelMain := $entry/*[1]
    let $target := substring-after(($entry/tei:note/tei:ptr/@target), '#')
Mathias Goebel's avatar
Mathias Goebel committed
606
    let $targetNode := $ixp:dataCollection/id($target)
607
    return
Mathias Goebel's avatar
Mathias Goebel committed
608
        if(not($targetNode)) then <div>target not found</div> else
609
610
611
        element xhtml:li {
            attribute class {
                "registerEintrag",
Mathias Goebel's avatar
Mathias Goebel committed
612
                if( $entry >> $targetNode )
613
614
615
616
617
                then "up"
                else "down"
            },
            element xhtml:span {
                    attribute class { "label-main" },
Mathias Goebel's avatar
Mathias Goebel committed
618
                    $labelMain/text()
619
620
621
622
623
624
625
            },
            element xhtml:ul {
                element xhtml:li {
                attribute class { "pointer" },
                "siehe: ",
                    element xhtml:a {
                        attribute href { "?e=" || $target },
626
627
628
                        try {
                             string($targetNode/*[1])
                         } catch * {
Mathias Goebel's avatar
Mathias Goebel committed
629
                             (: TODO remove try catch when the data is better :)
630
631
                             "multiple entities found: " || string-join(($targetNode ! serialize(.)), " AND ")
                         }
632
633
634
635
636
                    }
                }
            }
        }
};
637

Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
638
639
640
(:
 : parses a tei:bibl and mainly prepares a list item with a link to the entity
 :)
Mathias Goebel's avatar
Mathias Goebel committed
641
declare function ixp:bibl($bibls as element(tei:bibl)*)
642
643
644
as element(xhtml:li)* {
for $bibl in $bibls
    let $biblId := $bibl/tei:ptr/@target => substring-after(":")
Mathias Goebel's avatar
Mathias Goebel committed
645
    let $targetNode := $ixp:dataCollection/id($biblId)[. instance of element(tei:bibl)]
646
647
648
649
650
651
652
    return
        element xhtml:li {
            attribute class { "bibl" },
            element xhtml:a {
            attribute href { "literaturvz.html?id=" || $biblId },
            <xhtml:i class="fa fa-book" aria-hidden="true"></xhtml:i>,
            "&#160;",
Mathias Goebel's avatar
Mathias Goebel committed
653
            $targetNode/tei:choice/tei:abbr/string() ||
654
655
656
657
658
659
660
            (if($bibl/tei:citedRange)
            then ":&#160;" || $bibl/tei:citedRange
            else ())
            }
        }
};

Mathias Goebel's avatar
Mathias Goebel committed
661
declare function ixp:get-gnd-data($url as xs:string)
662
663
664
665
666
667
668
669
as element(rdf:RDF){
httpclient:get(xs:anyURI($url || "/about/rdf"), false(), ())//rdf:RDF
};

(: ################################################### :)
(: ################################################### :)
(: ################################################### :)

Mathias Goebel's avatar
Mathias Goebel committed
670
671
(:~
 : parser for listEvents/event entities
Mathias Goebel's avatar
Mathias Goebel committed
672
 : @param $eventDoc The tei:listEvent containing all entries
Mathias Goebel's avatar
Mathias Goebel committed
673
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
674
declare function ixp:events($eventDoc as element(tei:listEvent))
675
as element(xhtml:div) {
Mathias Goebel's avatar
   
Mathias Goebel committed
676
<xhtml:div id="{ string-join(($eventDoc/local-name(), $eventDoc/@type), "-") }" class="tab-pane">
Mathias Goebel's avatar
Mathias Goebel committed
677
    <xhtml:div class="panel-group" aria-multiselectable="true" role="tablist">
678
679
    {for $eventList in $eventDoc/tei:listEvent
    return
Mathias Goebel's avatar
Mathias Goebel committed
680
681
        <xhtml:div class="panel panel-default">
            <xhtml:div class="panel-heading">
682
                <h4 class="panel-title">{$eventList/tei:head/text()}</h4>
Mathias Goebel's avatar
Mathias Goebel committed
683
684
            </xhtml:div>
            <xhtml:div class="panel-body">
Mathias Goebel's avatar
Mathias Goebel committed
685
                <ul class="listEvent">
686
{
Mathias Goebel's avatar
Mathias Goebel committed
687
if($ixp:getNotebook = $ixp:targetStart)
Mathias Goebel's avatar
Mathias Goebel committed
688
689
690
691
692
693
694
then
  for $event in $eventList/tei:event
  let $sort := string($event/*[1])
                => replace("ä", "ae")
                => replace("ö", "oe")
                => replace("ü", "ue")
  order by $sort
Mathias Goebel's avatar
Mathias Goebel committed
695
  return ixp:prepare-event($event)
Mathias Goebel's avatar
Mathias Goebel committed
696
697
else
  for $event in $eventList/tei:event[tei:linkGrp/tei:link
Mathias Goebel's avatar
Mathias Goebel committed
698
  [starts-with(@target, $ixp:getNotebook)]]
Mathias Goebel's avatar
Mathias Goebel committed
699
700
701
702
703
  let $sort := string($event/*[1])
                => replace("ä", "ae")
                => replace("ö", "oe")
                => replace("ü", "ue")
  order by $sort
Mathias Goebel's avatar
Mathias Goebel committed
704
  return ixp:prepare-event($event)
705
}
Mathias Goebel's avatar
Mathias Goebel committed
706
                </ul>
Mathias Goebel's avatar
Mathias Goebel committed
707
708
            </xhtml:div>
        </xhtml:div>
709
    }
Mathias Goebel's avatar
Mathias Goebel committed
710
711
    </xhtml:div>
</xhtml:div>
Mathias Goebel's avatar
Mathias Goebel committed
712
713
};

Mathias Goebel's avatar
Mathias Goebel committed
714
715
(:~
 : parser for listEvents/event entities
Mathias Goebel's avatar
Mathias Goebel committed
716
 : @param $eventDoc The tei:listEvent containing all entries
Mathias Goebel's avatar
Mathias Goebel committed
717
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
718
declare function ixp:events($eventDoc as element(tei:listEvent), $filter as xs:string*)
Mathias Goebel's avatar
Mathias Goebel committed
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
as element(xhtml:div) {
<xhtml:div id="{ string-join(($eventDoc/local-name(), $eventDoc/@type), "-") }" class="tab-pane">
    <xhtml:div class="panel-group" aria-multiselectable="true" role="tablist">
    {for $eventList in $eventDoc/tei:listEvent
    return
        <xhtml:div class="panel panel-default">
            <xhtml:div class="panel-heading">
                <h4 class="panel-title">{$eventList/tei:head/text()}</h4>
            </xhtml:div>
            <xhtml:div class="panel-body">
                <ul class="listEvent">
{
  for $event in $eventList/tei:event[@xml:id = $filter]
  let $sort := string($event/*[1])
                => replace("ä", "ae")
                => replace("ö", "oe")
                => replace("ü", "ue")
  order by $sort
  return ixp:prepare-event($event)
}
                </ul>
            </xhtml:div>
        </xhtml:div>
    }
    </xhtml:div>
</xhtml:div>
};

Mathias Goebel's avatar
Mathias Goebel committed
747
declare function ixp:prepare-event($event as element(tei:event))
748
as element(xhtml:li) {
749
750
751
752
(: check if the item points to another entity :)
if( not(exists($event/@xml:id)) )
then
    (: pointer :)
Mathias Goebel's avatar
Mathias Goebel committed
753
    ixp:pointer($event)
754
755
else
    let $id := $event/@xml:id
Mathias Goebel's avatar
Mathias Goebel committed
756
    let $wheres := tokenize($event/@where, " ") ! substring-after(., ":")
757
758
759
760
761
762
    let $labelMain := ($event/tei:label)[1]
    let $labelAlt := ($event/tei:label[not(@type="variant")])[position() gt 1]
    let $variant := $event/tei:label[@type="variant"]
    let $note := $event/tei:note
    let $bibl := $event/tei:bibl
    let $links := $event/tei:linkGrp/tei:link[@corresp="https://schema.org/mentions"]
Mathias Goebel's avatar
Mathias Goebel committed
763
return
764
765
    element xhtml:li {
        attribute id { string($id) },
Mathias Goebel's avatar
Mathias Goebel committed
766
        ixp:entry-class($id),
Mathias Goebel's avatar
Mathias Goebel committed
767
        (: link to this entry :)
Mathias Goebel's avatar
Mathias Goebel committed
768
        ixp:entry-link($id),
769
770
        element xhtml:span {
                attribute class { "label-main" },
Mathias Goebel's avatar
Mathias Goebel committed
771
                $labelMain/text()
Mathias Goebel's avatar
Mathias Goebel committed
772
            },
773
        element xhtml:ul {
Mathias Goebel's avatar
Mathias Goebel committed
774
            (: variant :)
Mathias Goebel's avatar
Mathias Goebel committed
775
            ixp:variant($variant),
Mathias Goebel's avatar
Mathias Goebel committed
776
            (: secondary label :)
Mathias Goebel's avatar
Mathias Goebel committed
777
            ixp:idno($labelAlt),
Mathias Goebel's avatar
Mathias Goebel committed
778
            (: note :)
Mathias Goebel's avatar
Mathias Goebel committed
779
            ixp:note($note),
Mathias Goebel's avatar
Mathias Goebel committed
780
            (: where :)
Mathias Goebel's avatar
Mathias Goebel committed
781
            for $where in $wheres return
782
783
784
            element xhtml:li {
                attribute class { "where" },
                element xhtml:a {
785
                attribute href { "register.html?e="|| $where },
Mathias Goebel's avatar
Mathias Goebel committed
786
787
                <xhtml:i class="fa fa-map-marker" aria-hidden="true"></xhtml:i>,
                "&#160;",
Mathias Goebel's avatar
Mathias Goebel committed
788
                $ixp:dataCollection/id($where)/*[1]/string()
Mathias Goebel's avatar
Mathias Goebel committed
789
790
791
                }
            },
            (: bibl :)
Mathias Goebel's avatar
Mathias Goebel committed
792
            ixp:bibl($bibl),
Mathias Goebel's avatar
Mathias Goebel committed
793
            (: links :)
Mathias Goebel's avatar
Mathias Goebel committed
794
            ixp:links($event),
Mathias Goebel's avatar
Mathias Goebel committed
795
            ixp:li-code($event)
Mathias Goebel's avatar
Mathias Goebel committed
796
797
        }
    }
Mathias Goebel's avatar
Mathias Goebel committed
798
799
};

Mathias Goebel's avatar
Mathias Goebel committed
800
(:~
Mathias Goebel's avatar
Mathias Goebel committed
801
 : parser for tei:listOrg, returns the index of orgnaisations.
Mathias Goebel's avatar
Mathias Goebel committed
802
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
803
declare function ixp:orgs($orgDoc as element(tei:listOrg)+) {
Mathias Goebel's avatar
   
Mathias Goebel committed
804
805
let $result :=
<xhtml:div id="{ string-join(($orgDoc/local-name(), $orgDoc/@type), "-") }" class="tab-pane">
Mathias Goebel's avatar
Mathias Goebel committed
806
    <xhtml:div class="panel-group" aria-multiselectable="true" role="tablist">
807
808
    {for $orgList in $orgDoc
    return
Mathias Goebel's avatar
Mathias Goebel committed
809
810
        <xhtml:div class="panel panel-default">
            <xhtml:div class="panel-heading">
811
                <h4 class="panel-title">{ $orgList/tei:head/text() }</h4>
Mathias Goebel's avatar
Mathias Goebel committed
812
813
            </xhtml:div>
            <xhtml:div class="panel-body">
Mathias Goebel's avatar
Mathias Goebel committed
814
                <ul class="listOrg">
815
{
Mathias Goebel's avatar
Mathias Goebel committed
816
if($ixp:getNotebook = $ixp:targetStart)
Mathias Goebel's avatar
Mathias Goebel committed
817
818
819
820
821
822
823
then
  for $org in $orgList/tei:org
  let $sort := string($org/*[1])
                => replace("ä", "ae")
                => replace("ö", "oe")
                => replace("ü", "ue")
  order by $sort
Mathias Goebel's avatar
Mathias Goebel committed
824
  return ixp:prepare-org($org)
Mathias Goebel's avatar
   
Mathias Goebel committed
825
else
Mathias Goebel's avatar
Mathias Goebel committed
826
  for $org in $orgList/tei:org[tei:linkGrp/tei:link[starts-with(@target, $ixp:getNotebook)]]
Mathias Goebel's avatar
Mathias Goebel committed
827
828
829
830
831
  let $sort := string($org/*[1])
                => replace("ä", "ae")
                => replace("ö", "oe")
                => replace("ü", "ue")
  order by $sort
Mathias Goebel's avatar
Mathias Goebel committed
832
  return ixp:prepare-org($org)
833
}
Mathias Goebel's avatar
Mathias Goebel committed
834
                </ul>
Mathias Goebel's avatar
Mathias Goebel committed
835
836
            </xhtml:div>
        </xhtml:div>
837
    }
Mathias Goebel's avatar
Mathias Goebel committed
838
839
    </xhtml:div>
</xhtml:div>
Mathias Goebel's avatar
   
Mathias Goebel committed
840
841
return
    $result
Mathias Goebel's avatar
Mathias Goebel committed
842
843
};

Mathias Goebel's avatar
Mathias Goebel committed
844
(:~
Mathias Goebel's avatar
Mathias Goebel committed
845
 : parser for tei:listOrg, returns the index of organisations.
Mathias Goebel's avatar
Mathias Goebel committed
846
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
847
declare function ixp:orgs($orgDoc as element(tei:listOrg)+, $filter as xs:string*) {
Mathias Goebel's avatar
Mathias Goebel committed
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
<xhtml:div id="{ string-join(($orgDoc/local-name(), $orgDoc/@type), "-") }" class="tab-pane">
    <xhtml:div class="panel-group" aria-multiselectable="true" role="tablist">
    {for $orgList in $orgDoc
    return
        <xhtml:div class="panel panel-default">
            <xhtml:div class="panel-heading">
                <h4 class="panel-title">{ $orgList/tei:head/text() }</h4>
            </xhtml:div>
            <xhtml:div class="panel-body">
                <ul class="listOrg">
{
  for $org in $orgList/tei:org[@xml:id = $filter]
  let $sort := string($org/*[1])
                => replace("ä", "ae")
                => replace("ö", "oe")
                => replace("ü", "ue")
  order by $sort
  return ixp:prepare-org($org)
}
                </ul>
            </xhtml:div>
        </xhtml:div>
    }
    </xhtml:div>
</xhtml:div>

};

Mathias Goebel's avatar
Mathias Goebel committed
876
877
878
879
(:~
 : transforms a single tei:org element to a xhtml:li
 : @since 1.0
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
880
declare function ixp:prepare-org($org as element(tei:org))
Mathias Goebel's avatar
Mathias Goebel committed
881
as element(xhtml:li) {
882
883
884
885
(: check if the item points to another entity :)
if( not(exists($org/@xml:id)) )
then
    (: pointer :)
Mathias Goebel's avatar
Mathias Goebel committed
886
    ixp:pointer($org)
887
else
Mathias Goebel's avatar
Mathias Goebel committed
888
    let $id := $org/@xml:id
Mathias Goebel's avatar
Mathias Goebel committed
889
    let $labelMain := ($org/tei:orgName)[1]
Mathias Goebel's avatar
Mathias Goebel committed
890
    let $idnos := $org/tei:idno
Mathias Goebel's avatar
Mathias Goebel committed
891
    let $variant := $org/tei:orgName[@type="variant"]
Mathias Goebel's avatar
Mathias Goebel committed
892
893
894
895
    let $note := $org/tei:note
    let $bibl := $org/tei:bibl
    let $links := $org/tei:linkGrp/tei:link[@corresp="https://schema.org/mentions"]
return
896
897
    element xhtml:li {
        attribute id { string($id) },
Mathias Goebel's avatar
Mathias Goebel committed
898
        ixp:entry-class($id),
Mathias Goebel's avatar
Mathias Goebel committed
899
        (: link to this entry :)
Mathias Goebel's avatar
Mathias Goebel committed
900
        ixp:entry-link($id),
901
902
        element xhtml:span {
                attribute class { "label-main" },
Mathias Goebel's avatar
Mathias Goebel committed
903
                $labelMain/text()
Mathias Goebel's avatar
Mathias Goebel committed
904
            },
905
        element xhtml:ul {
Mathias Goebel's avatar
Mathias Goebel committed
906
            (: variant :)
Mathias Goebel's avatar
Mathias Goebel committed
907
            ixp:variant($variant),
Mathias Goebel's avatar
Mathias Goebel committed
908
            (: secondary label :)
Mathias Goebel's avatar
Mathias Goebel committed
909
            ixp:idno($idnos),
Mathias Goebel's avatar
Mathias Goebel committed
910
            (: note :)
Mathias Goebel's avatar
Mathias Goebel committed
911
            ixp:note($note),
Mathias Goebel's avatar
Mathias Goebel committed
912
            (: bibl :)
Mathias Goebel's avatar
Mathias Goebel committed
913
            ixp:bibl($bibl),
Mathias Goebel's avatar
Mathias Goebel committed
914
            (: links :)
Mathias Goebel's avatar
Mathias Goebel committed
915
            ixp:links($org),
Mathias Goebel's avatar
Mathias Goebel committed
916
            ixp:li-code($org)
Mathias Goebel's avatar
Mathias Goebel committed
917
918
        }
    }
Mathias Goebel's avatar
Mathias Goebel committed
919
920
};

Mathias Goebel's avatar
Mathias Goebel committed
921
(:~
Mathias Goebel's avatar
Mathias Goebel committed
922
 : parser for tei:listPerson, returns the index of persons
Mathias Goebel's avatar
Mathias Goebel committed
923
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
924
declare function ixp:persons($persDoc as element(tei:listPerson))
Mathias Goebel's avatar
Mathias Goebel committed
925
as element(xhtml:div) {
Mathias Goebel's avatar
Mathias Goebel committed
926
(: main tab :)
Mathias Goebel's avatar
   
Mathias Goebel committed
927
<xhtml:div id="{ string-join(($persDoc/local-name(), $persDoc/@type), "-") }" class="tab-pane">
Mathias Goebel's avatar
Mathias Goebel committed
928
    <xhtml:div class="panel-group" aria-multiselectable="true" role="tablist">
929
930
    {for $persList in $persDoc
    return
Mathias Goebel's avatar
Mathias Goebel committed
931
932
        <xhtml:div class="panel panel-default">
            <xhtml:div class="panel-heading">
933
934
                <h4 class="panel-title"><a href="#collapse1-1" data-parent="#accordion" data-toggle="collapse">Personen und Werke</a>
                </h4>
Mathias Goebel's avatar
Mathias Goebel committed
935
936
            </xhtml:div>
            <xhtml:div class="panel-body">
Mathias Goebel's avatar
Mathias Goebel committed
937
                <ul class="listPerson">
938
{
Mathias Goebel's avatar
Mathias Goebel committed
939
if($ixp:getNotebook = $ixp:targetStart)
Mathias Goebel's avatar
Mathias Goebel committed
940
941
942
943
944
945
946
then
  for $pers in $persList/tei:*
  let $sort := string($pers/*[1])
                => replace("ä", "ae")
                => replace("ö", "oe")
                => replace("ü", "ue")
  order by $sort
Mathias Goebel's avatar
Mathias Goebel committed
947
  return ixp:prepare-person($pers)
Mathias Goebel's avatar
Mathias Goebel committed
948
else
Mathias Goebel's avatar
Mathias Goebel committed
949
  for $pers in $persList/tei:*[tei:linkGrp/tei:link[starts-with(@target, $ixp:getNotebook)]]
Mathias Goebel's avatar
Mathias Goebel committed
950
951
952
953
954
  let $sort := string($pers/*[1])
                => replace("ä", "ae")
                => replace("ö", "oe")
                => replace("ü", "ue")
  order by $sort
Mathias Goebel's avatar
Mathias Goebel committed
955
  return ixp:prepare-person($pers)
956
}
Mathias Goebel's avatar
Mathias Goebel committed
957
                </ul>
Mathias Goebel's avatar
Mathias Goebel committed
958
959
            </xhtml:div>
        </xhtml:div>
960
    }
Mathias Goebel's avatar
Mathias Goebel committed
961
962
    </xhtml:div>
</xhtml:div>
Mathias Goebel's avatar
Mathias Goebel committed
963
964
};

Mathias Goebel's avatar
Mathias Goebel committed
965
966
967
968

(:~
 : parser for tei:listPerson, returns the index of persons
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
969
declare function ixp:persons($persDoc as element(tei:listPerson), $filter as xs:string*)
Mathias Goebel's avatar
Mathias Goebel committed
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
as element(xhtml:div) {
(: main tab :)
<xhtml:div id="{ string-join(($persDoc/local-name(), $persDoc/@type), "-") }" class="tab-pane">
    <xhtml:div class="panel-group" aria-multiselectable="true" role="tablist">
    {for $persList in $persDoc
    return
        <xhtml:div class="panel panel-default">
            <xhtml:div class="panel-heading">
                <h4 class="panel-title"><a href="#collapse1-1" data-parent="#accordion" data-toggle="collapse">Personen und Werke</a>
                </h4>
            </xhtml:div>
            <xhtml:div class="panel-body">
                <ul class="listPerson">
{

  for $pers in $persList/tei:*[@xml:id = $filter]
  let $sort := string($pers/*[1])
                => replace("ä", "ae")
                => replace("ö", "oe")
                => replace("ü", "ue")
  order by $sort
  return ixp:prepare-person($pers)

}
                </ul>
            </xhtml:div>
        </xhtml:div>
    }
    </xhtml:div>
</xhtml:div>
};
For faster browsing, not all history is shown. View entire blame