;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: July 2003
;;;;
-;;;; $Id: project.lisp,v 1.8 2003/08/08 23:40:13 kevin Exp $
+;;;; $Id: project.lisp,v 1.9 2003/08/09 21:42:24 kevin Exp $
;;;;
;;;; This file and Wol are Copyright (c) 2001-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
(defun redirect-entity (page req ent &optional plist)
(let ((proj (entity-project ent))
- (url (make-wol-url page req ent plist)))
+ (url (render-uri
+ (copy-uri (request-uri req)
+ :path (make-wol-url page req ent plist))
+ nil)))
(ecase (project-connector proj)
(:aserve
(net.aserve:with-http-response
((aserve-request req)
(entity-aserve-entity ent)
- :response net.aserve:*response-moved-permanently*)
+ :response net.aserve:*response-temporary-redirect*)
(set-cookie req ent)
(net.aserve:with-http-body
((aserve-request req)