From 3bffe3c738cf4026f76cd7428c378442e0e4bb2a Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Wed, 23 Jul 2003 23:08:29 +0000
Subject: [PATCH] r5381: *** empty log message ***

---
 project.lisp | 9 +++++----
 uri.lisp     | 4 +++-
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/project.lisp b/project.lisp
index a0d4061..ad94d48 100644
--- 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
diff --git a/uri.lisp b/uri.lisp
index 16764b7..e0612a2 100644
--- a/uri.lisp
+++ b/uri.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  July 2003
 ;;;;
-;;;; $Id: uri.lisp,v 1.3 2003/07/19 20:32:48 kevin Exp $
+;;;; $Id: uri.lisp,v 1.4 2003/07/23 23:08:29 kevin Exp $
 ;;;;
 ;;;; This file and Wol are Copyright (c) 2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -154,6 +154,7 @@
     (:lang :l)
     (:logged :g)
     (:caller :c)
+    (:db :d)
     
     ;; For lookup-func1
     (:func :f)
@@ -191,6 +192,7 @@
     (:L :lang)
     (:G :logged)
     (:C :caller)
+    (:D :db)
     
     ;; For posting to lookup-func1
     (:F :func)
-- 
2.34.1