I am trying to set up some basic user authentication, authorization, etc.
Whenever I try to use the login page (generated, of course, with the login
widget) I get the error:
SIMPLE-ERROR: Cannot determine object ID. Object #<G1496 {AA34A41}> has no
slot 'id'.
The code to set up the form is:
(defun init-user-session (comp)
(if (not (authenticatedp))
(setf (widget-children comp)
(list (make-instance 'login
:view 'login-view
:login-quickform (make-quickform
'login-view)
:on-login (lambda (form data)
(with-slots (email password)
data
(if (or (null password)
(null email))
nil
(make-instance 'user))))
))
)))
As you can see, this is little more than a stub just to start laying things
out. The class user is:
(defclass user ()
((id :initarg :id :initform nil :accessor id)
(status :type (member :active :inactive)
:initarg :status
:initform :active)
(email :type string
:accessor email
:initarg :email)
(first-name :type string
:initarg :first-name)
(last-name :type string
:initarg :last-name)
(password :type string
:accessor password
:initarg :password)
))
(defview login-view
(:type form
:caption "Login")
(email :requiredp t)
(password :present-as (password) :requiredp t))
>From the trace, it is obvious that the Prevalence store is what is throwing
the error (I can attach the full trace, if needed). I am running revision
1587 from the dev repository. If anyone can help straighten me out, it would
be very much appreciated.
-Michael
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/weblocks?hl=en
-~----------~----~----~----~------~----~------~--~---
