r5549: *** empty log message ***

diff --git a/sessions.lisp b/sessions.lisp
index 3de32938fef02f3bf487d463fc5ce00ab7065f99..9b7d2913fde81be0bc77e3c5892b45774d0e5266 100644 (file)
--- 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))))