add works BEACON file and redirections #169

controller.xql

@@ -241,6 +241,17 @@ else if (matches($exist:path, '^/gkd_beacon.txt$')) then
     	   <cache-control cache="yes"/>
     	</forward>
     </dispatch>
+
+(: Works Beacon :)
+else if (matches($exist:path, '^/works_beacon.txt$')) then
+    <dispatch xmlns="http://exist.sourceforge.net/NS/exist">
+    	<forward url="{concat($exist:controller, '/modules/dev/api.xql')}">
+    	   <add-parameter name="func" value="create-beacon"/>
+    	   <add-parameter name="type" value="works"/>
+    	   <add-parameter name="format" value="txt"/>
+    	   <cache-control cache="yes"/>
+    	</forward>
+    </dispatch>
 
 (: correspDesc Beacon :)
 else if (matches($exist:path, '^/correspDesc.xml$')) then

modules/controller.xqm

@@ -403,7 +403,8 @@ declare function controller:translate-URI($uri as xs:string, $sourceLang as xs:s
 };
 
 declare function controller:redirect-by-gnd($exist-vars as map(*)) as element(exist:dispatch) {
-    let $doc := query:doc-by-gnd(controller:basename($exist-vars('exist:resource')))
+    (: especially for works there can be several documents with the same GND :)
+    let $doc := query:doc-by-gnd(controller:basename($exist-vars('exist:resource')))[last()]
     let $media-type := controller:media-type($exist-vars)
     return
         if(exists($doc) and $media-type) then controller:redirect-absolute(controller:path-to-resource($doc, $exist-vars('lang')) || '.' || $media-type)

modules/dev/api.xql

@@ -72,29 +72,35 @@ declare function local:diaryDay-to-kml($params as map(*)) as element(kml:Placema
     </kml:kml>
 };
 
-
+(:~
+ :  Create BEACON files
+ :  (see https://de.wikipedia.org/wiki/Wikipedia:BEACON)
+~:)
 declare function local:create-beacon($params as map(*)) as xs:string {
     let $callBack := function($type as xs:string) {
         let $pnds := 
             switch($type)
             case 'pnd' return core:data-collection('persons')//tei:idno[@type='gnd']
             case 'gkd' return core:data-collection('orgs')//tei:idno[@type='gnd']
+            case 'works' return core:data-collection('works')//mei:altId[@type='gnd']
             default return ()
         let $desc := 
             switch($type)
             case 'pnd' return '#DESCRIPTION: Personendatensätze der Carl Maria von Weber Gesamtausgabe'
             case 'gkd' return '#DESCRIPTION: Datensätze Organisationen/Körperschaften der Carl Maria von Weber Gesamtausgabe'
+            case 'works' return '#DESCRIPTION: Werkdatensätze der Carl Maria von Weber Gesamtausgabe'
             default return ()
         let $feed := 
             switch($type)
             case 'pnd' return '#FEED: http://weber-gesamtausgabe.de/pnd_beacon.txt'
             case 'gkd' return '#FEED: http://weber-gesamtausgabe.de/gkd_beacon.txt'
+            case 'works' return '#FEED: http://weber-gesamtausgabe.de/works_beacon.txt'
             default return ()
         let $header := (
             '#FORMAT: BEACON',
             '#PREFIX: http://d-nb.info/gnd/',
             '#VERSION: 0.1',
-            '#TARGET: http://www.weber-gesamtausgabe.de/de/gnd/{ID}',
+            '#TARGET: https://weber-gesamtausgabe.de/de/gnd/{ID}',
             $feed,
             '#CONTACT: Peter Stadler <stadler [ at ] weber-gesamtausgabe.de>',
             '#INSTITUTION: Carl Maria von Weber Gesamtausgabe (WeGA)',
@@ -111,6 +117,7 @@ declare function local:create-beacon($params as map(*)) as xs:string {
         switch($params('type'))
         case 'pnd' return 'pnd_beacon.txt'
         case 'gkd' return 'gkd_beacon.txt'
+        case 'works' return 'works_beacon.txt'
         default return ()
     let $onFailureFunc := function($errCode, $errDesc) {
         core:logToFile('warn', string-join(($errCode, $errDesc), ' ;; '))
@@ -125,6 +132,7 @@ declare function local:create-beacon($params as map(*)) as xs:string {
             )
         )
 };
+
 (:http://localhost:8080/exist/apps/WeGA-WebApp/dev/api.xql?func=facets&docID=indices&docType=letters&facet=sender&format=json:)
 declare function local:facets($params as map(*))  {
     let $search := search:results(<span/>, map { 'docID' := $params('docID') }, $params('docType'))

modules/query.xqm

@@ -82,7 +82,7 @@ declare function query:get-author-element($doc as document-node()?) as element()
  : @param $gnd the GND (Gemeinsame Normdatei = German Authority File) identifier
  : @return xs:string
 :)
-declare function query:doc-by-gnd($gnd as xs:string) as document-node()? {
+declare function query:doc-by-gnd($gnd as xs:string) as document-node()* {
     core:getOrCreateColl('persons', 'indices', true())//tei:idno[.=$gnd][@type='gnd']/root() |
     core:getOrCreateColl('orgs', 'indices', true())//tei:idno[.=$gnd][@type='gnd']/root() |
     core:getOrCreateColl('works', 'indices', true())//mei:altId[.=$gnd][@type='gnd']/root()