final updates of the BEACON xql

app/modules/BEACON_gen.xql

@@ -13,7 +13,7 @@ let $header :=
   concat(
       "#FORMAT: BEACON
",
       "#NAME: Digital Edition of Fernando Pessoa
",
-      "#TARGET: http://www.pessoadigital.pt/de/index/
",
+      "#TARGET: http://www.pessoadigital.pt/
",
       "#FEED: http://www.pessoadigital.pt/de/index/names/lod/PD_BEACON.txt
",
       "#CONTACT: Ulrike Henny-Krahmer  <[email protected]> 
",
       "#MESSAGE: Mentions in the digital edition of Fernando Pessoa
",
@@ -32,35 +32,35 @@ return (
     let $person_id := $person/@xml:id
     return (
         for $viaf_id in $person/tei:idno[@type='viaf']
-        return if ($viaf_id) then concat('http://viaf.org/viaf/',$viaf_id, '||', 'names#',$person_id, '
') else (),
+        return if ($viaf_id) then concat('http://viaf.org/viaf/',$viaf_id, '||', 'index/names#',$person_id, '
') else (),
         for $gnd_id in $person/tei:idno[@type='gnd']
-        return if ($gnd_id) then concat('http://d-nb.info/gnd/',$gnd_id, '||', 'names#',$person_id, '
') else (),
+        return if ($gnd_id) then concat('http://d-nb.info/gnd/',$gnd_id, '||', 'index/names#',$person_id, '
') else (),
         for $wikidata_id in $person/tei:idno[@type='wikidata']
-        return if ($wikidata_id) then concat('https://www.wikidata.org/wiki/',$wikidata_id, '||', 'names#',$person_id, '
') else ()
+        return if ($wikidata_id) then concat('https://www.wikidata.org/wiki/',$wikidata_id, '||', 'index/names#',$person_id, '
') else ()
       )
   ),
   (
     for $periodical in $doc//tei:list[@type='periodical']/tei:item
     let $periodical_id := $periodical/@xml:id/data(.)
     return (
         for $viaf_id in $periodical/tei:idno[@type='viaf']
-        return if ($viaf_id) then concat('http://viaf.org/viaf/',$viaf_id, '||', 'periodicals#',$periodical_id, '
') else (),
+        return if ($viaf_id) then concat('http://viaf.org/viaf/',$viaf_id, '||', 'index/periodicals#',$periodical_id, '
') else (),
         for $gnd_id in $periodical/tei:idno[@type='gnd']
-        return if ($gnd_id) then concat('http://d-nb.info/gnd/',$gnd_id, '||', 'periodicals#',$periodical_id, '
') else (),
+        return if ($gnd_id) then concat('http://d-nb.info/gnd/',$gnd_id, '||', 'index/periodicals#',$periodical_id, '
') else (),
         for $wikidata_id in $periodical/tei:idno[@type='wikidata']
-        return if ($wikidata_id) then concat('https://www.wikidata.org/wiki/',$wikidata_id, '||', 'periodicals#',$periodical_id, '
') else ()
+        return if ($wikidata_id) then concat('https://www.wikidata.org/wiki/',$wikidata_id, '||', 'index/periodicals#',$periodical_id, '
') else ()
       )
    ),
      (
     for $publication in $doc//tei:list[@type='publications']/tei:item
     let $publication_id := $publication/@xml:id/data(.)
     return (
         for $viaf_id in $publication/tei:idno[@type='viaf']
-        return if ($viaf_id) then concat('http://viaf.org/viaf/',$viaf_id, '||', 'publications#',$publication_id, '
') else (),
+        return if ($viaf_id) then concat('http://viaf.org/viaf/',$viaf_id, '||', 'pub/',$publication_id, '
') else (),
         for $gnd_id in $publication/tei:idno[@type='gnd']
-        return if ($gnd_id) then concat('http://d-nb.info/gnd/',$gnd_id, '||', 'publications#',$publication_id, '
') else (),
+        return if ($gnd_id) then concat('http://d-nb.info/gnd/',$gnd_id, '||', 'pub/',$publication_id, '
') else (),
         for $wikidata_id in $publication/tei:idno[@type='wikidata']
-        return if ($wikidata_id) then concat('https://www.wikidata.org/wiki/',$wikidata_id, '||', 'publications#',$publication_id, '
') else ()
+        return if ($wikidata_id) then concat('https://www.wikidata.org/wiki/',$wikidata_id, '||', 'pub/',$publication_id, '
') else ()
       )
    )
 )