From 7a32ea0dccd70ba9ac40122e929980726feb1357 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sat, 23 Aug 2003 22:30:30 +0000
Subject: [PATCH] r5549: *** empty log message ***

---
 sessions.lisp | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/sessions.lisp b/sessions.lisp
index 3de3293..9b7d291 100644
--- a/sessions.lisp
+++ b/sessions.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  July 2003
 ;;;;
-;;;; $Id: sessions.lisp,v 1.5 2003/08/09 21:42:24 kevin Exp $
+;;;; $Id: sessions.lisp,v 1.6 2003/08/23 22:30:30 kevin Exp $
 ;;;;
 ;;;; This file and Wol are Copyright (c) 2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -37,7 +37,7 @@
 		 :key key
 		 :lastref (get-universal-time)
 		 :lifetime (lifetime (session-master (entity-project ent)))
-		 :method nil))
+		 :method :try-cookie))
 	 (hash (sessions (session-master (entity-project ent)))))
     (when hash
       (setf (gethash key hash) sess)
@@ -58,13 +58,7 @@
 	(cookie-session-id
 	 (setf (websession-method session) :cookies))
 	(url-session-id
-	 (case (websession-method session)
-	   (nil
-	    (setf (websession-method session) :try-cookie))
-	   (:try-cookie
-	    (setf (websession-method session) :try-cookie-2))
-	   (t
-	    (setf (websession-method session) :url)))))
+	 (setf (websession-method session) :url)))
       (setf (websession-from-req req) session))))
   
 
-- 
2.34.1