fix callback function

Edirom · Nov 8, 2024 · b23fc14 · b23fc14
1 parent 060caf0
commit b23fc14
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/add/data/xql/search.xql b/add/data/xql/search.xql
@@ -25,11 +25,16 @@ declare option output:media-type "text/html";
 
 (: FUNCTION DECLARATIONS =================================================== :)
 
-declare function local:filter($node as node(), $mode as xs:string) as xs:string? {
+(:~
+ : Callback function for `kwic:get-summary`
+ : Contrary to the documentation at https://exist-db.org/exist/apps/doc/kwic (1Q18)
+ : this function has to return a node(), see https://github.com/eXist-db/exist/issues/4239
+ :)
+declare function local:filter($node as node(), $mode as xs:string) as node()? {
     if ($mode eq 'before') then
-        concat($node, ' ')
+        text { concat($node, ' ') }
     else
-        concat(' ', $node)
+        text { concat(' ', $node) }
 };
 
 declare function local:getPath($node as node()) as xs:string {
@@ -158,7 +163,7 @@ let $return :=
                                         else
                                             ('')
                                     }">{
-                                    kwic:get-summary(kwic:expand($match), ($match/exist:match)[1], <config width="100" link="loadLink('xmldb:exist://{$uri}{
+                                    kwic:get-summary($match, ($match/exist:match)[1], <config width="100" link="loadLink('xmldb:exist://{$uri}{
                                                 if ($internalId) then
                                                     (concat('#', $internalId))
                                                 else