index-processor.xqm 52.5 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

34
declare variable $ixp:dataCollection := collection($config:data-root || "/data");
Mathias Goebel's avatar
Mathias Goebel committed
35

Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
36
37
38
(:~
 : Helper function to collect all main nodes from the index files.
:)
Mathias Goebel's avatar
Mathias Goebel committed
39
declare function ixp:getNodes()
Mathias Goebel's avatar
   
Mathias Goebel committed
40
as array(*) {
Mathias Goebel's avatar
Mathias Goebel committed
41
42
43
44
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
45
let $docs := $uris ! doc($ixp:dataPath || . || '.xml')
Mathias Goebel's avatar
Mathias Goebel committed
46

Mathias Goebel's avatar
   
Mathias Goebel committed
47
return
Mathias Goebel's avatar
Mathias Goebel committed
48
    [
Mathias Goebel's avatar
Mathias Goebel committed
49
    $docs//tei:body/tei:listEvent,
Mathias Goebel's avatar
Mathias Goebel committed
50
    $docs//tei:body/tei:listOrg,
Mathias Goebel's avatar
Mathias Goebel committed
51
52
53
54
    $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
55
    $docs//tei:body//tei:list[@type="Fontane"]
Mathias Goebel's avatar
Mathias Goebel committed
56
    ]
Mathias Goebel's avatar
Mathias Goebel committed
57
58
59
};

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

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

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

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

Mathias Goebel's avatar
Mathias Goebel committed
183
184
185
186
187
(:~
 : 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
188
declare function ixp:resolve-name($uri as xs:string)
Mathias Goebel's avatar
Mathias Goebel committed
189
as xs:string {
Mathias Goebel's avatar
Mathias Goebel committed
190
    let $title := string(doc($ixp:metaCollection || $uri || '.xml')//tgmd:title)
Mathias Goebel's avatar
Mathias Goebel committed
191
    return
Mathias Goebel's avatar
   
Mathias Goebel committed
192
193
194
        if($title = "")
        then $uri
        else $title
Mathias Goebel's avatar
Mathias Goebel committed
195
196
197
};

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

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

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

(:~
Mathias Goebel's avatar
Mathias Goebel committed
231
232
233
 : 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
234
declare function ixp:variant($variant as element()*)
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
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 ",")
                }
        }
    }
};

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

Mathias Goebel's avatar
Mathias Goebel committed
304
declare function ixp:gnd-wikipedia($gndid-orig as xs:string)
305
306
307
308
309
310
311
312
313
314
315
316
317
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
318
319
let $store :=
    if(config:get("sade.develop") = "true")
Mathias Goebel's avatar
Mathias Goebel committed
320
321
322
323
    then
        if(doc-available($gndCollection || $filename))
        then $gndCollection || $filename
        else
Mathias Goebel's avatar
Mathias Goebel committed
324
325
326
327
328
            try {
                xmldb:store($gndCollection, $filename, $response)
            } catch * {
                ()
            }
Mathias Goebel's avatar
Mathias Goebel committed
329
    else ()
330
331
332
333
return
    string($response//foaf:page/@rdf:resource)
};

Mathias Goebel's avatar
Mathias Goebel committed
334
declare function ixp:wikidata-wikipedia($wikidata-id as xs:string)
Mathias Goebel's avatar
Mathias Goebel committed
335
336
337
338
339
340
341
342
343
344
345
346
347
348
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]
};

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

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

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

Mathias Goebel's avatar
Mathias Goebel committed
448
declare function ixp:has-former-or-current-location($links as element(tei:link)*)
449
450
as element(xhtml:li)* {
for $link in $links
Mathias Goebel's avatar
Mathias Goebel committed
451
452
453
454
455
456
457
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
458
let $targetNode := $ixp:dataCollection/id($id)
Mathias Goebel's avatar
Mathias Goebel committed
459
460
461
462
463
464
465
466
467
468
469
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
470
let $list := ixp:get-list-by-entity($targetNode)
471
472
473
474
return
    element xhtml:li {
        attribute class { "former-or-current-location" },
        element xhtml:a {
475
        attribute href { "register.html?e=" || $id },
476
477
        <xhtml:i class="fa fa-map-marker" aria-hidden="true"></xhtml:i>,
        "&#160;",
478
479
480
481
482
483
484
485
        $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 ()))
486
487
488
489
        }
    }
};

490
491
(:~
 : a list item with a list of links
Mathias Goebel's avatar
Mathias Goebel committed
492
 :)
Mathias Goebel's avatar
Mathias Goebel committed
493
declare function ixp:links($links as element(tei:link)*)
Mathias Goebel's avatar
Mathias Goebel committed
494
as element(xhtml:li) {
495
496
let $notebookUris :=

Mathias Goebel's avatar
Mathias Goebel committed
497
$links ! (substring-after(./@target, $ixp:targetStart) => substring(1,5) => distinct-values())
Mathias Goebel's avatar
Mathias Goebel committed
498
499
500
501
502
503
504
505
506
507
508
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
509
            ixp:link($linkMap)
Mathias Goebel's avatar
Mathias Goebel committed
510
        }
511
512
513
514
515
516
    }
};

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

551
552
553
(:~ 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.
554
 : @version 2.0
555
 :)
Mathias Goebel's avatar
Mathias Goebel committed
556
declare function ixp:links-new($entity as element()) {
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
let $id := string($entity/@xml:id)
let $prefix := ixp:get-prefix-by-entity($entity)
let $reference := $prefix || ":" || $id
let $hits := $ixp:dataCollection//tei:rs[contains(@ref, $reference)][not(@prev)]

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)
578
return
579
580
581
582
583
element xhtml:li {
    attribute class { "links" },
    if($countNotebooks = 1) then 'In Notizbuch' else ('In den Notizbüchern ',
    <span style="color:gray">({$countNotebooks} Notizbücher, insgesamt {array:size($array)} Vorkommnisse)</span>),
    element xhtml:ul {
Mathias Goebel's avatar
Mathias Goebel committed
584
        (: main list :)
585
586
587
588
589
590
591
592
593
594
595
596
597
598
        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 {
599
600
601
                    element xhtml:a {
                        attribute href {
                            "edition.html?id=%2Fxml%2Fdata%2F" || $tguri
602
                            || "&amp;page=" || $surface
603
604
                            || "&amp;target=" || $id
                        },
605
                        ($surface),
606
607
608
609
                        if($count eq 1) then ()
                        else (" ", <xhtml:span title="Anzahl an Vorkommnissen auf dieser Seite">({$count})</xhtml:span>)
                    }
                }
610
            }
611
612
613
614
615
        }
    }
}
};

Mathias Goebel's avatar
Mathias Goebel committed
616
617
(:~
 : prepares a link to the current entry
Mathias Goebel's avatar
Mathias Goebel committed
618
 : @param $id – the xml:id of the currently processed element
Mathias Goebel's avatar
Mathias Goebel committed
619
:)
Mathias Goebel's avatar
Mathias Goebel committed
620
declare function ixp:entry-link($id as attribute(xml:id))
Mathias Goebel's avatar
Mathias Goebel committed
621
622
623
624
625
as element(xhtml:span) {
    element xhtml:span {
        attribute class {"registerLink"},
        element xhtml:a {
            attribute href {
626
                "register.html?e=" || $id
Mathias Goebel's avatar
Mathias Goebel committed
627
628
629
630
631
632
                },
            <xhtml:i title="Link zu diesem Eintrag" class="fa fa-link"></xhtml:i>
        }
    }
};

Mathias Goebel's avatar
Mathias Goebel committed
633
634
635
636
(:~
 : creates a xhtml list item containing serialized code.
 : @param $node – a single element
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
637
declare function ixp:li-code($node as element(*))
Mathias Goebel's avatar
Mathias Goebel committed
638
as element(xhtml:li) {
639
640
641
642
element xhtml:li {
    attribute class {"register-code"},
    element xhtml:span {
        attribute class {"registerCode"},
Mathias Goebel's avatar
Mathias Goebel committed
643
644
            <xhtml:i title="Zeige XML" class="fa fa-code"></xhtml:i>
    },
Mathias Goebel's avatar
minor    
Mathias Goebel committed
645
    if(config:get("sade.develop") = "true")
Mathias Goebel's avatar
Mathias Goebel committed
646
647
648
649
650
    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
651
}
Mathias Goebel's avatar
Mathias Goebel committed
652
653
};

654
655
656
657
(:~
 : generic function for entries with tei:note/tei:ptr.
 : @return link to the corresponding index entry
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
658
declare function ixp:pointer($entry as element())
Mathias Goebel's avatar
Mathias Goebel committed
659
as element(xhtml:li) {
Mathias Goebel's avatar
Mathias Goebel committed
660
661
    let $labelMain := $entry/*[1]
    let $target := substring-after(($entry/tei:note/tei:ptr/@target), '#')
Mathias Goebel's avatar
Mathias Goebel committed
662
    let $targetNode := $ixp:dataCollection/id($target)
663
    return
Mathias Goebel's avatar
Mathias Goebel committed
664
        if(not($targetNode)) then <div>target not found</div> else
665
666
667
        element xhtml:li {
            attribute class {
                "registerEintrag",
Mathias Goebel's avatar
Mathias Goebel committed
668
                if( $entry >> $targetNode )
669
670
671
672
673
                then "up"
                else "down"
            },
            element xhtml:span {
                    attribute class { "label-main" },
Mathias Goebel's avatar
Mathias Goebel committed
674
                    $labelMain/text()
675
676
677
678
679
680
681
            },
            element xhtml:ul {
                element xhtml:li {
                attribute class { "pointer" },
                "siehe: ",
                    element xhtml:a {
                        attribute href { "?e=" || $target },
682
683
684
                        try {
                             string($targetNode/*[1])
                         } catch * {
Mathias Goebel's avatar
Mathias Goebel committed
685
                             (: TODO remove try catch when the data is better :)
686
687
                             "multiple entities found: " || string-join(($targetNode ! serialize(.)), " AND ")
                         }
688
689
690
691
692
                    }
                }
            }
        }
};
693

Mathias Goebel's avatar
cleanup    
Mathias Goebel committed
694
695
696
(:
 : parses a tei:bibl and mainly prepares a list item with a link to the entity
 :)
Mathias Goebel's avatar
Mathias Goebel committed
697
declare function ixp:bibl($bibls as element(tei:bibl)*)
698
699
700
as element(xhtml:li)* {
for $bibl in $bibls
    let $biblId := $bibl/tei:ptr/@target => substring-after(":")
Mathias Goebel's avatar
Mathias Goebel committed
701
    let $targetNode := $ixp:dataCollection/id($biblId)[. instance of element(tei:bibl)]
702
703
704
705
706
707
708
    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
709
            $targetNode/tei:choice/tei:abbr/string() ||
710
711
712
713
714
715
716
            (if($bibl/tei:citedRange)
            then ":&#160;" || $bibl/tei:citedRange
            else ())
            }
        }
};

Mathias Goebel's avatar
Mathias Goebel committed
717
declare function ixp:get-gnd-data($url as xs:string)
718
719
720
721
722
723
724
725
as element(rdf:RDF){
httpclient:get(xs:anyURI($url || "/about/rdf"), false(), ())//rdf:RDF
};

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

Mathias Goebel's avatar
Mathias Goebel committed
726
727
(:~
 : parser for listEvents/event entities
728
 : @param $eventDoc – the tei:listEvent containing all entries
Mathias Goebel's avatar
Mathias Goebel committed
729
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
730
declare function ixp:events($eventDoc as element(tei:listEvent))
731
as element(xhtml:div) {
Mathias Goebel's avatar
   
Mathias Goebel committed
732
<xhtml:div id="{ string-join(($eventDoc/local-name(), $eventDoc/@type), "-") }" class="tab-pane">
Mathias Goebel's avatar
Mathias Goebel committed
733
    <xhtml:div class="panel-group" aria-multiselectable="true" role="tablist">
734
735
    {for $eventList in $eventDoc/tei:listEvent
    return
Mathias Goebel's avatar
Mathias Goebel committed
736
737
        <xhtml:div class="panel panel-default">
            <xhtml:div class="panel-heading">
738
                <h4 class="panel-title">{$eventList/tei:head/text()}</h4>
Mathias Goebel's avatar
Mathias Goebel committed
739
740
            </xhtml:div>
            <xhtml:div class="panel-body">
Mathias Goebel's avatar
Mathias Goebel committed
741
                <ul class="listEvent">
742
{
Mathias Goebel's avatar
Mathias Goebel committed
743
if($ixp:getNotebook = $ixp:targetStart)
Mathias Goebel's avatar
Mathias Goebel committed
744
745
746
747
748
749
750
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
751
  return ixp:prepare-event($event)
Mathias Goebel's avatar
Mathias Goebel committed
752
753
else
  for $event in $eventList/tei:event[tei:linkGrp/tei:link
Mathias Goebel's avatar
Mathias Goebel committed
754
  [starts-with(@target, $ixp:getNotebook)]]
Mathias Goebel's avatar
Mathias Goebel committed
755
756
757
758
759
  let $sort := string($event/*[1])
                => replace("ä", "ae")
                => replace("ö", "oe")
                => replace("ü", "ue")
  order by $sort
Mathias Goebel's avatar
Mathias Goebel committed
760
  return ixp:prepare-event($event)
761
}
Mathias Goebel's avatar
Mathias Goebel committed
762
                </ul>
Mathias Goebel's avatar
Mathias Goebel committed
763
764
            </xhtml:div>
        </xhtml:div>
765
    }
Mathias Goebel's avatar
Mathias Goebel committed
766
767
    </xhtml:div>
</xhtml:div>
Mathias Goebel's avatar
Mathias Goebel committed
768
769
};

Mathias Goebel's avatar
Mathias Goebel committed
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
(:~
 : 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
803
declare function ixp:prepare-event($event as element(tei:event))
804
as element(xhtml:li) {
805
806
807
808
(: check if the item points to another entity :)
if( not(exists($event/@xml:id)) )
then
    (: pointer :)
Mathias Goebel's avatar
Mathias Goebel committed
809
    ixp:pointer($event)
810
811
else
    let $id := $event/@xml:id
Mathias Goebel's avatar
Mathias Goebel committed
812
    let $wheres := tokenize($event/@where, " ") ! substring-after(., ":")
813
814
815
816
817
818
    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
819
return
820
821
    element xhtml:li {
        attribute id { string($id) },
Mathias Goebel's avatar
Mathias Goebel committed
822
        ixp:entry-class($id),
Mathias Goebel's avatar
Mathias Goebel committed
823
        (: link to this entry :)
Mathias Goebel's avatar
Mathias Goebel committed
824
        ixp:entry-link($id),
825
826
        element xhtml:span {
                attribute class { "label-main" },
Mathias Goebel's avatar
Mathias Goebel committed
827
                $labelMain/text()
Mathias Goebel's avatar
Mathias Goebel committed
828
            },
829
        element xhtml:ul {
Mathias Goebel's avatar
Mathias Goebel committed
830
            (: variant :)
Mathias Goebel's avatar
Mathias Goebel committed
831
            ixp:variant($variant),
Mathias Goebel's avatar
Mathias Goebel committed
832
            (: secondary label :)
Mathias Goebel's avatar
Mathias Goebel committed
833
            ixp:idno($labelAlt),
Mathias Goebel's avatar
Mathias Goebel committed
834
            (: note :)
Mathias Goebel's avatar
Mathias Goebel committed
835
            ixp:note($note),
Mathias Goebel's avatar
Mathias Goebel committed
836
            (: where :)
Mathias Goebel's avatar
Mathias Goebel committed
837
            for $where in $wheres return
838
839
840
            element xhtml:li {
                attribute class { "where" },
                element xhtml:a {
841
                attribute href { "register.html?e="|| $where },
Mathias Goebel's avatar
Mathias Goebel committed
842
843
                <xhtml:i class="fa fa-map-marker" aria-hidden="true"></xhtml:i>,
                "&#160;",
Mathias Goebel's avatar
Mathias Goebel committed
844
                $ixp:dataCollection/id($where)/*[1]/string()
Mathias Goebel's avatar
Mathias Goebel committed
845
846
847
                }
            },
            (: bibl :)
Mathias Goebel's avatar
Mathias Goebel committed
848
            ixp:bibl($bibl),
Mathias Goebel's avatar
Mathias Goebel committed
849
            (: links :)
Mathias Goebel's avatar
Mathias Goebel committed
850
851
            ixp:links-new($event),
            ixp:li-code($event)
Mathias Goebel's avatar
Mathias Goebel committed
852
853
        }
    }
Mathias Goebel's avatar
Mathias Goebel committed
854
855
};

Mathias Goebel's avatar
Mathias Goebel committed
856
(:~
Mathias Goebel's avatar
Mathias Goebel committed
857
 : parser for tei:listOrg, returns the index of orgnaisations.
Mathias Goebel's avatar
Mathias Goebel committed
858
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
859
declare function ixp:orgs($orgDoc as element(tei:listOrg)+) {
Mathias Goebel's avatar
   
Mathias Goebel committed
860
861
let $result :=
<xhtml:div id="{ string-join(($orgDoc/local-name(), $orgDoc/@type), "-") }" class="tab-pane">
Mathias Goebel's avatar
Mathias Goebel committed
862
    <xhtml:div class="panel-group" aria-multiselectable="true" role="tablist">
863
864
    {for $orgList in $orgDoc
    return
Mathias Goebel's avatar
Mathias Goebel committed
865
866
        <xhtml:div class="panel panel-default">
            <xhtml:div class="panel-heading">
867
                <h4 class="panel-title">{ $orgList/tei:head/text() }</h4>
Mathias Goebel's avatar
Mathias Goebel committed
868
869
            </xhtml:div>
            <xhtml:div class="panel-body">
Mathias Goebel's avatar
Mathias Goebel committed
870
                <ul class="listOrg">
871
{
Mathias Goebel's avatar
Mathias Goebel committed
872
if($ixp:getNotebook = $ixp:targetStart)
Mathias Goebel's avatar
Mathias Goebel committed
873
874
875
876
877
878
879
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
880
  return ixp:prepare-org($org)
Mathias Goebel's avatar
   
Mathias Goebel committed
881
else
Mathias Goebel's avatar
Mathias Goebel committed
882
  for $org in $orgList/tei:org[tei:linkGrp/tei:link[starts-with(@target, $ixp:getNotebook)]]
Mathias Goebel's avatar
Mathias Goebel committed
883
884
885
886
887
  let $sort := string($org/*[1])
                => replace("ä", "ae")
                => replace("ö", "oe")
                => replace("ü", "ue")
  order by $sort
Mathias Goebel's avatar
Mathias Goebel committed
888
  return ixp:prepare-org($org)
889
}
Mathias Goebel's avatar
Mathias Goebel committed
890
                </ul>
Mathias Goebel's avatar
Mathias Goebel committed
891
892
            </xhtml:div>
        </xhtml:div>
893
    }
Mathias Goebel's avatar
Mathias Goebel committed
894
895
    </xhtml:div>
</xhtml:div>
Mathias Goebel's avatar
   
Mathias Goebel committed
896
897
return
    $result
Mathias Goebel's avatar
Mathias Goebel committed
898
899
};

Mathias Goebel's avatar
Mathias Goebel committed
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
(:~
 : 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
932
933
934
935
(:~
 : transforms a single tei:org element to a xhtml:li
 : @since 1.0
 :  :)
Mathias Goebel's avatar
Mathias Goebel committed
936
declare function ixp:prepare-org($org as element(tei:org))
Mathias Goebel's avatar
Mathias Goebel committed
937
as element(xhtml:li) {
938
939
940
941
(: check if the item points to another entity :)
if( not(exists($org/@xml:id)) )
then
    (: pointer :)
Mathias Goebel's avatar
Mathias Goebel committed
942
    ixp:pointer($org)
943
else
Mathias Goebel's avatar
Mathias Goebel committed
944
    let $id := $org/@xml:id
Mathias Goebel's avatar
Mathias Goebel committed
945
    let $labelMain := ($org/tei:orgName)[1]
Mathias Goebel's avatar
Mathias Goebel committed
946
    let $idnos := $org/tei:idno
Mathias Goebel's avatar
Mathias Goebel committed
947
    let $variant := $org/tei:orgName[@type="variant"]
Mathias Goebel's avatar
Mathias Goebel committed
948
949
950
951
    let $note := $org/tei:note
    let $bibl := $org/tei:bibl
    let $links := $org/tei:linkGrp/tei:link[@corresp="https://schema.org/mentions"]
return
952
953
    element xhtml:li {
        attribute id { string($id) },
Mathias Goebel's avatar
Mathias Goebel committed
954
        ixp:entry-class($id),
Mathias Goebel's avatar
Mathias Goebel committed
955
        (: link to this entry :)
Mathias Goebel's avatar
Mathias Goebel committed
956
        ixp:entry-link($id),
957
958
        element xhtml:span {
                attribute class { "label-main" },
Mathias Goebel's avatar
Mathias Goebel committed
959
                $labelMain/text()
Mathias Goebel's avatar
Mathias Goebel committed
960
            },
961
        element xhtml:ul {
Mathias Goebel's avatar
Mathias Goebel committed
962
            (: variant :)
Mathias Goebel's avatar
Mathias Goebel committed
963
            ixp:variant($variant),
Mathias Goebel's avatar
Mathias Goebel committed
964
            (: secondary label :)
Mathias Goebel's avatar
Mathias Goebel committed
965
            ixp:idno($idnos),
Mathias Goebel's avatar
Mathias Goebel committed
966
            (: note :)
Mathias Goebel's avatar
Mathias Goebel committed
967
            ixp:note($note),
Mathias Goebel's avatar
Mathias Goebel committed
968
            (: bibl :)
Mathias Goebel's avatar
Mathias Goebel committed
969
            ixp:bibl($bibl),
Mathias Goebel's avatar
Mathias Goebel committed
970
            (: links :)
Mathias Goebel's avatar
Mathias Goebel committed
971
972
            ixp:links-new($org),
            ixp:li-code($org)
Mathias Goebel's avatar
Mathias Goebel committed
973
974
        }
    }
Mathias Goebel's avatar
Mathias Goebel committed
975
976
};

Mathias Goebel's avatar
Mathias Goebel committed
977
(:~
Mathias Goebel's avatar
Mathias Goebel committed
978
 : parser for tei:listPerson, returns the index of persons
Mathias Goebel's avatar
Mathias Goebel committed
979
 :   :)
Mathias Goebel's avatar
Mathias Goebel committed
980
declare function ixp:persons($persDoc as element(tei:listPerson))
Mathias Goebel's avatar
Mathias Goebel committed
981
as element(xhtml:div) {
Mathias Goebel's avatar
Mathias Goebel committed
982
(: main tab :)
Mathias Goebel's avatar
   
Mathias Goebel committed
983
<xhtml:div id="{ string-join(($persDoc/local-name(), $persDoc/@type), "-") }" class="tab-pane">
Mathias Goebel's avatar
Mathias Goebel committed
984
    <xhtml:div class="panel-group" aria-multiselectable="true" role="tablist">
985
986
    {for $persList in $persDoc
    return
Mathias Goebel's avatar
Mathias Goebel committed
987
988
        <xhtml:div class="panel panel-default">
            <xhtml:div class="panel-heading">
989
990
                <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
991
992
            </xhtml:div>
            <xhtml:div class="panel-body">
Mathias Goebel's avatar
Mathias Goebel committed
993
                <ul class="listPerson">
994
{
Mathias Goebel's avatar
Mathias Goebel committed
995
if($ixp:getNotebook = $ixp:targetStart)
Mathias Goebel's avatar
Mathias Goebel committed
996
997
998
999
1000
1001
1002
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
1003
  return ixp:prepare-person($pers)
Mathias Goebel's avatar
Mathias Goebel committed
1004
else
Mathias Goebel's avatar
Mathias Goebel committed
1005
  for $pers in $persList/tei:*[tei:linkGrp/tei:link[starts-with(@target, $ixp:getNotebook)]]
Mathias Goebel's avatar
Mathias Goebel committed
1006
1007
1008
1009
1010
  let $sort := string($pers/*[1])
                => replace("ä", "ae")
                => replace("ö", "oe")
                => replace("ü", "ue")
  order by $sort
Mathias Goebel's avatar
Mathias Goebel committed
1011
  return ixp:prepare-person($pers)
1012
}
Mathias Goebel's avatar
Mathias Goebel committed
1013
                </ul>
Mathias Goebel's avatar
Mathias Goebel committed
1014
1015
            </xhtml:div>
        </xhtml:div>
1016
    }
Mathias Goebel's avatar
Mathias Goebel committed
1017
1018
    </xhtml:div>
</xhtml:div>
Mathias Goebel's avatar
Mathias Goebel committed
1019
1020
};

Mathias Goebel's avatar
Mathias Goebel committed
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057

(:~
 : 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>
                </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>
};

Mathias Goebel's avatar
Mathias Goebel committed
1058
declare function ixp:prepare-person($pers as element(*)+)
Mathias Goebel's avatar
Mathias Goebel committed
1059
as element(xhtml:li) {
Mathias Goebel's avatar
Mathias Goebel committed
1060
1061
1062
1063
(: check if the item points to another entity :)
if( not(exists($pers/@xml:id)) )
then
    (: pointer :)
Mathias Goebel's avatar
Mathias Goebel committed
1064
    ixp:pointer($pers)
Mathias Goebel's avatar
Mathias Goebel committed
1065
1066
1067
else
    (: entity :)
    let $id := $pers/@xml:id
Mathias Goebel's avatar
Mathias Goebel committed
1068
1069
    let $labelMain := $pers/tei:persName[1]
    let $labelAlt := $pers/tei:persName[not(@type="variant")][position() gt 1]
Mathias Goebel's avatar
Mathias Goebel committed
1070
    let $variant := $pers/tei:persName[@type="variant"]
Mathias Goebel's avatar
Mathias Goebel committed
1071
1072
1073
1074
1075
1076
1077
    let $idnos := $pers/tei:idno
    let $birth := $pers/tei:birth
    let $death := $pers/tei:death
    let $occupation := $pers/tei:occupation
    let $state := $pers/tei:state/tei:desc
    let $note := $pers/tei:note
    let $bibl := $pers/tei:bibl
1078
1079
    let $members := $pers/tei:linkGrp/tei:link[@corresp="http://erlangen-crm.org/current/P107_has_current_or_former_member"]
    let $creator := $pers/tei:linkGrp/tei:link[@corresp="http://purl.org/dc/terms/creator"]
Mathias Goebel's avatar
Mathias Goebel committed
1080
1081
    let $links := $pers/tei:linkGrp/tei:link[@corresp="https://schema.org/mentions"]
    return
1082
1083
        element xhtml:li {
            attribute id { string($id) },
Mathias Goebel's avatar
Mathias Goebel committed
1084
            ixp:entry-class($id),
Mathias Goebel's avatar
Mathias Goebel committed
1085
            (: link to this entry :)
Mathias Goebel's avatar
Mathias Goebel committed
1086
            ixp:entry-link($id),
1087
1088
            element xhtml:span {
                    attribute class { "label-main" },
Mathias Goebel's avatar
Mathias Goebel committed
1089
                    $labelMain/text()
Mathias Goebel's avatar
Mathias Goebel committed
1090
                },
1091
            element xhtml:ul {
Mathias Goebel's avatar
Mathias Goebel committed
1092
                (: variant :)
Mathias Goebel's avatar
Mathias Goebel committed
1093
                ixp:variant($variant),
Mathias Goebel's avatar
Mathias Goebel committed
1094
                (: secondary label :)
Mathias Goebel's avatar
Mathias Goebel committed
1095
                for $l in $labelAlt
Mathias Goebel's avatar
Mathias Goebel committed
1096
                return
1097
1098
                    element xhtml:li {
                    attribute class {"label-" || string($l/@type)},
Mathias Goebel's avatar
Mathias Goebel committed
1099
1100
1101
1102
1103
                    $l/text(),
                    if($l/@type = "variant")
                    then ()
                    else (
                        "&#160;",
1104
1105
                        element xhtml:a {
                            attribute href { string($l/@xml:base) || string($l) },
Mathias Goebel's avatar
Mathias Goebel committed
1106
1107
1108
1109
1110
                            <xhtml:i title="Link zu externer Ressource" class="fa fa-external-link"></xhtml:i>
                        }
                    )
                },
                (: idno :)
Mathias Goebel's avatar
Mathias Goebel committed
1111
                ixp:idno($idnos),
Mathias Goebel's avatar
Mathias Goebel committed
1112
1113
                (: birth, death :)
                if( not($birth or $death) ) then () else
1114
                    element xhtml:li {