Commit 7dce5289 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[facet] fix abstract search for documents

parent 1d311b08
...@@ -334,8 +334,9 @@ viewDocuments cId t mQuery = proc () -> do ...@@ -334,8 +334,9 @@ viewDocuments cId t mQuery = proc () -> do
let query = (fromMaybe "" mQuery) let query = (fromMaybe "" mQuery)
iLikeQuery = T.intercalate "" ["%", query, "%"] iLikeQuery = T.intercalate "" ["%", query, "%"]
abstractLHS h = fromNullable (pgStrictText "") $ toNullable h .->> (pgStrictText "abstract")
restrict -< ((n^.node_name) `ilike` (pgStrictText iLikeQuery)) .|| restrict -< ((n^.node_name) `ilike` (pgStrictText iLikeQuery)) .||
((fromNullable (pgStrictText "") ((toNullable $ n^.node_hyperdata) .->> (pgStrictText "source"))) `ilike` (pgStrictText iLikeQuery)) (abstractLHS (n^.node_hyperdata)) `ilike` (pgStrictText iLikeQuery)
--((n^.node_hyperdata .:? "source") `ilike` (pgStrictText iLikeQuery)) --((n^.node_hyperdata .:? "source") `ilike` (pgStrictText iLikeQuery))
-- NOTE Title is under node_name -- NOTE Title is under node_name
-- Abstract is under node_hyperdata -> source -- Abstract is under node_hyperdata -> source
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment