;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: July 2003
;;;;
-;;;; $Id: project.lisp,v 1.9 2003/08/09 21:42:24 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
;;;; *************************************************************************
(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))