@@ -4,12 +4,12 @@ ◊; This file is licensed under the Blue Oak Model License 1.0.0. ◊(require pollen/template db/base racket/list racket/match) ◊(define (fetch-series) - (define q "SELECT noun_plural, pagenode, title FROM series ORDER BY noun_plural DESC") - (query-rows (sqltools:dbc) q)) + (define q "SELECT noun_plural, page, title FROM series ORDER BY noun_plural DESC") + (query-rows cache-conn q)) ◊(define (series-item->txpr s) (match-define (list n pagenode title) s) `(li (a [[href ,pagenode]] (i ,title))))