r5381: *** empty log message ***

[wol.git] / project.lisp

diff --git a/project.lisp b/project.lisp
index a0d40610b561d6468cbab955cccd534747701b3f..ad94d48f2aa99087ff062300aa2130098eb1f4cd 100644 (file)
--- a/project.lisp
+++ b/project.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  July 2003
 ;;;;
-;;;; $Id: project.lisp,v 1.4 2003/07/19 20:32:48 kevin Exp $
+;;;; $Id: project.lisp,v 1.5 2003/07/23 23:08:28 kevin Exp $
 ;;;;
 ;;;; This file and Wol are Copyright (c) 2001-2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -139,9 +139,8 @@
   (string= (puri:uri-path (request-raw-uri req)) 
           (project-prefix (entity-project ent))))
 
-(defun redirect-entity (page ent)
-  (redirect-to-location 
-   (format nil "~A~A" (project-prefix (entity-project ent)) page)))
+(defun redirect-entity (page ent &optional plist)
+  (redirect-to-location (apply #'make-wol-url page ent plist)))
 
 (defun dispatch-request (req ent)
   (let ((proj (entity-project ent)))
@@ -195,6 +194,8 @@
        (typecase next-page
         (string
          (redirect-entity next-page ent))
+        (cons
+         (redirect-entity (car next-page) ent (cadr next-page)))
         (null
          t)
         (t