Fix page pagination on RethinkDB

2026-07-24 22:13:03 -04:00
parent 2f22a1a2d7
commit a380c7ea70
2 changed files with 2 additions and 2 deletions
@@ -572,7 +572,7 @@ type RethinkDbData(conn: Net.IConnection, config: DataConfig, log: ILogger<Rethi
                               .With(nameof Page.Empty.Revisions, [||]))
                    orderByFunc (fun row -> row[nameof Page.Empty.Title].Downcase())
                    skip ((pageNbr - 1) * 25)
-                    limit 25
+                    limit 26
                    result; withRetryDefault conn
                }

@@ -83,7 +83,7 @@ let pageList (pages: DisplayPage list) pageNbr hasNext app = [
                ]
            if pageNbr > 1 || hasNext then
                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 [] [
                        if pageNbr > 1 then
                            let prevPage = if pageNbr = 2 then "" else $"/page/{pageNbr - 1}"