added correspDesc module

Edirom · May 30, 2014 · 665c6d8 · 665c6d8
1 parent eba4b05
commit 665c6d8
Show file tree

Hide file tree

Showing 2 changed files with 94 additions and 0 deletions.
diff --git a/webapp/controller.xql b/webapp/controller.xql
@@ -525,6 +525,14 @@ else if (matches($exist:path, '^/pnd_beacon.txt$')) then
     	</forward>
     </dispatch>
 
+(: correspDesc Beacon :)
+else if (matches($exist:path, '^/correspDesc.xml$')) then
+    <dispatch xmlns="http://exist.sourceforge.net/NS/exist">
+    	<forward url="{concat($exist:controller, '/modules/correspDesc.xql')}">
+    	   <cache-control cache="yes"/>
+    	</forward>
+    </dispatch>
+
 (: Sitemap :)
 else if (matches($exist:path, '^/sitemap(/?|/index.xml)?$') or matches($exist:path, '^/sitemap/sitemap_(en|de).xml.(gz|zip)$')) then
     <dispatch xmlns="http://exist.sourceforge.net/NS/exist">

diff --git a/webapp/modules/correspDesc.xql b/webapp/modules/correspDesc.xql
@@ -0,0 +1,86 @@
+xquery version "3.0" encoding "UTF-8";
+
+declare namespace tei="http://www.tei-c.org/ns/1.0";
+declare namespace exist="http://exist.sourceforge.net/NS/exist";
+declare namespace ct="http://wiki.tei-c.org/index.php/SIG:Correspondence/task-force-correspDesc";
+
+import module namespace wega="http://xquery.weber-gesamtausgabe.de/modules/wega" at "wega.xqm";
+import module namespace core="http://xquery.weber-gesamtausgabe.de/modules/core" at "core.xqm";
+import module namespace config="http://xquery.weber-gesamtausgabe.de/modules/config" at "config.xqm";
+
+declare function ct:create-header() as element(tei:teiHeader) {
+    <teiHeader xmlns="http://www.tei-c.org/ns/1.0">
+        <fileDesc>
+            <titleStmt>
+                <title>Correspondence Descriptions from the Carl-Maria-von-Weber-Gesamtausgabe</title>
+                <editor>Peter Stadler (<email>stadler@weber-gesamtausgabe.de</email>)</editor>
+            </titleStmt>
+            <publicationStmt>
+                <authority><ref target="http://www.weber-gesamtausgabe.de">Carl-Maria-von-Weber-Gesamtausgabe</ref></authority>
+                <availability>
+                    <licence>
+                        <p>CC+BY and BSD-2 licences</p>
+                    </licence>
+                </availability>
+            </publicationStmt>
+            <sourceDesc>
+                <p>Born digital</p>
+            </sourceDesc>
+        </fileDesc>
+    </teiHeader>
+};
+
+declare function ct:create-text($correspDescs as element(tei:correspDesc)*) as element(tei:text) {
+    <text xmlns="http://www.tei-c.org/ns/1.0">
+        <body>
+            <listBibl>{
+                for $i in $correspDescs
+                return ct:create-correspDesc($i)
+            }</listBibl>
+        </body>
+    </text>
+};
+
+declare function ct:create-correspDesc($correspDesc as element(tei:correspDesc)) as element(ct:correspDesc) {
+    <ct:correspDesc corresp="{concat('http://www.weber-gesamtausgabe.de/', $correspDesc/ancestor::tei:TEI/@xml:id)}">{
+        for $person in ($correspDesc/tei:sender, $correspDesc/tei:addressee) return ct:create-sender-or-addressee($person),
+        for $place in ($correspDesc/tei:placeSender, $correspDesc/tei:placeAddressee) return ct:create-places($place),
+        for $date in ($correspDesc/tei:dateSender, $correspDesc/tei:dateAddressee) return ct:create-dates($date)
+    }</ct:correspDesc>
+};
+
+declare function ct:create-sender-or-addressee($input as element()) as element() {
+    let $id := $input//@key[1]
+    let $gnd := if($id) then wega:getGND(string($id)) else ()
+    return 
+        element {xs:QName('ct:' || local-name($input))} {
+            if($gnd) then attribute {'ref'} {'http://d-nb.info/gnd/' || $gnd} else (),
+            normalize-space($input/*[1])
+        }
+};
+
+declare function ct:create-dates($input as element()) as element() {
+    element {xs:QName('ct:' || local-name($input))} {
+        $input/tei:date/@*[local-name(.) ne 'n'](:,
+        normalize-space($input):)
+    }
+};
+
+declare function ct:create-places($input as element()) as element() {
+    let $placeName := normalize-space($input/tei:placeName[1])
+    let $geoID := core:data-collection('places')//tei:placeName[. = $placeName]/following-sibling::tei:idno
+    return 
+        element {xs:QName('ct:' || local-name($input))} {
+            if($geoID) then attribute {'ref'} {'http://www.geonames.org/' || $geoID[1]} else (),
+            $placeName
+        }
+};
+
+declare function ct:corresp-list() as element(tei:TEI) {
+    <TEI xmlns="http://www.tei-c.org/ns/1.0">{
+        ct:create-header(),
+        ct:create-text(core:data-collection('letters')//tei:correspDesc)
+    }</TEI>
+};
+
+core:cache-doc(core:join-path-elements(($config:tmp-collection-path, 'correspDesc.xml')), ct:corresp-list#0, (), false())