diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-10 20:42:13 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-10 20:42:13 +0100 |
| commit | 559777bb473f27fb0d6ec7e739856386e07fee62 (patch) | |
| tree | fe5c28f98109915cbf407bb4a67152c982ab04e9 /mulkcms-hunchentoot.lisp | |
| parent | 68a037c4a34f1f09aee68c9bcca9b65aa60a01a2 (diff) | |
Add the journal archive.
Diffstat (limited to 'mulkcms-hunchentoot.lisp')
| -rw-r--r-- | mulkcms-hunchentoot.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp index 205534f..664658d 100644 --- a/mulkcms-hunchentoot.lisp +++ b/mulkcms-hunchentoot.lisp @@ -13,13 +13,14 @@ (defun dispatch-mulkcms-request (request) (let* ((relative-path (subseq (script-name request) 1))) - (mulkcms::find-mulkcms-request-handler relative-path))) + (or (mulkcms::find-journal-archive-request-handler relative-path) + (mulkcms::find-article-request-handler relative-path)))) (defun setup-handlers () (setq *dispatch-table* - (list* 'dispatch-static-file-request - (create-prefix-dispatcher "/admin" 'handle-admin-request) + (list* (create-prefix-dispatcher "/admin" 'handle-admin-request) 'dispatch-mulkcms-request + 'dispatch-static-file-request *dispatch-table*)) (setq *default-handler* 'handle-mulkcms-request)) |