bit-badger/myWebLog
1
0
Fork 0
Code Issues 1 Pull Requests Packages Projects Releases 11 Activity

Fix page pagination on RethinkDB

Browse Source
This commit is contained in:
Daniel J. Summers
2026-07-24 22:13:03 -04:00
parent 2f22a1a2d7
commit a380c7ea70
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/MyWebLog.Data/RethinkDbData.fs
+1 -1
View File
@@ -572,7 +572,7 @@ type RethinkDbData(conn: Net.IConnection, config: DataConfig, log: ILogger<Rethi
.With(nameof Page.Empty.Revisions, [||])) .With(nameof Page.Empty.Revisions, [||]))
orderByFunc (fun row -> row[nameof Page.Empty.Title].Downcase()) orderByFunc (fun row -> row[nameof Page.Empty.Title].Downcase())
skip ((pageNbr - 1) * 25) skip ((pageNbr - 1) * 25)
limit 25 limit 26
result; withRetryDefault conn result; withRetryDefault conn
} }
src/MyWebLog/Views/Page.fs
+1 -1
View File
@@ -83,7 +83,7 @@ let pageList (pages: DisplayPage list) pageNbr hasNext app = [
] ]
if pageNbr > 1 || hasNext then if pageNbr > 1 || hasNext then
let aAttrs link = [ _href (relUrl app link); _hxBoost; _class "btn btn-secondary" ] let aAttrs link = [ _href (relUrl app link); _hxBoost; _class "btn btn-secondary" ]
div [ _class "d-flex justify-content-evenly mb-3" ] [ div [ _class "d-flex justify-content-evenly mb-3 mt-3" ] [
div [] [ div [] [
if pageNbr > 1 then if pageNbr > 1 then
let prevPage = if pageNbr = 2 then "" else $"/page/{pageNbr - 1}" let prevPage = if pageNbr = 2 then "" else $"/page/{pageNbr - 1}"