index-processor.xqm 52.4 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
8
9
10
: @author Mathias Göbel
: @version 1.0
: @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 when 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

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

Mathias Goebel's avatar
Mathias Goebel committed
37
38
39
40
declare variable $ixp:BeaconMap := map:merge((
        ixp:beacon-parser(xs:anyURI("http://www.historische-kommission-muenchen-editionen.de/beacon_db_register.txt")),
        ixp:beacon-parser(xs:anyURI("http://www.historische-kommission-muenchen-editionen.de/beacon_ndb.txt")),
        ixp:beacon-parser(xs:anyURI("http://www.historische-kommission-muenchen-editionen.de/beacon_adb.txt"))
41
        ));
Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
42
43
44
(:~
 : Helper function to collect all main nodes from the index files.
:)
Mathias Goebel's avatar
Mathias Goebel committed
45
declare function ixp:getNodes()
Mathias Goebel's avatar
   
Mathias Goebel committed
46
as array(*) {
Mathias Goebel's avatar
Mathias Goebel committed
47
48
49
50
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
51
let $docs := $uris ! doc($ixp:dataPath || . || '.xml')
Mathias Goebel's avatar
Mathias Goebel committed
52

Mathias Goebel's avatar
   
Mathias Goebel committed
53
return
Mathias Goebel's avatar
Mathias Goebel committed
54
    [
Mathias Goebel's avatar
Mathias Goebel committed
55
    $docs//tei:body/tei:listEvent,
Mathias Goebel's avatar
Mathias Goebel committed
56
    $docs//tei:body/tei:listOrg,
Mathias Goebel's avatar
Mathias Goebel committed
57
58
59
60
    $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
61
    $docs//tei:body//tei:list[@type="Fontane"]
Mathias Goebel's avatar
Mathias Goebel committed
62
    ]
Mathias Goebel's avatar
Mathias Goebel committed
63
64
65
};

(:~
Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
66
67
68
69
70
71
72
 : the list type an entity is listed in.
 : This is used when preparing the html resource name.
 : @param $entity – on of tei:item, tei:place, tei:person, tei:gersonGrp,
 : 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
73
declare function ixp:get-list-by-entity($entity as node()?)
Mathias Goebel's avatar
Mathias Goebel committed
74
75
76
77
as xs:string {
switch ( $entity/local-name() )
    case "event" return "listEvent"
    case "org" return "listOrg"
Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
78
    case "person" return
Mathias Goebel's avatar
Mathias Goebel committed
79
        if($entity/ancestor::tei:item)
Mathias Goebel's avatar
Mathias Goebel committed
80
        then ixp:get-list-by-entity( $entity/ancestor::tei:item[last()] )
Mathias Goebel's avatar
Mathias Goebel committed
81
        else "listPerson"
Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
82
    case "personGrp" return
Mathias Goebel's avatar
Mathias Goebel committed
83
        if($entity/ancestor::tei:item)
Mathias Goebel's avatar
Mathias Goebel committed
84
        then ixp:get-list-by-entity( $entity/ancestor::tei:item[last()] )
Mathias Goebel's avatar
Mathias Goebel committed
85
86
87
88
89
90
91
92
        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
93
declare function ixp:get-icon-by-entity($entity as node())
Mathias Goebel's avatar
Mathias Goebel committed
94
95
96
97
98
99
100
101
102
103
104
105
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
106
107
108
(:~
 : Helper function to use an efficient map data type to store the model.
 :)
Mathias Goebel's avatar
Mathias Goebel committed
109
declare function ixp:main-map($index as xs:string+)
Mathias Goebel's avatar
Mathias Goebel committed
110
as map() {
Mathias Goebel's avatar
Mathias Goebel committed
111
let $nodes := ixp:getNodes()
Mathias Goebel's avatar
Mathias Goebel committed
112
return
Mathias Goebel's avatar
Mathias Goebel committed
113
map:new(
Mathias Goebel's avatar
Mathias Goebel committed
114
115
    for $n in 1 to array:size($nodes)
    let $node := $nodes?($n)
Mathias Goebel's avatar
Mathias Goebel committed
116
117
    let $localId := string-join(($node/local-name(), $node/@type), "-")
    let $content :=
Mathias Goebel's avatar
Mathias Goebel committed
118
        for $node in $node return
Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
119
        switch ($node/local-name())
Mathias Goebel's avatar
   
Mathias Goebel committed
120
            case "listEvent" return
Mathias Goebel's avatar
Mathias Goebel committed
121
                if($index = "listEvent") then ixp:events($node) else ()
Mathias Goebel's avatar
   
Mathias Goebel committed
122
            case "listOrg" return
Mathias Goebel's avatar
Mathias Goebel committed
123
                if($index = "listOrg") then ixp:orgs($node) else ()
Mathias Goebel's avatar
   
Mathias Goebel committed
124
            case "listPerson" return
Mathias Goebel's avatar
Mathias Goebel committed
125
                if($index = "listPerson") then ixp:persons($node) else ()
Mathias Goebel's avatar
   
Mathias Goebel committed
126
            case "listPlace" return
Mathias Goebel's avatar
Mathias Goebel committed
127
                if($index = "listPlace") then ixp:places($node) else ()
Mathias Goebel's avatar
   
Mathias Goebel committed
128
            case "list" return
Mathias Goebel's avatar
Mathias Goebel committed
129
                ixp:works($node)
Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
130
            default return error(QName("FONTANE", "INDEX1"), "unknown node-name: " || $node/local-name())
Mathias Goebel's avatar
Mathias Goebel committed
131
132
133
134
    return
        map:entry(
            $localId,
            map:new((
Mathias Goebel's avatar
Mathias Goebel committed
135
                map:entry("content", $content)
Mathias Goebel's avatar
Mathias Goebel committed
136
137
138
139
140
            ))
        )
    )
};

Mathias Goebel's avatar
Mathias Goebel committed
141
declare function ixp:main-map()
Mathias Goebel's avatar
   
Mathias Goebel committed
142
as map() {
Mathias Goebel's avatar
Mathias Goebel committed
143
    ixp:main-map(("listEvent", "listOrg", "listPerson", "listPlace", "list-"))
Mathias Goebel's avatar
   
Mathias Goebel committed
144
145
};

Mathias Goebel's avatar
Mathias Goebel committed
146
147
148
149
(:~
 : Main function to create a complete index, contains some template specific
 : code.
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
150
declare function ixp:register()
Mathias Goebel's avatar
Mathias Goebel committed
151
as element(xhtml:div)+ {
Mathias Goebel's avatar
Mathias Goebel committed
152
let $map := ixp:main-map()
Mathias Goebel's avatar
Mathias Goebel committed
153
return
Mathias Goebel's avatar
   
Mathias Goebel committed
154
    $map?*?("content")
Mathias Goebel's avatar
Mathias Goebel committed
155
};
Mathias Goebel's avatar
Mathias Goebel committed
156

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

Mathias Goebel's avatar
Mathias Goebel committed
168
169
170
171
172
(:~
 : helper function to get the tgmd:title by URI
 : @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
173
declare function ixp:resolve-name($uri as xs:string)
Mathias Goebel's avatar
Mathias Goebel committed
174
as xs:string {
Mathias Goebel's avatar
Mathias Goebel committed
175
    let $title := string(doc($ixp:metaCollection || $uri || '.xml')//tgmd:title)
Mathias Goebel's avatar
Mathias Goebel committed
176
    return
Mathias Goebel's avatar
   
Mathias Goebel committed
177
178
179
        if($title = "")
        then $uri
        else $title
Mathias Goebel's avatar
Mathias Goebel committed
180
181
182
};

(:~
Mathias Goebel's avatar
Mathias Goebel committed
183
 : tests for a given ID to appear in all @xml:id in a given node
Mathias Goebel's avatar
Mathias Goebel committed
184
185
186
 : @param – $id the id to search for
 : @param – $node the document or xml fragment
 : :)
Mathias Goebel's avatar
Mathias Goebel committed
187
declare function ixp:check-active($id as xs:string, $node as element(*)+)
188
as xs:boolean {
189
    exists($node/id($id))
Mathias Goebel's avatar
Mathias Goebel committed
190
191
};

Mathias Goebel's avatar
Mathias Goebel committed
192
193
194
195
(:~
 : checks if a target entity is in the current node set
 : @param $node – any node set
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
196
declare function ixp:check-entity($node as node()+)
Mathias Goebel's avatar
Mathias Goebel committed
197
as xs:string? {
Mathias Goebel's avatar
Mathias Goebel committed
198
    if(ixp:check-active($ixp:getEntity, $node))
Mathias Goebel's avatar
Mathias Goebel committed
199
200
201
202
    then "active"
    else ()
};

203
204
(:~
 : creates a generic xhtml:class attribute mandatory for every entry
Mathias Goebel's avatar
Mathias Goebel committed
205
 : @param $id – ID to check for
206
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
207
declare function ixp:entry-class($id as attribute(xml:id))
Mathias Goebel's avatar
Mathias Goebel committed
208
as attribute(class)? {
209
210
    attribute class {
        "registerEintrag",
Mathias Goebel's avatar
Mathias Goebel committed
211
        $id/parent::*/local-name()
212
213
214
215
    }
};

(:~
Mathias Goebel's avatar
Mathias Goebel committed
216
217
218
 : creates a list for label or name
 : @param $variant – a tei element containing any secondary label or name variant
 :)
Mathias Goebel's avatar
Mathias Goebel committed
219
declare function ixp:variant($variant as element()*)
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
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 ",")
                }
        }
    }
};

(:~
236
 : transforms tei:idno to xhtml:li
Mathias Goebel's avatar
Mathias Goebel committed
237
 : @param $idnos – tei element (idno and label) with reference to authority file
238
239
 : TODO: declare element(tei:idno), currently wrong encoding with tei:label
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
240
declare function ixp:idno($idnos as element()*)
Mathias Goebel's avatar
Mathias Goebel committed
241
as element(xhtml:li)* {
242
243
for $idno in $idnos
let $str := string($idno)
Mathias Goebel's avatar
Mathias Goebel committed
244
let $wikipedia :=
Mathias Goebel's avatar
Mathias Goebel committed
245
246
  if($idno/@type = "GND") then ixp:gnd-wikipedia($str) else
  if($idno/@type = "Wikidata") then ixp:wikidata-wikipedia($str) else ()
247
248
249
250
251
252
253
254
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>
255
        },
Mathias Goebel's avatar
Mathias Goebel committed
256
        (: Deutsche Biografie :)
Mathias Goebel's avatar
Mathias Goebel committed
257
        if($idno/parent::tei:person and $ixp:BeaconMap($str))
258
259
        then
          (",&#160;",
Mathias Goebel's avatar
Mathias Goebel committed
260
            let $url := $ixp:BeaconMap($str)
261
262
263
264
265
            return
              element xhtml:a {
                attribute title {
                    if(ends-with($url, "adbcontent"))
                    then "ADB-Eintrag basierend auf GND"
Mathias Goebel's avatar
Mathias Goebel committed
266
267
268
                    else if (ends-with($url, "ndbcontent"))
                    then "NDB-Eintrag basierend auf GND"
                    else "Eintrag in Deutscher Biografie basierend auf GND"
269
270
271
272
                },
                attribute href {$url},
                if(ends-with($url, "adbcontent"))
                then "ADB"
Mathias Goebel's avatar
Mathias Goebel committed
273
274
275
                else if (ends-with($url, "ndbcontent"))
                then "NDB"
                else "DB"
276
            })
277
        else (),
278
        if(string($wikipedia) = "") then ()
279
280
281
282
283
284
        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>
            })
285
286
287
    }
};

Mathias Goebel's avatar
Mathias Goebel committed
288
declare function ixp:gnd-wikipedia($gndid-orig as xs:string)
289
290
291
292
293
294
295
296
297
298
299
300
301
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
302
303
let $store :=
    if(config:get("sade.develop") = "true")
Mathias Goebel's avatar
Mathias Goebel committed
304
305
306
307
    then
        if(doc-available($gndCollection || $filename))
        then $gndCollection || $filename
        else
Mathias Goebel's avatar
Mathias Goebel committed
308
309
310
311
312
            try {
                xmldb:store($gndCollection, $filename, $response)
            } catch * {
                ()
            }
Mathias Goebel's avatar
Mathias Goebel committed
313
    else ()
314
315
316
317
return
    string($response//foaf:page/@rdf:resource)
};

Mathias Goebel's avatar
Mathias Goebel committed
318
declare function ixp:wikidata-wikipedia($wikidata-id as xs:string)
Mathias Goebel's avatar
Mathias Goebel committed
319
320
321
322
323
324
325
326
327
328
329
330
331
332
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]
};

333
334
335
(:~
 : transformation from tei:note to xhtml:li
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
336
declare function ixp:note($note as element(tei:note)*)
Mathias Goebel's avatar
Mathias Goebel committed
337
as element(xhtml:li)* {
338
339
340
341
for $n in $note
    return
        element xhtml:li {
            attribute class { "tei-note" },
Mathias Goebel's avatar
Mathias Goebel committed
342
343
344
345
346
347
348
            $n/text(),
            for $ptr in $n/tei:ptr[@type = "Figurenlexikon"]
            return
                element xhtml:a {
                    attribute href { string($ptr/@target) },
                    string($n/@type)
                }
349
350
351
        }
};

352
353
354
(:~
 : creates a list of all creations or points to the creator of a work
 : :)
Mathias Goebel's avatar
Mathias Goebel committed
355
declare function ixp:creator($creators as element(tei:link)+)
356
as element(xhtml:li) {
357
358
359
360
361
362

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
363
    "",
364
    element xhtml:ul {
365
        attribute class {"workList"},
366
367
368
        for $creator in $creators
        let $target := $creator/@target => substring-before(" ")
        let $targetId := $target => substring-after(":")
Mathias Goebel's avatar
Mathias Goebel committed
369
        let $targetNode := $ixp:dataCollection/id($targetId)
370
371
372
373
374
375
        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
376
                else ixp:get-list-by-entity( $targetNode )
377
378
379
            else "target-not-available"
        return
            element xhtml:li {
380
                attribute class {"item"},
381
                element xhtml:a {
382
                    attribute href { "register.html?e=" || string-join($targetId) },
383
384
385
                    if($targetNode[2])
                    then "two entities with same ID: " || $targetId
                    else string($targetNode/*[1])
386
                },
Mathias Goebel's avatar
fix    
Mathias Goebel committed
387
                text{ "&#8195;" },
388
389
390
391
392
393
394
                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"}
                    }
395
396
397
398
399
400
                }
            }
    }
}
else
    (: work item with creator :)
401
402
element xhtml:li {
    attribute class { "creator" },
Mathias Goebel's avatar
Mathias Goebel committed
403
    "",
404
    element xhtml:ul {
Mathias Goebel's avatar
Mathias Goebel committed
405
        attribute class {"listPerson"},
406
407
        for $creator in $creators
        let $target := $creator/@target => substring-after(" ")
Mathias Goebel's avatar
Mathias Goebel committed
408
        let $targetId := $target => substring-after(":")
Mathias Goebel's avatar
Mathias Goebel committed
409
        let $targetNode := $ixp:dataCollection/id($targetId)
Mathias Goebel's avatar
   
Mathias Goebel committed
410
411
412
        let $htmlResource :=
(: TODO remove condition for final production release :)
            if($targetNode)
413
414
415
            then
                if($targetNode[2])
                then "two entities with same ID: " || $targetId
Mathias Goebel's avatar
Mathias Goebel committed
416
                else ixp:get-list-by-entity( $targetNode )
Mathias Goebel's avatar
   
Mathias Goebel committed
417
            else "target-not-available"
418
419
        return
            element xhtml:li {
Mathias Goebel's avatar
Mathias Goebel committed
420
                attribute class {"person"},
421
                element xhtml:a {
422
                    attribute href { "register.html?e=" || string-join($targetId) },
423
424
425
                    if($targetNode[2])
                    then "two entities with same ID: " || $targetId
                    else string($targetNode/*[1])
426
427
428
429
430
431
                }
            }
    }
}
};

Mathias Goebel's avatar
Mathias Goebel committed
432
declare function ixp:has-former-or-current-location($links as element(tei:link)*)
433
434
as element(xhtml:li)* {
for $link in $links
Mathias Goebel's avatar
Mathias Goebel committed
435
436
437
438
439
440
441
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
442
let $targetNode := $ixp:dataCollection/id($id)
Mathias Goebel's avatar
Mathias Goebel committed
443
444
445
446
447
448
449
450
451
452
453
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
454
let $list := ixp:get-list-by-entity($targetNode)
455
456
457
458
return
    element xhtml:li {
        attribute class { "former-or-current-location" },
        element xhtml:a {
459
        attribute href { "register.html?e=" || $id },
460
461
        <xhtml:i class="fa fa-map-marker" aria-hidden="true"></xhtml:i>,
        "&#160;",
462
463
464
465
466
467
468
469
        $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 ()))
470
471
472
473
        }
    }
};

474
475
(:~
 : a list item with a list of links
Mathias Goebel's avatar
Mathias Goebel committed
476
 :)
Mathias Goebel's avatar
Mathias Goebel committed
477
declare function ixp:links($links as element(tei:link)*)
Mathias Goebel's avatar
Mathias Goebel committed
478
as element(xhtml:li) {
479
480
let $notebookUris :=

Mathias Goebel's avatar
Mathias Goebel committed
481
$links ! (substring-after(./@target, $ixp:targetStart) => substring(1,5) => distinct-values())
Mathias Goebel's avatar
Mathias Goebel committed
482
483
484
485
486
487
488
489
490
491
492
let $linkMap as map() :=
    map:new(
        for $nb in $notebookUris
        return
            map:entry($nb, $links[contains(@target, $nb)])
    )
return
    element xhtml:li {
        attribute class { "links" },
        if(count(map:keys($linkMap)) lt 2) then 'In Notizbuch' else 'In den Notizbüchern',
        element xhtml:ul {
Mathias Goebel's avatar
Mathias Goebel committed
493
            ixp:link($linkMap)
Mathias Goebel's avatar
Mathias Goebel committed
494
        }
495
496
497
498
499
500
    }
};

(:~
 : create list items containing links
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
501
declare function ixp:link($map as map()*)
Mathias Goebel's avatar
Mathias Goebel committed
502
as element(xhtml:li)* {
503
    for $tguri in map:keys($map)
Mathias Goebel's avatar
Mathias Goebel committed
504
    let $resolve := ixp:resolve-name($tguri)
Mathias Goebel's avatar
   
Mathias Goebel committed
505
    order by $resolve
506
507
    return
        element xhtml:li {
Mathias Goebel's avatar
   
Mathias Goebel committed
508
            replace($resolve, "([A-E])0(\d)", "$1$2") || ": ",
509
510
            element xhtml:ul {
                attribute class {"link-list-horizontal"},
511
                let $this-map := $map($tguri)
512
                let $surface-sequence := $this-map ! (./@target => substring-after("surface[@n='") => substring-before("']/"))
513
                for $link at $pos in $this-map
514
                let $page := $link/@target => substring-after("surface[@n='") => substring-before("']/")
515
516
517
                let $index-of := index-of($surface-sequence, $page)
                let $count := count( $index-of )
                where $pos = $index-of[1]
518
519
520
521
522
523
                return
                    element xhtml:li {
                        element xhtml:a {
                            attribute href {
                                "edition.html?id=%2Fxml%2Fdata%2F" || $tguri
                                || ".xml&amp;page=" || $page
524
                                || "&amp;target=" || string($link/parent::tei:*/parent::tei:*/@xml:id)
525
                            },
526
527
528
                            f-misc:n-translate($page),
                            if($count eq 1) then ()
                            else (" ", <xhtml:span title="Anzahl an Vorkommnissen auf dieser Seite">({$count})</xhtml:span>)
529
530
531
532
533
534
                        }
                    }
            }
        }
};

535
536
537
538
(:~ 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.
 :)
Mathias Goebel's avatar
Mathias Goebel committed
539
declare function ixp:links-new($entity as element()) {
540
    let $id := string($entity/@xml:id)
Mathias Goebel's avatar
Mathias Goebel committed
541
    let $mentions := $ixp:dataCollection//tei:rs[contains(@ref, ":" || $id)][not(@prev)]
542
543
544
545
546
547
    let $base-uris := ($mentions ! base-uri()) => distinct-values()
return
    element xhtml:li {
        attribute class { "links" },
        if(count($base-uris) = 1) then 'In Notizbuch' else 'In den Notizbüchern',
        element xhtml:ul {
Mathias Goebel's avatar
Mathias Goebel committed
548
        (: main list :)
549
            for $uri in $base-uris
550
            let $pageList := $mentions[base-uri() = $uri] ! ./ancestor::tei:surface[last()]/string(@n)
551
            let $tguri := ($uri => tokenize("/"))[last()]
Mathias Goebel's avatar
Mathias Goebel committed
552
            let $resolve := ixp:resolve-name(substring-before($tguri, ".xml"))
553
554
555
556
557
558
559
            let $name := $resolve => replace("([A-E])0(\d)", "$1$2")
            order by $resolve
            return
                element xhtml:li {
                $name || ": ",
        element xhtml:ul {
            attribute class {"link-list-horizontal"},
560
561
562
            for $page in distinct-values($pageList)
            let $surface := doc($uri)//tei:surface[@n = $page]
            let $count := index-of($pageList, $page) => count()
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
            return
                element xhtml:li {
                    element xhtml:a {
                        attribute href {
                            "edition.html?id=%2Fxml%2Fdata%2F" || $tguri
                            || "&amp;page=" || $page
                            || "&amp;target=" || $id
                        },
                        f-misc:n-translate($page),
                        if($count eq 1) then ()
                        else (" ", <xhtml:span title="Anzahl an Vorkommnissen auf dieser Seite">({$count})</xhtml:span>)
                    }
                }
        }
        }
    }
}
};

Mathias Goebel's avatar
Mathias Goebel committed
582
583
(:~
 : prepares a link to the current entry
Mathias Goebel's avatar
Mathias Goebel committed
584
 : @param $id – the xml:id of the currently processed element
Mathias Goebel's avatar
Mathias Goebel committed
585
:)
Mathias Goebel's avatar
Mathias Goebel committed
586
declare function ixp:entry-link($id as attribute(xml:id))
Mathias Goebel's avatar
Mathias Goebel committed
587
588
589
590
591
as element(xhtml:span) {
    element xhtml:span {
        attribute class {"registerLink"},
        element xhtml:a {
            attribute href {
592
                "register.html?e=" || $id
Mathias Goebel's avatar
Mathias Goebel committed
593
594
595
596
597
598
                },
            <xhtml:i title="Link zu diesem Eintrag" class="fa fa-link"></xhtml:i>
        }
    }
};

Mathias Goebel's avatar
Mathias Goebel committed
599
600
601
602
(:~
 : creates a xhtml list item containing serialized code.
 : @param $node – a single element
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
603
declare function ixp:li-code($node as element(*))
Mathias Goebel's avatar
Mathias Goebel committed
604
as element(xhtml:li) {
605
606
607
608
element xhtml:li {
    attribute class {"register-code"},
    element xhtml:span {
        attribute class {"registerCode"},
Mathias Goebel's avatar
Mathias Goebel committed
609
610
            <xhtml:i title="Zeige XML" class="fa fa-code"></xhtml:i>
    },
Mathias Goebel's avatar
minor    
Mathias Goebel committed
611
    if(config:get("sade.develop") = "true")
Mathias Goebel's avatar
Mathias Goebel committed
612
613
614
615
616
    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
617
}
Mathias Goebel's avatar
Mathias Goebel committed
618
619
};

620
621
622
623
(:~
 : generic function for entries with tei:note/tei:ptr.
 : @return link to the corresponding index entry
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
624
declare function ixp:pointer($entry as element())
Mathias Goebel's avatar
Mathias Goebel committed
625
as element(xhtml:li) {
Mathias Goebel's avatar
Mathias Goebel committed
626
627
    let $labelMain := $entry/*[1]
    let $target := substring-after(($entry/tei:note/tei:ptr/@target), '#')
Mathias Goebel's avatar
Mathias Goebel committed
628
    let $targetNode := $ixp:dataCollection/id($target)
629
    return
Mathias Goebel's avatar
Mathias Goebel committed
630
        if(not($targetNode)) then <div>target not found</div> else
631
632
633
        element xhtml:li {
            attribute class {
                "registerEintrag",
Mathias Goebel's avatar
Mathias Goebel committed
634
                if( $entry >> $targetNode )
635
636
637
638
639
                then "up"
                else "down"
            },
            element xhtml:span {
                    attribute class { "label-main" },
Mathias Goebel's avatar
Mathias Goebel committed
640
                    $labelMain/text()
641
642
643
644
645
646
647
            },
            element xhtml:ul {
                element xhtml:li {
                attribute class { "pointer" },
                "siehe: ",
                    element xhtml:a {
                        attribute href { "?e=" || $target },
648
649
650
                        try {
                             string($targetNode/*[1])
                         } catch * {
Mathias Goebel's avatar
Mathias Goebel committed
651
                             (: TODO remove try catch when the data is better :)
652
653
                             "multiple entities found: " || string-join(($targetNode ! serialize(.)), " AND ")
                         }
654
655
656
657
658
                    }
                }
            }
        }
};
659

Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
660
661
662
(:
 : parses a tei:bibl and mainly prepares a list item with a link to the entity
 :)
Mathias Goebel's avatar
Mathias Goebel committed
663
declare function ixp:bibl($bibls as element(tei:bibl)*)
664
665
666
as element(xhtml:li)* {
for $bibl in $bibls
    let $biblId := $bibl/tei:ptr/@target => substring-after(":")
Mathias Goebel's avatar
Mathias Goebel committed
667
    let $targetNode := $ixp:dataCollection/id($biblId)[. instance of element(tei:bibl)]
668
669
670
671
672
673
674
    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
675
            $targetNode/tei:choice/tei:abbr/string() ||
676
677
678
679
680
681
682
            (if($bibl/tei:citedRange)
            then ":&#160;" || $bibl/tei:citedRange
            else ())
            }
        }
};

Mathias Goebel's avatar
Mathias Goebel committed
683
declare function ixp:get-gnd-data($url as xs:string)
684
685
686
687
688
689
690
691
as element(rdf:RDF){
httpclient:get(xs:anyURI($url || "/about/rdf"), false(), ())//rdf:RDF
};

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

Mathias Goebel's avatar
Mathias Goebel committed
692
693
(:~
 : parser for listEvents/event entities
694
 : @param $eventDoc – the tei:listEvent containing all entries
Mathias Goebel's avatar
Mathias Goebel committed
695
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
696
declare function ixp:events($eventDoc as element(tei:listEvent))
697
as element(xhtml:div) {
Mathias Goebel's avatar
   
Mathias Goebel committed
698
<xhtml:div id="{ string-join(($eventDoc/local-name(), $eventDoc/@type), "-") }" class="tab-pane">
Mathias Goebel's avatar
Mathias Goebel committed
699
    <xhtml:div class="panel-group" aria-multiselectable="true" role="tablist">
700
701
    {for $eventList in $eventDoc/tei:listEvent
    return
Mathias Goebel's avatar
Mathias Goebel committed
702
703
        <xhtml:div class="panel panel-default">
            <xhtml:div class="panel-heading">
704
                <h4 class="panel-title">{$eventList/tei:head/text()}</h4>
Mathias Goebel's avatar
Mathias Goebel committed
705
706
            </xhtml:div>
            <xhtml:div class="panel-body">
Mathias Goebel's avatar
Mathias Goebel committed
707
                <ul class="listEvent">
708
{
Mathias Goebel's avatar
Mathias Goebel committed
709
if($ixp:getNotebook = $ixp:targetStart)
Mathias Goebel's avatar
Mathias Goebel committed
710
711
712
713
714
715
716
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
717
  return ixp:prepare-event($event)
Mathias Goebel's avatar
Mathias Goebel committed
718
719
else
  for $event in $eventList/tei:event[tei:linkGrp/tei:link
Mathias Goebel's avatar
Mathias Goebel committed
720
  [starts-with(@target, $ixp:getNotebook)]]
Mathias Goebel's avatar
Mathias Goebel committed
721
722
723
724
725
  let $sort := string($event/*[1])
                => replace("ä", "ae")
                => replace("ö", "oe")
                => replace("ü", "ue")
  order by $sort
Mathias Goebel's avatar
Mathias Goebel committed
726
  return ixp:prepare-event($event)
727
}
Mathias Goebel's avatar
Mathias Goebel committed
728
                </ul>
Mathias Goebel's avatar
Mathias Goebel committed
729
730
            </xhtml:div>
        </xhtml:div>
731
    }
Mathias Goebel's avatar
Mathias Goebel committed
732
733
    </xhtml:div>
</xhtml:div>
Mathias Goebel's avatar
Mathias Goebel committed
734
735
};

Mathias Goebel's avatar
Mathias Goebel committed
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
(:~
 : parser for listEvents/event entities
 : @param $eventDoc – the tei:listEvent containing all entries
 :  :)
declare function ixp:events($eventDoc as element(tei:listEvent), $filter as xs:string+)
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
769
declare function ixp:prepare-event($event as element(tei:event))
770
as element(xhtml:li) {
771
772
773
774
(: check if the item points to another entity :)
if( not(exists($event/@xml:id)) )
then
    (: pointer :)
Mathias Goebel's avatar
Mathias Goebel committed
775
    ixp:pointer($event)
776
777
else
    let $id := $event/@xml:id
Mathias Goebel's avatar
Mathias Goebel committed
778
    let $wheres := tokenize($event/@where, " ") ! substring-after(., ":")
779
780
781
782
783
784
    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
785
return
786
787
    element xhtml:li {
        attribute id { string($id) },
Mathias Goebel's avatar
Mathias Goebel committed
788
        ixp:entry-class($id),
Mathias Goebel's avatar
Mathias Goebel committed
789
        (: link to this entry :)
Mathias Goebel's avatar
Mathias Goebel committed
790
        ixp:entry-link($id),
791
792
        element xhtml:span {
                attribute class { "label-main" },
Mathias Goebel's avatar
Mathias Goebel committed
793
                $labelMain/text()
Mathias Goebel's avatar
Mathias Goebel committed
794
            },
795
        element xhtml:ul {
Mathias Goebel's avatar
Mathias Goebel committed
796
            (: variant :)
Mathias Goebel's avatar
Mathias Goebel committed
797
            ixp:variant($variant),
Mathias Goebel's avatar
Mathias Goebel committed
798
            (: secondary label :)
Mathias Goebel's avatar
Mathias Goebel committed
799
            ixp:idno($labelAlt),
Mathias Goebel's avatar
Mathias Goebel committed
800
            (: note :)
Mathias Goebel's avatar
Mathias Goebel committed
801
            ixp:note($note),
Mathias Goebel's avatar
Mathias Goebel committed
802
            (: where :)
Mathias Goebel's avatar
Mathias Goebel committed
803
            for $where in $wheres return
804
805
806
            element xhtml:li {
                attribute class { "where" },
                element xhtml:a {
807
                attribute href { "register.html?e="|| $where },
Mathias Goebel's avatar
Mathias Goebel committed
808
809
                <xhtml:i class="fa fa-map-marker" aria-hidden="true"></xhtml:i>,
                "&#160;",
Mathias Goebel's avatar
Mathias Goebel committed
810
                $ixp:dataCollection/id($where)/*[1]/string()
Mathias Goebel's avatar
Mathias Goebel committed
811
812
813
                }
            },
            (: bibl :)
Mathias Goebel's avatar
Mathias Goebel committed
814
            ixp:bibl($bibl),
Mathias Goebel's avatar
Mathias Goebel committed
815
            (: links :)
Mathias Goebel's avatar
Mathias Goebel committed
816
817
            ixp:links-new($event),
            ixp:li-code($event)
Mathias Goebel's avatar
Mathias Goebel committed
818
819
        }
    }
Mathias Goebel's avatar
Mathias Goebel committed
820
821
};

Mathias Goebel's avatar
Mathias Goebel committed
822
(:~
Mathias Goebel's avatar
Mathias Goebel committed
823
 : parser for tei:listOrg, returns the index of orgnaisations.
Mathias Goebel's avatar
Mathias Goebel committed
824
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
825
declare function ixp:orgs($orgDoc as element(tei:listOrg)+) {
Mathias Goebel's avatar
   
Mathias Goebel committed
826
827
let $result :=
<xhtml:div id="{ string-join(($orgDoc/local-name(), $orgDoc/@type), "-") }" class="tab-pane">
Mathias Goebel's avatar
Mathias Goebel committed
828
    <xhtml:div class="panel-group" aria-multiselectable="true" role="tablist">
829
830
    {for $orgList in $orgDoc
    return
Mathias Goebel's avatar
Mathias Goebel committed
831
832
        <xhtml:div class="panel panel-default">
            <xhtml:div class="panel-heading">
833
                <h4 class="panel-title">{ $orgList/tei:head/text() }</h4>
Mathias Goebel's avatar
Mathias Goebel committed
834
835
            </xhtml:div>
            <xhtml:div class="panel-body">
Mathias Goebel's avatar
Mathias Goebel committed
836
                <ul class="listOrg">
837
{
Mathias Goebel's avatar
Mathias Goebel committed
838
if($ixp:getNotebook = $ixp:targetStart)
Mathias Goebel's avatar
Mathias Goebel committed
839
840
841
842
843
844
845
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
846
  return ixp:prepare-org($org)
Mathias Goebel's avatar
   
Mathias Goebel committed
847
else
Mathias Goebel's avatar
Mathias Goebel committed
848
  for $org in $orgList/tei:org[tei:linkGrp/tei:link[starts-with(@target, $ixp:getNotebook)]]
Mathias Goebel's avatar
Mathias Goebel committed
849
850
851
852
853
  let $sort := string($org/*[1])
                => replace("ä", "ae")
                => replace("ö", "oe")
                => replace("ü", "ue")
  order by $sort
Mathias Goebel's avatar
Mathias Goebel committed
854
  return ixp:prepare-org($org)
855
}
Mathias Goebel's avatar
Mathias Goebel committed
856
                </ul>
Mathias Goebel's avatar
Mathias Goebel committed
857
858
            </xhtml:div>
        </xhtml:div>
859
    }
Mathias Goebel's avatar
Mathias Goebel committed
860
861
    </xhtml:div>
</xhtml:div>
Mathias Goebel's avatar
   
Mathias Goebel committed
862
863
return
    $result
Mathias Goebel's avatar
Mathias Goebel committed
864
865
};

Mathias Goebel's avatar
Mathias Goebel committed
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
(:~
 : parser for tei:listOrg, returns the index of orgnaisations.
 :  :)
declare function ixp:orgs($orgDoc as element(tei:listOrg)+, $filter as xs:string+) {
<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
898
899
900
901
(:~
 : transforms a single tei:org element to a xhtml:li
 : @since 1.0
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
902
declare function ixp:prepare-org($org as element(tei:org))
Mathias Goebel's avatar
Mathias Goebel committed
903
as element(xhtml:li) {
904
905
906
907
(: check if the item points to another entity :)
if( not(exists($org/@xml:id)) )
then
    (: pointer :)
Mathias Goebel's avatar
Mathias Goebel committed
908
    ixp:pointer($org)
909
else
Mathias Goebel's avatar
Mathias Goebel committed
910
    let $id := $org/@xml:id
Mathias Goebel's avatar
Mathias Goebel committed
911
    let $labelMain := ($org/tei:orgName)[1]
Mathias Goebel's avatar
Mathias Goebel committed
912
    let $idnos := $org/tei:idno
Mathias Goebel's avatar
Mathias Goebel committed
913
    let $variant := $org/tei:orgName[@type="variant"]
Mathias Goebel's avatar
Mathias Goebel committed
914
915
916
917
    let $note := $org/tei:note
    let $bibl := $org/tei:bibl
    let $links := $org/tei:linkGrp/tei:link[@corresp="https://schema.org/mentions"]
return
918
919
    element xhtml:li {
        attribute id { string($id) },
Mathias Goebel's avatar
Mathias Goebel committed
920
        ixp:entry-class($id),
Mathias Goebel's avatar
Mathias Goebel committed
921
        (: link to this entry :)
Mathias Goebel's avatar
Mathias Goebel committed
922
        ixp:entry-link($id),
923
924
        element xhtml:span {
                attribute class { "label-main" },
Mathias Goebel's avatar
Mathias Goebel committed
925
                $labelMain/text()
Mathias Goebel's avatar
Mathias Goebel committed
926
            },
927
        element xhtml:ul {
Mathias Goebel's avatar
Mathias Goebel committed
928
            (: variant :)
Mathias Goebel's avatar
Mathias Goebel committed
929
            ixp:variant($variant),
Mathias Goebel's avatar
Mathias Goebel committed
930
            (: secondary label :)
Mathias Goebel's avatar
Mathias Goebel committed
931
            ixp:idno($idnos),
Mathias Goebel's avatar
Mathias Goebel committed
932
            (: note :)
Mathias Goebel's avatar
Mathias Goebel committed
933
            ixp:note($note),
Mathias Goebel's avatar
Mathias Goebel committed
934
            (: bibl :)
Mathias Goebel's avatar
Mathias Goebel committed
935
            ixp:bibl($bibl),
Mathias Goebel's avatar
Mathias Goebel committed
936
            (: links :)
Mathias Goebel's avatar
Mathias Goebel committed
937
938
            ixp:links-new($org),
            ixp:li-code($org)
Mathias Goebel's avatar
Mathias Goebel committed
939
940
        }
    }
Mathias Goebel's avatar
Mathias Goebel committed
941
942
};

Mathias Goebel's avatar
Mathias Goebel committed
943
(:~
Mathias Goebel's avatar
Mathias Goebel committed
944
 : parser for tei:listPerson, returns the index of persons
Mathias Goebel's avatar
Mathias Goebel committed
945
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
946
declare function ixp:persons($persDoc as element(tei:listPerson))
Mathias Goebel's avatar
Mathias Goebel committed
947
as element(xhtml:div) {
Mathias Goebel's avatar
Mathias Goebel committed
948
(: main tab :)
Mathias Goebel's avatar
   
Mathias Goebel committed
949
<xhtml:div id="{ string-join(($persDoc/local-name(), $persDoc/@type), "-") }" class="tab-pane">
Mathias Goebel's avatar
Mathias Goebel committed
950
    <xhtml:div class="panel-group" aria-multiselectable="true" role="tablist">
951
952
    {for $persList in $persDoc
    return
Mathias Goebel's avatar
Mathias Goebel committed
953
954
        <xhtml:div class="panel panel-default">
            <xhtml:div class="panel-heading">
955
956
                <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
957
958
            </xhtml:div>
            <xhtml:div class="panel-body">
Mathias Goebel's avatar
Mathias Goebel committed
959
                <ul class="listPerson">
960
{
Mathias Goebel's avatar
Mathias Goebel committed
961
if($ixp:getNotebook = $ixp:targetStart)
Mathias Goebel's avatar
Mathias Goebel committed
962
963
964
965
966
967
968
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
969
  return ixp:prepare-person($pers)
Mathias Goebel's avatar
Mathias Goebel committed
970
else
Mathias Goebel's avatar
Mathias Goebel committed
971
  for $pers in $persList/tei:*[tei:linkGrp/tei:link[starts-with(@target, $ixp:getNotebook)]]
Mathias Goebel's avatar
Mathias Goebel committed
972
973
974
975
976
  let $sort := string($pers/*[1])
                => replace("ä", "ae")
                => replace("ö", "oe")
                => replace("ü", "ue")
  order by $sort
Mathias Goebel's avatar
Mathias Goebel committed
977
  return ixp:prepare-person($pers)
978
}
Mathias Goebel's avatar
Mathias Goebel committed
979
                </ul>
Mathias Goebel's avatar
Mathias Goebel committed
980
981
            </xhtml:div>
        </xhtml:div>
982
    }
Mathias Goebel's avatar
Mathias Goebel committed
983
984
    </xhtml:div>
</xhtml:div>
Mathias Goebel's avatar
Mathias Goebel committed
985
986
};

Mathias Goebel's avatar
Mathias Goebel committed
987
988
989
990
991
992
993
994
995
996
997
998
999
1000

(:~
 : parser for tei:listPerson, returns the index of persons
 :   :)
declare function ixp:persons($persDoc as element(tei:listPerson), $filter as xs:string+)
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>
For faster browsing, not all history is shown. View entire blame