;;;; 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
;;;; *************************************************************************
(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)))
(typecase next-page
(string
(redirect-entity next-page ent))
+ (cons
+ (redirect-entity (car next-page) ent (cadr next-page)))
(null
t)
(t