Changeset 26887 in project


Ignore:
Timestamp:
06/12/12 20:01:06 (9 years ago)
Author:
sjamaan
Message:

qwiki: Only show pager when there are more than 1 pages ;)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/qwiki/trunk/qwiki-search.scm

    r26877 r26887  
    199199                                                matches)))))
    200200                                   docs))
    201                            (ol (@ (class "pager"))
    202                                ,(search-result-page
    203                                  "Previous" "prev-page" (sub1 page)
    204                                  page num-pages)
    205                                ,@(list-tabulate
    206                                   num-pages
    207                                   (lambda (p)
    208                                     (search-result-page
    209                                      (->string (add1 p)) "page-nr" p
    210                                      page num-pages)))
    211                                ,(search-result-page
    212                                  "Next" "next-page" (add1 page)
    213                                  page num-pages))))))))))))
     201                           ,@(if (> num-pages 1)
     202                                 `((ol (@ (class "pager"))
     203                                       ,(search-result-page
     204                                         "Previous" "prev-page" (sub1 page)
     205                                         page num-pages)
     206                                       ,@(list-tabulate
     207                                          num-pages
     208                                          (lambda (p)
     209                                            (search-result-page
     210                                             (->string (add1 p)) "page-nr" p
     211                                             page num-pages)))
     212                                       ,(search-result-page
     213                                         "Next" "next-page" (add1 page)
     214                                         page num-pages)))
     215                                 '())))))))))))
    214216
    215217(define (search-install!)
Note: See TracChangeset for help on using the changeset viewer.