From 910181cdd988f77d42be10537f4565052f9a084c Mon Sep 17 00:00:00 2001 From: Eugenia Date: Fri, 24 Jun 2022 13:08:04 +0200 Subject: [PATCH] Update apprest.xqm syncing old changes by PL with github --- db/apps/BetMasWeb/modules/apprest.xqm | 35 ++++++++++++++++----------- 1 file changed, 21 insertions(+), 14 deletions(-) diff --git a/db/apps/BetMasWeb/modules/apprest.xqm b/db/apps/BetMasWeb/modules/apprest.xqm index 4923e3a9c..3483e97f9 100644 --- a/db/apps/BetMasWeb/modules/apprest.xqm +++ b/db/apps/BetMasWeb/modules/apprest.xqm @@ -660,6 +660,7 @@ return (' ' || $change/text() || $ES || ' on ' || format-date($time, '[D].[M].[Y]'))} } + @@ -736,28 +737,34 @@ return

Attributions of the contents

-
+
{for $respStmt in $document//t:titleStmt/t:respStmt - let $action := $respStmt/t:resp - return - - if($respStmt/t:persName) then + let $task := $respStmt/t:resp + let $action := string-join($respStmt/t:resp, ' ') + return + if($respStmt/t:persName) then ( let $authors := - - for $p in $respStmt/t:persName + for $p in $respStmt/t:persName return (if($p/@ref) then editors:editorKey(string($p/@ref)) else $p) || (if($p/@from or $p/@to) then (' ('||'from '||$p/@from || ' to ' ||$p/@to||')') else ()) order by $action descending return -

- {($action || ' by ' || string-join($authors, ', '))} -

) - else

{$respStmt/t:name/text() || ', ' || $respStmt/t:resp/text()}

+
    + {for $task in $respStmt + return +
  • {$action || ' by ' || string-join($authors, ', ')}
  • } +
) + else + for $task in $respStmt + return +
  • {$respStmt/t:name/text() || ', ' || $respStmt/t:resp/text()}
  • + } +
    -
    +
    {if($document//t:editionStmt/node()) then
    {string:tei2string($document//t:editionStmt/node())}
    else ()} {if($document//t:availability/node()) then
    {string:tei2string($document//t:availability/node())}
    else ()}
    @@ -1766,7 +1773,7 @@ if($mss = '') then () else(
    - {exptit:printTitleID($msid)} +{exptit:printTitleID($msid)} ({string($minnotBefore)}-{string($maxnotAfter)})
    @@ -1832,4 +1839,4 @@ else ( {if($t = '') then