Changeset 12389 in project


Ignore:
Timestamp:
11/06/08 21:24:26 (13 years ago)
Author:
sjamaan
Message:

Fix pagination, silly mistake: alist-ref takes the key and then the list, not the other way around

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/sxml-fu/sxml-pagination.scm

    r12365 r12389  
    4545  (let ((page (inexact->exact
    4646               (or (string->number
    47                     (alist-ref (uri-query (base-uri)) (page-var) string=? "1"))
     47                    (alist-ref (page-var) (uri-query (base-uri)) string=? "1"))
    4848                   1))))
    4949    (cond
     
    124124;; XXX Hack, for now
    125125(define (make-uri-string pg)
    126   (uri->string
    127    (uri-relative-to
    128     (uri-reference
    129      (sprintf "?~A" (string-join
    130                      (map (lambda (p)
    131                             (conc (car p) "=" (cdr p)))
    132                           (alist-update! (page-var) pg (uri-query (base-uri))))
    133                      "&")))
    134     (base-uri))))
     126  (sprintf "~A://~A~A~A?~A"
     127           (uri-scheme (base-uri))
     128           (uri-host (base-uri))
     129           (if (uri-port (base-uri)) (conc ":" (uri-port (base-uri))) "")
     130           (string-join (uri-path (base-uri)) "/")
     131           (string-join
     132            (map (lambda (p)
     133                   (conc (car p) "=" (cdr p)))
     134                 (alist-update! (page-var) pg (uri-query (base-uri))))
     135            "&")))
    135136
    136137(define pagination-rules
Note: See TracChangeset for help on using the changeset viewer.