diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-10 21:04:05 +0100 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-10 21:04:05 +0100 |
commit | 252095da751cc09dcbfeadbcfac15b148d279898 (patch) | |
tree | 52c2d41dfe28def323720646cb2de0a557cd325d /mulkcms-hunchentoot.lisp | |
parent | 559777bb473f27fb0d6ec7e739856386e07fee62 (diff) |
Add a table of all journal articles to the journal archive page.
Diffstat (limited to 'mulkcms-hunchentoot.lisp')
-rw-r--r-- | mulkcms-hunchentoot.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp index 664658d..3200110 100644 --- a/mulkcms-hunchentoot.lisp +++ b/mulkcms-hunchentoot.lisp @@ -13,7 +13,9 @@ (defun dispatch-mulkcms-request (request) (let* ((relative-path (subseq (script-name request) 1))) - (or (mulkcms::find-journal-archive-request-handler relative-path) + (or (mulkcms::find-journal-archive-request-handler + relative-path + (assoc "full" (get-parameters*) :test #'equal)) (mulkcms::find-article-request-handler relative-path)))) (defun setup-handlers () |