diff --git a/add/data/xql/getAnnotationsInText.xql b/add/data/xql/getAnnotationsInText.xql index d522e506..206c8b9c 100644 --- a/add/data/xql/getAnnotationsInText.xql +++ b/add/data/xql/getAnnotationsInText.xql @@ -49,13 +49,12 @@ declare function local:getAnnotations($uriSharp as xs:string, $annotations as el let $plist as array(*) := array { for $p in tokenize($annotation/@plist, '\s+') + where starts-with($p, $uriSharp) return - if (starts-with($p, $uriSharp)) then - (concat('{id:"', $id, '__', substring-after($p, $uriSharp), '"}')) - else - () + map { + 'id': concat( $id, '__', substring-after($p, $uriSharp)) + } } - let $plist := string-join($plist, ',') return map { 'id': $id,