bit-badger/PrayerTracker
1
0
Fork 0
Code Issues 2 Pull Requests Packages Projects Releases 16 Activity

Add order by field via library

Browse Source
This commit is contained in:
Daniel J. Summers 2025-05-26 09:58:37 -04:00
parent 0c1285eaa7
commit 733a730591
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Data/Access.fs
View File

@ -136,7 +136,10 @@ module SmallGroups =
INNER JOIN {Table.Church} c ON c.data->>'id' = g.data->>'churchId'" INNER JOIN {Table.Church} c ON c.data->>'id' = g.data->>'churchId'"
/// The ORDER BY clause for select list item queries /// The ORDER BY clause for select list item queries
let private itemOrderBy = "ORDER BY c.data->>'name', g.data->>'name'" let private itemOrderBy =
Query.orderBy
[ { Field.Named "name" with Qualifier = Some "c" }; { Field.Named "name" with Qualifier = Some "g" } ]
SQLite
/// Map a row to a Small Group list item /// Map a row to a Small Group list item
let private toSmallGroupItem (rdr: SqliteDataReader) = let private toSmallGroupItem (rdr: SqliteDataReader) =
@ -193,7 +196,7 @@ module SmallGroups =
$"{infoQuery} $"{infoQuery}
WHERE g.data->'preferences'->>'isPublic' = TRUE WHERE g.data->'preferences'->>'isPublic' = TRUE
OR COALESCE(g.data->'preferences'->>'groupPassword', '') <> '' OR COALESCE(g.data->'preferences'->>'groupPassword', '') <> ''
ORDER BY c.data->>'churchName', g.data->>'groupName'" {itemOrderBy}"
[] []
SmallGroupInfo.FromReader SmallGroupInfo.FromReader