From 559777bb473f27fb0d6ec7e739856386e07fee62 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Thu, 10 Mar 2011 20:42:13 +0100 Subject: Add the journal archive. --- mulkcms-hunchentoot.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'mulkcms-hunchentoot.lisp') 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)) -- cgit v1.2.3