@@ -166,14 +166,14 @@ ;; ~~~ (Mainly for use on Series pages ~~~ ;; (private) Create a WHERE clause matching a single series or list of series (define (where/series s) (cond [(list? s) - (let ([series (map (curry (format "~a/~a.html" series-path)) s)]) + (let ([series (map (curry (format "~a/~a.html" series-folder)) s)]) (format "WHERE `series_pagenode` IN ~a" (list->sql-values series)))] [(string? s) - (format "WHERE `series_pagenode` IS \"~a/~a.html\"" series-path s)] + (format "WHERE `series_pagenode` IS \"~a/~a.html\"" series-folder s)] [(equal? s #t) (format "WHERE `series_pagenode` IS \"~a\"" (here-output-path))] [else ""])) ;; (private) Return a combined list of articles and notes sorted by date