projects
/
wol.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5481: *** empty log message ***
[wol.git]
/
project.lisp
diff --git
a/project.lisp
b/project.lisp
index 6a285f65f706dd0ca4e3562e0a9dd0413b22f8f0..d5213f95c295debfdab0c64d9fc1fae7365cae63 100644
(file)
--- a/
project.lisp
+++ b/
project.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: July 2003
;;;;
;;;; 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.
10 2003/08/09 22:18:32
kevin Exp $
;;;;
;;;; This file and Wol are Copyright (c) 2001-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
;;;;
;;;; This file and Wol are Copyright (c) 2001-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
@@
-151,8
+151,6
@@
(let ((proj (entity-project ent)))
(ecase (project-connector proj)
(:aserve
(let ((proj (entity-project ent)))
(ecase (project-connector proj)
(:aserve
- (cmsg "Set-cookie: ~A" (websession-key
- (websession-from-req req)))
(net.aserve:set-cookie-header (aserve-request req)
:name (project-name
(entity-project ent))
(net.aserve:set-cookie-header (aserve-request req)
:name (project-name
(entity-project ent))
@@
-169,13
+167,16
@@
(defun redirect-entity (page req ent &optional plist)
(let ((proj (entity-project ent))
(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)
(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)
(set-cookie req ent)
(net.aserve:with-http-body
((aserve-request req)